IBM 1130 User Manual page 311

Computing system

Hide thumbs Also See for 1130:

Table of Contents

PAY04 PROGRAM

DO 115 IND=l.LAST

IFI INDEX( IND) - ICLCK) l15tl25.11S

115 CONTINUE

PROGRAt COMES THRU HERE ONLY WHEN NO MATCH FOUND.

WRITEll,7) ICLeK

7 FORMATI'CLOCK NO '14' IS NOT IN THE FILE')

C----- UPDATE ERROR TOTALS

120 XREGaXREG

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

- - - - - -PAY04

READ THE EMPLOYEE RECORD FROM DiSk AND VALIDATE CLOCK NUMBER.

125 READINOPLT'IND)

NUM. NAME. NSSAN. NSTAS. NDUES. NWKMP. NWKPD. MAR.PAY04

NXMPF, NXMPS. NSEX. NRATE. YTD. aRTD. LYRHR. NCU. PAY04

NCUDD. NCHCK. NADWH. NSTCK. NINS. NMISC. NUA.

NSTKD. I SUPP. IN IT

C----- VALIDATE CLOCK NUMBER

C----- INVALID - 135

IFINUM - ICLeK) 135.136.135

135 WRITE(1,8) NUM. ICLCK

8 FORMATI'FILE NO '14' AND INDEX NO '14' DO NOT AGREE')

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

- - - - - - - - - - -PAY04

C----- CALCULATE

EARNINGS AND HALF ADJUST

136 RGERN.PHILIRGHRS * NRATE)

C----- - - - - -

- - - - - - - - -

- - - - - - - - - - - - - - - -PAY04

C----- CALCULATE BONUS EARNINGS AND HALF ADJUST

BNERN.Pt ILIBNHRS * NRATE)

C----- CALCULATE ANY SPECIAL EARNINGS.

C----- EARNINGS.

USE CODE TO DETERMINE TYPE OF

Chapters

Table of Contents