IBM 1130 User Manual page 365

Section
35
Subsections Page
20
I
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
10 140
C----- - - - - - - .. - - - - - - - - - - - - - - - -
e-----
e----- READ AN EMPLOYEE RECORD FROM DISK. AND DECIDE IF IT COUNTS.
e-----
DO 275 I=l,LAST
READIN'II NUM. NAME, NSSAN, NSTAS, NDUES.
~WKMP,
NWKPD, MAR,
1 NXMPF, NXMPS, NSEX, NRATE. YTO, QRTD. LYRHR. NCU, NCUOO,
Z NeHeK, NAOWH. NSTeK, NINS. NMISC. NUA, NSTKD. ISUPP, INIT,
e-----
e----- IF RECORD COUNTS - 150
OTHERwISE - 275
e-----
IFIQRTDlll) 150,275,150
PAGE 03
-PAY09
PAY(J9
PAY09
PAY09
PAYiJ9
PAY09
PAY09
IPDPAYO\1
PAY'J9
PAYQ9
PAY;;9
PAY09
e----- - - - - - - - .. - .. - - - - - - - - - -
e-----
- - - - - - -PAY~7
PAY09
e----- THIS ROUTINE CONTROLS THE PAGE FORMAT. IF 40 LINES HAVE BEEN
e----- PRINTED PuT HEADINGS AT TOP OF NEXT PAGE. OTHERWISE DO NOTHING.
PAYQ'J
PAY09
PAYD'}
e-----
150 IFILINE - 401 170.170.160
160 MPCO=MPeo + MPLY
TOTe=TOTC
+
TOTA
TOTO=TOTO
+
TOTB
TOTA=WHOLEITOTA
+
ITOTA / ABSITOTAI)
*
0.51 / 100.
TOT8=WHOLEITOTq
+
ITOTB /
A~SITOTBI
I
*
0.5) / 100.
e-----
e----- WRITE TOTALS AT THE BOTTOM OF THE PAGE.
e-----
WRITEI3.5) MPLY. MPLY. TOTA,TOTB
5 FORMATI'l',30X,I2.8X,IZ,7X,F9.2.4X,F9.2)
MPLY-O
e-----
C----- NEXT PAGE
e-----
WRITE(3.41 IH01, IDATE, IPAGE. IHD2, IHO), IH04
4 FORMATI'l
I
,22A2,2)(,21 12,'-') ,I2,10x,IZ/(3X,2ZAZ) I
WRITE(3.S)
C-----
C-"---
LINE=O
IPAGE"IP~GE
+
1
TOTA=O.
TOT8=0.
C----- ADD EMPLOYEE INFORMATION TO TOTAL AND SETUP DETAIL LINE.
C-----
170 A=NSSAN
(1)
CALL PuTIISSAN,1,3,A
*
10.,5 •• 1)
A=NSSANIZ)
CALL PuTIISSAN,4.5,A
*
10 •• 5.,1)
A=NSSANI31
CALL PuTIISSAN,6.9.A
*
10 •• 5 •• 11
136
PAY09
PAY09
PAY09
PAY09
PAY09
PAYO':)
PAY09
PAY09
PAY09
PAY09
PAYOl.)
PAY09
PAY09
PAY09
PAY09
PAY09
PAY09
PAY09
PAY09
PAY09
PAY09
PAYC9
-PAY09
PAY09
PAY09
PAY09
PAY09
PAY09
PAY09
PAY09
PAY09
PAY09