IBM 1130 User Manual page 282

•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
Section Subsections
35
20
I
10
PAY02 PROGRAM
PAGE 03
C----- SEARCH INDEX FOR EMPLOYEE NUMBER
C-----
120 DO 125 I
m
l.LAST
IFIINDEXIII - ICLCK) 125,130.125
125 CONTINUE
C-----
C----- IF THE PROGRAM COMES THRU HERE. THE CLOCK NO. IS NOT IN THE
C-----
WRITEIl.4) ICLCK
4 FORMATI'CLOCK NO '14' NOT IN FILE')
GO TO 100
C----- - - - - - - - - - - - - - - - - - - - - - -
C-----
C-----
~EAD
EMPLOYEE RECORD FROM DISK AND VALIDATE CLOCK NUMBERS
C-----
PAY02
PAY02
PAY02
PAY02
PAY02
PAY02
INDEXPAY02
PAY02
PAYOl
PAY02
PAYOl
-PAY02
PAYOl
PAY02
PAY02
130 IND-I
READINOPLT'IND)
1
PAY02
NUM. NAME. NSSAN. NSTAS. NDUES. NWKMP. NWKPD. MAR.PAY02
NXMPF. NXMPS. NSEX. NRATE. YTD. aRTD, LYRHR, NCU, PAY02
2
NCUDD, NCHCK, NADWH. NSTCK. NINS, NMISC. NUA. PAY02
3
NSTKD. ISUPP, INIT PAY02
C-----
C----- VALIDATE
C----- MATCH - 140
C----- NO MATCH - 135
C-----
IF(NUM • ICLCK) 135tl40.135
135 WRITE(l.S) NUM. ICLCK
PAY02
PAY02
PAY02
PAY02
PAY02
PAY02
5 FORMAT('CLOCK NO '14' IN FILE DOES NOT AGREE WITH CLOCK NUMBER
PAY02
'I4PAY02
PAY02
PAY02
1 ' IN CARD')
GO TO 100
C----- - - - - - - - - - - - - - - - -
C-----
C----- UPDATE THE EMPLOYEE NAME FIELD. WRITE HIS
C----- AND THEN GO BACK TO THE READ STATEMENT TO
C----- NEXT EMPLOYEE.
C-----
- - - - - - - - - - - -PAY02
PAYOl
RECORD BACK TO THE DISKPAY02
GET THE NAME OF THE PAY02
PAY02
PAY02
140 WRITE(NOPLTIIND) NUM.
1 MAR,
NuMB. NSSAN, NSTAS. NDUES. NWKMP, NWKPD. PAY02
NXMPF, NXMPS, NS~X. NRATE, YTD. aRTD, LYRHR,PAY02
2 NCU. NCUDD, NCHCK, NADWH. NSTCK. NINS. NMISC, PAY02
3
NUA. NSTKD. ISUPP, INIT PAY02
C-----
C----- GO BACK FOR ANOTHER EMPLOYEE'S NAME.
PAY02
PAY02
PAY02
C-----
GO TO 100
PAY02
C-~---
- - - - -
C-----
- - - - - - - - - - - - - - - - - - - - - - - - - -PAY02
C----- LAST CARD HAS BEEN READ. STOP.
C-----
99 CALL EX IT
53
PAY02
PAY02
PAY02
PAY02
Page
57