IBM 1130 User Manual page 293

Section
35
Subsections Page
20
I
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
10
68
WRITE 11.41 ICLCK
4 FORMAT('CLOCK NO '14' NOT IN FILE')
GO TO 100
C----- - - - - - - - - - - - - - - - - - - - - - -
C-----
C----- READ EMPLOYEE RECORD FROM DISK AND VALIDATE CLOCK NUMBERS.
C-----
PAGE 04
PAV03
PAY03
PAY03
-PAY03
PAY03
PAVOl
PAY03
110 IND-I
READ(NOPLT'INDI
1
PAY03
NUM. NAME. NSSAN. NSTAS. NDUES. NWKMP. NWKPD. MAR.PAYOl
NXMPF. NXMPS. NSEX. NRATE, YTD. QRTD. LYRHR, NCU. PAYOl
2
NCUDD. NCHCK. NADWH, NSTCK. N1NS, NMISC. NUA. PAYOl
3
NSTKD, ISUPP, IN IT PAYOl
C-----
C----- VALIDATE
C----- MATCH - 140
C----- NO MATCH - 135
C-----
IF(NUM - ICLCK) 135.140,135
135 WRITE(1.51 ICLCK
5 FORMAT('CLOCK NUMBERS DO NOT AGREE FOR '141
CALL STACK
GO TO 100
PAY03
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAY03
PAYOl
PAYOl
C-----
C-----
C-----
C-----
C-----
C-----
C-----
C-----
- - - - - - - - - - - - - - - - - - - - - - - - - - - -PAYOl
GO TO THE APPROPIATE CHANGE
NRATE - 141 NXMPF - 146
NCU - 142 NXMPS - 146
NDUES - 143 NXMPS - 147
NSTAS - 144 NSEX - 148
MAR - 145 NADWH - 149
ROUTINE.
NSTCK - 150
NINS - 151
NMISC - 152
NUA - 153
INIT - 155
NSSAN - 156
NEW EMPLOYEE - 500
140 GO TO (141.142.143.144.145.146.147.148,149.150.151.152,153.104.
1 ass.156).ICHNG
141 NRATE=NEW
GO TO 550
142 NCU=NEW
GO TO 550
143 NDUES=NEW
GO TO 550
144 NSTAS=NEW
GO TO 550
145 MAR=NEW
GO TO 550
146 NXMPF=NEW
147 NXMPS=NEW
GO TO 550
148 NSEX=NEW
GO TO 550
149 NADWH=NEW
GO TO
550
64
PAY03
PAYOl
PAYOl
PAYOl
PAVOl
PAYOl
PAYOl
PAY03
PAYOl
PAYOl
PAY03
PAVO:;
PAYOl
PAYOl
PAY03
PAVOl
PAY03
PAVO:;
PAYO:;
PAVOl
PAY03
PAY03
PAVOl
PAY03
PAVOl
PAV03