IBM 1130 User Manual page 366

•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
Section
Subsections
35
20
I
10
PAGE 04
A=660000 ... IYTOIll - YTO(5»
IFIA) l80,lfO,175
175 FICA-ORTO(1) - ORTD(6)
GO TO 195
180
FICA=A
+
ORTO(l) - ORTO(6)
IFIFICA) 185,195,195
185 FICA=O.
195 TOTA=TOTA
+
FICA
TOTB=TOTB
+
ORTOIl)
FICA=WH0LEIFICA
+
IFICA / ABSIFICA»
*
0.5) /
100.
ORTOIll'.oJHOLEIORTDlll
+
(QRTOIli / ABSIORTD(lI»
*
0.5) / 100.
MPLV=MPLY
+
1
LINE=LINE
+
1
PAYO-1
PAYC9
PAY09
PAY09
PAV09
PAY09
PAY09
PAY09
PAY09
PAY09
PAV09
PAV09
PAV09
C----- - - - -
.. - - - - .. - - - - - - - - -PAV09
C-----
C-----
wRITE A DETAIL LINE AND GO BACK FOR ANOTHER EMPLOYEE.
C---....
WRITE(3,6) ISSAN, NAME, FICA, ORTD(l)
6 FORMAT(3X,3Al,lX,2Al,lX,4Al,7X;9A2,11X,F9.2,4X,F9.2)
C-----
C----- GO BACK
C-----
275 CONTINUE
C-----
PAV09
PAY09
PAY09
PAY09
PAV09
PAY09
PAY09
PAV09
PAY09
-PAYOO:;
C-----
C----- THE PROGRAM WILL AUTOMATICALLV GO THRU HERE
C----- HAS BEEN PROCESSED. CREATE AND WRITE PLANT
C-----
TOTC=TOTC
+
TOTA
PAY09
WHEN THE LAST EMPLVEEPAY09
TOTALS ON REPORT. PAY09
PAY09
PAY09
C-----
TOTD=TOTD + TOTB
TOTA=WHOLEITOTA
+
(TOTA / ABSITOTA»
*
0.5) /
100.
TOTB=WHOLE(TOTB
+
(TOTB / ARS(TOTB»
*
0.5) / 100.
C-----
WR IfE
C-----
WRITEI3,S) MPLY, MPLY, TOTA, TOTB
PAV09
PAY09
PAV09
PAY09
PAY09
PA':'09
PAY09
C----- - - - - - - - - - - - - .. - .. .. ..
- - - - - - .. - - - - - - -PAY09
C-----
C----- CREATE AND WRITE PLANT CONTROL TOTALS ON CONSOLE AND GO BACK FOR
C----- ANOTHER PLANT
C-----
MPCO=MPCO + MPLY
TOTe=WHOLE(TOTC
+
(TOTC ABS(TOTCI I
*
0.5) / 100.
TOTD-WHOLECTOTo
+
(TOTO / ABS(TOTDI)
*
0.5) / 100.
e-----
C----- WRITE
C-----
WRITE(l,9) IHol
9 FORMATI12A21
137-
PAY09
PAY09
PAV09
PAY09
PAY09
PAY09
PAV09
PAY09
PAY09
PAY09
PAY09
PAY09
Page
141