IBM 1130 User Manual page 319

Section
Subsections Page
35 20
I
10
94
PAY04 PROGRAM PAGE 13
2 TAX, LOCAL, leu, IUD, IUA, IINS, ISTeK, IMISC, eNET PAY04
•
11
FORMAT(/,lX,I4,2X,9AZ,15,6(ZX,F6.Z),lX,Al,5C2X,F6.2)/1x,I5,2X,815,PAY04
1 Fe.2) PAY04
FIBRE(NSEX)=FIBREINSEXI + 1 PAY04
•
LINE=LINE
+
3 PAY04
leNT=leNT
+
1 PAY04
510 CONTINUE PAY04
•
C----- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - .PAY04
c----- PAY04
e----- WRITE CONTROL TOTALS PAY04
•
C----- PAY04
TGRS=TOTIZ1) PAY04
TNET=TOTI1I) PAY04
WRITEI1,15) TOTRG, TOTOT, TOTBN, TOTSP PAY04
15 FORMATI'INPUT TOTALS ',413X,FS.0» PAY04
•
WRITEI1,16) TOTI1', TOTI31, TOTI51. T PAY04
16 FORMATI'PROCESSED TOTALS '.4IFa.0,3XI I PAY04
WRITEll,17) XREG, XTOT,XSN, XSP PAY04
•
17 FORMATI'ERROR TOTALS ',413X,FS.OII PAY04
A=TOTRG - TOTll) - XREG PAY04
B=TOTOT - TOT(3) - XTOT PAY04
•
~=TOTBN - TOT(5) - XBN PAY04
D=TOTSP • T - XSP PAY04
~RITEI1,18)
A, B, e, 0 PAY04
•
\
18 FORMATI'THE DIFFERENeES',4(3x.Fa.0» PAY04
C----- - - - - - - - - - - • -
~
- - - - - - - - - - - -PAY04
C----- PAY04
•
e----- wRITE THE PLANT GENERAL LE~G(R INFORMATION AFTER THE TOTAL LINE PAY04
e----- PAY04
FIBRE(3)=FIBRE(3)
+
TOTll) PAY04
•
FIBRE(4)=FIBRE(4) + TOT(2) PAY04
FIBRE(5)=FIBRE(51
+
TOTI31 PAY04
FIBRE(6)=FIBRE(61
+
TOTI41 PAY04
•
FIBRE(71=FIBREI71 + TOT(9) PAY04
FIBREISI=PIBREISI
+
TOTI81 PAY04
DO 520 1=1.10 PAY04
•
520 TOTIII=WHOLEITOTIII
+
ITOTIII / ABSITOTIIIII * 0.51 / 100. PAY04
WRITEI3,l3) (TOT( I) ,1=ltlOI PAY04
FORMAT(I,' ','FST LINE TOTAL'tlOFIO.2) PAY04
•
13
TOTI211=-TOTI211 PAY04
IPAGE=IPAGE + 1 PAV04
WRITEI3,19) COMP, NDWK, IPAGE PAY04
•
DO 5S0 1=1,11 PAY04
TOTCI+I01=·wHCLEITOTII+I0) + CTOTII+IOI/ABSITOTII+IOI I 1*0.51/100. PAY04
550 wRITEI3,14) ITOTIII, TOTll+101 PAY04
•
14 FORMATI/,20X.I4,5X,F9.Z1 PAY04
C----- - - - - - - - - - - - - - - - - - - - - - -PAY04
c----- PAY04
•
c----- wRITE THE PLANT INFORMATION BACK TO DISK. PAY04
L!----
90