IBM 1130 User Manual page 317

Section
35
Subsections Page
20
I
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
10 92
PAY04 PROGRAt
QRTD(3)=QRTOI31
+
IFICA
QRTD(4)=QRTOI41
+
LOCAL
QRTD(5)=QRTO(SI
+
ERNGS
QRTDI61=QRTOI61
+
SICK
PAGE 11
PAY04
PAYC4
PAY04
PAY04
C----- - - - - - - - - - -
C-----
- - - - - - - - - - - - - - - - - - - - -PAY04
C----- UPDATE PLANT TOTALS
C-----
TOTlll=TOTI11
+
RGHRS
TOTI21=TOTI21 + RGERN
TOTI31 = TOTI31
+
OTHRS
TOT(4)=TOTI4)
+
OTERN
TOTI51=TOT(SI
+
BNHRS
TOT(6)=TOT(6)
+
BNERN
TOTI71=TOT(7)
+
OTHER
TOTI81=TOTISI
+
HOLDY
TOTI91=TOTI91
+
VACA
TOTI101=TOTI101
+
SICK
TOTIlll=TOTllll
+
CNET
TOTI121-TOTI121
+
TAX
TOT(13)=TOTI131
+
IFICA
TOT(14)=TOTI141
+
LOCAL
TOTI151=TOTI15'
+
ICU
TOT(16)=TOTI161
+
IUD
TOT(171=TOTI171
+
IUA
TOT(18)=TOTI181
+
ISTCK
TOT(19)-TOTI19)
+
IMISC
TOT1201-TOT1201
+
IINS
TOT(21)=TOTI211 + GROSS
c--. . . . --
C-----
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAV04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
- - - - - - .. - - - - -PAY04
PAY04
C----- SUM sPECIAL EARNINGS. SUM DEDUCTIONS. AND ExTEND THE EMPLOYEE PAY04
PAY04
C----- WEEKLY CARD
C-----
T-T
+
SPECLlll
+
SPECLI21
+
SPECL(31
IDED=IINS
+
ISTCK
+
IUA
+
IMISC
WRITEI2.91 NRATE. GROSS. CNET. TAX. IFICA.
9 FORMAT(, 1x.!3.2F6.0.I5.414.151
C----~
- - - - - - - - - - - - - - - - - - - - -
C"----
PAY04
PAY04
PAY04
LOCAL. ICU. IUD. IDED PAY04
PAY04
- - - - - - - .. - - - -PAY04
PAY04
C----- SETUP CONTROL INFORMATION. AND WRITE UPDATED EMPLOYEE RECORD BACKPAY04
C----- TO THE DISK.
C-----
C-----
LYRHR=LYRHR
+
RGHRS
NWKPD=NWKPO
+
1
IPD-l
WRITEINOPLT'INDI NUM. NAME. N$SAN. NSTAS. NDUES. NWKMP. NWKPD.
1 MAR. NXMPF. NXMPS. NSEX. NRATE. YTD. QRTD. LYRHR. NCU. NCUDD.
88
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04