IBM 1130 User Manual page 310

Computing system

Hide thumbs Also See for 1130:

Table of Contents

PAY04 PROGRAM

C----- READ THE EMPLOYEE INDEX FOR THIS PLANT.

83 READ(INDX'ILST) LAST

READ(INDX'1) (INDEX( II. I-l.LASTI

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

C----- READ A WEEKLY EMPLOYEE RECORD.

90 READC2.5) KPLNT. ICLCK, RGHRS. OTHRS. BNHRS. (KODEII).SPECLCI).

1=1.3). KARD

5 FORMATCl1.I3.FS.O.F4.0,FS.O.I1,F6.0,2CIl,FS.OI,42X,I11

C----- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

C----- INITIALIZE INDIVIDUAL VARIABLES

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

C----- LAST CARD CHECK AND VALIDATE PLANT NUMBER

EQUALS 6. PROCESS IT.

C----- IF KAR[ EQUALS 9, LAST CARD

C----- OTHERWISE. ERROR

IFCKARD - 6) 100,110,103

103 IFCKARD - 9) 100.500,100

C----- PLANT NUMBER

110 IFIKPLNT - NOPLTI 100,105.100

100 WRITEC1.61 KPLNT, ICLCK

6 FORMAT('CHECK CARD WITH CLOCK NUMBER '11,131

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

C----- LOCATE EMPLOYEE IN INDEX

105 ICLCK=ICLCK

Chapters

Table of Contents