IBM 1130 User Manual page 316

•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
PAY04 PROGRAM
340 ICU"O
IFILL.4
345 CNET=CNET - ICU
NCUOO=NCUOO
+
(leu
I 101
IF(CNET .. IUAI 350.355.355
350 IUA-O
IFILL=5
NUA-NUA - 10000
355 eNET=CNET - IUA
IF(CNET - IMISCI 360.365.365
360 IMISC-O
IFILL .. 6
365 CNET=CNET - IMISC
c----- . . - - - - - - - - - - -
C-----
C----- CHECK NET AGAINST MAXIMUM CHECK AMOUNT AND AGAINST A MINIMUM OF
C----- ONE DOLLAR
C---"-
366 IFICKMAX - CNETI 367.368.368
367 WRtTE(1.121 CNET. ICLCK
12 FORMAT('NET OF ' F7.0' FOR CLOCK NO '141
GO TO 120
368 IF(CNET - 1001 370.375.375
370 TAX=TAX
+
CNET
CNETIIO
IFILL.7
C----- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C-----
C----- UPDATE YEAR-TO-DATE INFORMATION
c---.. -
375 YTO(ll-YTO(ll
+
GROSS
YTO(2)=YTO(21
+
IFICA
YTOI31=YTO(31
+
TAX
YTO(4)=YTO(4)
+
ERNGS
YTO(5)=YTOIS)
+
SICK
YTO(6)=YTO(6)
+
SPA
YTO(7)=YTO(7)
+
SPB
YTO(81=YTO(8)
+
LOCAL
YTO(9)=YTO(9) + RGHRS
YTO(10)·YtO(10) + OTHRS
YTO(11)-YTO(11)
+
BNHRS
YTO(12)=YTO(12)
+
RGERN
YTO(131=YTO(13)
+
OTERN
YTO(14)=YTO(14) + BNERN
C----- - .. - - - - - - - - - - .. - - - - - - .. - - - - - - - - - - - -
C-----
e----- UPDATE QUARTER-TO-DATE INFORMATION
QRTO(l)=QRTO(l)
+
GROSS
QRTO(2)sQRTOCZ)
+
TAX
87
Section Subsections
35
20
I
10
PAGE 10
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
-PAY04
PAYC4
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
-PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAV04
PAY04
PAY04
PAY04
-PAY04
PAY04
PAY04
PAY04
PAY04
Page
91