IBM System/360 20 User Manual

10. set the Register-Data/Address switches
on the CPU console to an even main
3torage address between hexadecimal
009C and the end-of-storage address
minus hexadecimal 0052.
11. set the Mode switch on the CPU console
to PROCESS.
12. Press the Load key on the CPU console.
The BPG listing, part of which is shown
in Figure 30, is obtained on the printer.
The object program deck is produced on the
1442.
HOD 20 TPS RPG VERSION 2
MOD-LEVEL 0
Upon completion of the comrilation, a
system halt occurs and the code 1D01 is
dis}layed. To initiate the execution of
the sample program, press the Start key on
the CPU console.
The output from the sample program is
the Frinted report shown in Figure 31.
The object deck obtained on SYSOPT may
be used to execute the sample program under
central of the card-resident system or
include it in the program library of the
system tape.
12/31/67
H
P
1 01010 FINPUT IP
2 01020 FPRINT 0
120
RPG CONTROL CARD
READ01
PRINTER
SACO
SACO
SACO
Figure
3 02010 IINPUT
4
02020 I
5
02030 I
6
02040 I
7
02050 I
8
03010 C
11
9
03020 C
22
10
03030 C
N22
11
03040 C
11
12
03050 ell
13 04010 OPRINT
14 04020 0
15 04030 0
16 04040 0
17 04050 0
18 04060 0
19 04070 0
20 04080 0
21 04090 0
22 04100 0
23 04110 0
24 04120 0
25 04130 0
26 04140 0
27 04150 0
28 04160 0
29 04170 0
30 04180 0
31 04190 0
32 04200 0
33 04210 0
34 04220 0
AA 11
1 C5
I VCAHT
COMP
11
IVCAMT
MUlT
11
IVCAMT
MUlT
eOMM
ADD
SUM
ADD
H 301
OFNl.1
OR
II
0 2
11
N22
22
II
T
21
II
T
01
lR
30.
Samr-Ie
of RPG Listing
10000.00
0.12
0.10
SUM
FINTOT
COMM
IVCAMT
INVOIC
C.UST I
SAlESM
SUM 8
FINTOT
2 6 INVOIC
13 190CUST
35 4221VCAMT
43 46 SALESHL1
22
COMM
92H
COMM
H
SUM
102
FINTOT 112
72
'COMMISSION'
59 'PERC'
51
' AMOUNT'
42 'INVOICE'
34 'CUST'
28
'SALESMAN'
72 '
,
O.
59
'lOC'
59
'12C'
53
,
O.
41
34
26
56 'TOTAL'
72
,
o.
56 'FINAL
TOTAL'
72
,
•
o.
SACO
SACO
SA CO
SACO
SACO
SACO
SACO
SACO
SACO
SACO
SACO
SACO
SACO
SACO
SACO
SACO
SACO
SACO
SACO
SACO
SACO
SACO
SACO
SACO
SACO
SACO
SACO
SACO
SA CO
SACO
SACO
SACO
Sample Programs 85

IBM System/360 20 Specifications

General

Brand	IBM
Model	System/360 20
Category	Storage
Language	English