IBM System/360 20 - SAMPLE PROGRAM 3

The third sample program is designed to
demonstrate:
• the use of the utili ty pro gr ams ,
• the use of the Sort/Merge program.
with the samfle deck supplied by IBM,
the following jobs can be performed:
1. Initialize-Tape job,
2. Card-to-Tape job,
3. Tape-to-Printer job (unsorted records) ,
4. Sort job,
5. Tape-to-Printer job (sorted records).
DESCRIPTION OF THE SAMPLE DECK
The sample-program cards (eleven groups)
are identified by a letter in column 73 and
two digits in columns 74-75. (See :list
below. )
Card column 76 contains a 2 (identifi-
cation for TP~ •
Card columns 77-79 contain consecutive
card numbers, which begin with 001 for eac·h
card group.
Sample deck 3 consists of the following
card groups:
-
.
10
o,-.'M
"
I
20
~
10
"
1/1
I}' '
171.
IIJ'
111&
II
1.1 ..
l(f
121
. '
~16
II
~ 0'
II
~,a
1.£"
I r
II "
II D~
TE
II
VII
v ~
III
il'
I'.
J '
7l
'II
... l1li
,..
1
1
•
lull
III
~I
~It:
..
Columns
11_1~_12 ~g§££iE1iQn
X 9 0
Job control cards for Initialize-
Taf;e job
X 9
V 9 0
V 9
V 9 2
W 9 0
Program control card for
Initialize-Tape Program
Job control cards for Card-to-
Tape job
Program control cards for Card-
to-Tape job
Data cards
Job control cards for Tape-to-
Printer job (unsorted records)
W 9
Program control cards for Tape-
to-Printer job (unsorted records)
S 9 0
S 9 1
W 9 2
w 9 3
Job control cards for Sort job
Program control cards for Sort
job
Job control cards for Tape-to-
Printer job (sorted records)
Program control cards for Tape-
to-Printer job (sorted records)
Figures 32-37 show the card groups of
Samfle Program 3.
I I I I
I I I
J
. JCAlO fucr.o NUMIU
4'" >0 SS 60 65 71 n
'~A~~ ITHIJ '~'D l~ 1~lf 11" Dl~lt
l"" P'l~~R~
1
Figure 32. Job Control and Program Control Statements for Initialize-Tape Job
Sample Programs 87