IBM 1130 User Manual page 270

Computing system

Hide thumbs Also See for 1130:

Table of Contents

PAY01 PROGRAM

C----- EDIT MARITAL STATUS, UNION DUES DEDUCTION, SEX CODE, AND IF

C----- NECESSARY, MODIFY EMPLOYEE STATUS CODE.

IFCMARI 101,101,100

100 IFCMAR-21 102,102tlOl

102 IF(NDUESI 103,104,106

106 IFCNOPLT-31 120,115,120

120 IFCNSEXI 109,109,107

107 IF C NSEX-3 I 110,108 tl09

c----- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

CREATE THE INDEX ENTRY FOR THIS EMPLOYEE AND WRITE HIS RECORD

C----- ONTO THE DISK. THEN GO BACK TO THE READ STATEMENT TO GET

C----- INFORMATION ON THE NEXT EMPLOYEE.

110INDEXCICOLI=NUM

C----- WRITE TO THE DISK.

WRITECNOPLT'ICOLI NUM, NAME, NSSAN, NSTAS, NDUES, NwKMP. NWKPD,

MAR. NXMPF. NXMPS, NSEX, NRATE, YTD, QRTD.

LYRHR, NCU, NCUDD, NCHCK, NADWH, NSTCK, NINS,

NMISC, NUA, NSTKD, ISUPP, INIT. IPD

C----- GO BACK FOR ANOTHER EMPLOYEE'S INFORMATION

C----- - - - - - - -

- - - - - - - - - - - - - - - - - - - - - -

C----- LAST CARD HAS BEEN READ.

C----- INITIALIZE THE TRADE ASSOCIATION INFORMATION.

600 DO 650 1=1.8

650 FIBRECII·O.

- - - - - - - - - - -

- - - - - - - - - -

C----- WRITE THE INDEX OF EMPLOYEES FOR THIS PLANT TO DISK.

Chapters

Table of Contents