IBM 1130 User Manual page 336

Computing system

Hide thumbs Also See for 1130:

Table of Contents

PAY05 PROGRAM

NADWH. NSTCK. NINS. NMISC. NUA, NSTKD. ISUPP. INIT.

IVRAT. lOTRT. RGHRS, OTHRS, BNHRS. RGERN.

OTERN, BNERN. OTHER. KO, HOLDY, VACA, SICK. CNET, IFICA, TAX.

IUD, IINS, ISTCI(.. IMISC

860 IF(NRITE - NUMI 700,875.700

875 wRITE(1,251

25 FORMAT('ENTER CLOCK NO.' I

READ(6.261 NRITE

26 FORMAT(I41

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

C----- CALCULATE CONTROLS

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

C----- wRITE UPCATED EMPLOYEE RECORD BACK TO DISK.

C----- CHECK FOR DEDUCTIONS AND MARITAL STATUS

WRITE(NOPLT'II

NAME, NSSAN.

NDUES, NWKMP, NWKPD. MAR,

NSEX. NRATE, YTD, QRTD, LYRHR, Neu, NCUDD.

,'KHCK. NAD\oJH. NSTCK, NINS, !'IlMISC, NUA. NSTKD, ISUPP, INIT.

IPD. IFILL, GROSS, IVRAT, IOTRT, RGHRS. OTHRS, BNHRS. RGERN,

OTHER. KO, HOLDY, VACA, SICK, CNET, IFICA, TAX,

INS, ISTCK. IMISC

IF(IFILll 550,550.510

510 WRITE(1,201 IFILL. NUM

20 FORMAT('DEDUCTION NO '11' NOT MADE FOR '141

550 IF(MAR - 11 5.10,5

10 MAR=-7616

5 MAR=-1l700

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

C----- WRITE FIRST LINE OF CHECK AND PUT TOGETHER SECOND LINE OF CHECK.

15 WRITE(3,50001 NUM. NDWK, NAME, NSSAN. MAR, NXMPF. NRATE, lOTRT,

,I4,lX.3A2.3X.9A2.1X.l3,l2.l4.1X.Al,l2.3l3,50X.F6.21

CALL DATSW(15,IPNTI

GO TO (90,911,IPNT

Chapters

Table of Contents