IBM 1130 User Manual page 295

Section
35
Subsections Page
20
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
I
10 70
PAGE 06
LAST-LAST + 1
INO-LAST
I NDEX I LAS T I aNUM
C----- - - - - - - - - - - - - - - - - - - - - - - - - - -
C-----
e----- WRITE THE EMPLOYEE RECORD TO THE DISK.
C----- GO BACK TO THE READ STATEMENT TO GET ANOTHER CHANGE FOR THIS
C----- PLANT.
PAY03
PAY03
PAY03
-PAY03
PAY03
PAY03
PAY03
PAY03
C-----
550 WRITEINOPLT'INDI
1
PAY03
NUM, NAME, NSSAN, NSTAS, NDUES, NWKMP, NWKPD, PAY03
MAR, NXMPF, NXMPS, NSEX, NRATE, YTD, QRTD, LYRHR,PAY03
2 Neu, NCUDO, NCHCK, NADWH, NSTCK, NINS. NMISC, PAY03
3
NUA. NSTKO, ISUPP, INIT, IPO PAY03
C-----
C----- GO BACK TO READ C-----
C-----
C-----
GO TO
11'
C----- WRITE BACK TO DISK THE EMPLOYEE INDEX FOR THIS PLANT. e-----
99 WRITEIINOX'LSTI LAST
WRITEIINDX'11 IINDEXI I I .1=l,LASTI
PAY03
PAY03
PAY03
PAY03
-PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
C----- - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - -PAY03 C-----
PAY03
C----- READ A CARD. IF K IS NOT 9 THERE ARE CHANGES TO ANOTHER PLANT.
PAY03
C-----
REAOI2,91 K
9 FORMAT 179X, III
C-----
C----- KNOT 9 MEANS MORE CHANGES. GO TO 1000.
C----- K EQUAL TO 9 MEANS END OF RUN. GO TO 1001.
C-----
IFIK - 91 1000.1001,1000
C-----
C----- THIS IS END OF RUN. STOP. C-----
1001
CALL EXIT
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
C----- - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - -PAY03
END
PAY03
VARIABLE ALLOCATIONS
ICOL -0054 IWVA =0054 MUNC =0054
INS =0055 IN6 -0055 QRTO .00b5
LST "01A7 LAST .01A8 I =01A9
NSTAS"OlBl NOUES=OlBl NWKMP-01B3
NCU -OlBB NCUOO=OlBC NCHCK=OlBO
IPO =01C5
LBO -0054
YTO =008F
ICLCK"OlAA
NWKPO"O 1B4
NAOWH=O 1BE
LBT -0054
I NOEX .. 016B
NUMB "OlAB
MAR ,,01B5
NSTCK=OlBF
LMC ..
0054
ISUPP .. 0198
ICHNG=OlAC
NXMPF=01B6
NINS =OleO
INl =0055
NAME .01A1
NEW .. OlAD
NXMPS=01B7
NMISC=OlCl
STATEMENT ALLOCAT IONS
1
·OlOB 2 "0100
9 -0259 1000 ,,0271
101 -02DE 95 -02E4
140 =0386 141 .039A
150 -OleE
151 =0304
502
-0473
503 -0468
FEATURES SUPPORTED
ONE WORD INTEGERS
EXTENDED PRECISION
10CS
CALLED SUBPROGRAMS
STACK ELO ESTO
SDWRT SDCOM SDA I
REAL CONSTANTS
.OOOOOOOOOE 00 .. 01C8
INTEGER
~ONSTANTS
1-01CB 2-01CC
1000-01D5 16=0106
3 -01E4 8
-OlFA
80 "028E 81 =0294
105 -02FO 106 c02FD
142 =03AO 143 =03A(o
152
=03DA
153
=03EO
550
=04B8
99
=04F9
ESTOX TYPEl SREO
SOAF SO IX SO I
100-01CD
14"0107
250=01CE
6"0108
CORE REQUIREMENTS FOR PAY03
4 "0209 5 "0218
82 =029A 83 =02AO
110 =0305 104 =0300
144 =03AC 145 ,,03B2
155
=03Eb 15b ,,03FO
1001
=0521
SWRT SCOMP SFIO
90-01CF
0 .. 0109
200,,0100
13.010A
11 =022B
84 =02A6
ll0 -0317
146 =03B6
500 =03FE
SIOAI SIOI
50=0101
• COMMON 0 VARIABLES
456 PROGRAM 858
END OF COMPILATION
L---
-
-
66
IN2 .,0055
NSSAN=01A4
K =OlAE
NSEX =01B8
NUA =01e2
10 =0236
85 =02AC
125 =032b
147 =03BC
513 =0430
IN3 =0055
NOPL T·OIA5
IND :OlAF
NRATE=01B9
NSTKD=01C3
6 =023A
90 =u2BO
13u =0336
14tl =03e2
504 =043A
IN4 =0055
INDX =01A6
NUM =OlBO
LYRHR=OlBA
INIT =01C4
7 =0247
ll.ll.i
="lCB
135
=037C
14'> =u3eo
501 =045E
SUBSC CAROl SDF 10 SDRt::O
150=01D2 9=0104
I
I
\
I
I
)
I
I