Control Data 3170 Installation Handbook page 160

0')
o
H::..
......
o
00
o
o
:;::.
H
H
I
0')
I
W
SEQUENCE.026
JOB,.TAPE-SORT ••
EQUlp,10-MT,ll-MT.12-MT
COBOL'L'X
3300 MS COBOL BOP VER 4.3 FOR MSOS
LENGTH OF
L.ENGTH OF
LENGTH OF
VERIFY
COMMON
DATA
ENTRY-POINT SYMBOLS
00064
00476
00044
XVERIFY 00000
VERIFY
3300 MS COBOL. BOP VER 4.3 FOR MSOS VERIFY
IDENTIFICATION DIVISION.
PROGRAM·ID. VERIFY.
REMARKS.
THE PURPOSE OF THIS PROGRAM IS TO
VERI~Y
THE PRESENCE
OF THE TAPE SORT PRODUCT
ON THE M50S LIBRARY.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. 3]00.
08JECT-COMPUTER. 3300.
SPECIAL-NAMES.
SYSTEM-OUTPUT-TAPE IS OUT.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT DSK ASSIGN TO TAPE 12.
3300 MS COBOL BOP VER 4.3 FOR MSOS
DATA DIVISION.
FO OSK
VERIFY
BLOCK 504 CHARACTERS
L.ABEL RECORDS ARE OMITTED
DATA RECORD OUT-REC.
01
OUT-REC.
02 FLO_l PICTURE X(4).
O~ KEY PICTURE
9(10).
02 FL.O_2 PICTURE XCiS4).
WORKING-STORAGE SECTION.
77 N COMPUTATIONAL.I.
•• SEQ- 026.· MSOS 115.0 £0-81 0-01/17/74 T-14/40/22.
1 1
1 1
1 I
000000
000000
000000
C00027
Co0027
C000 3 0
CiiOo322
COh75
PAGE 0001
PAGE 0002
PAGE
0003