IBM 1130 User Manual page 308

•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
Section Subsections
35 20
I
10
PAY04 PROGRAM
PAGE 02
2
3
4
EQUIVALENCE
1
5(150,160,U,LBT),6(30,160,U.LMC),
101(250,1,u.IN1), 102(90,1,U.IN2),
104(50,1,U,IN4). 105(150,1,U,IN5),
IICOL.IWVA,MUNC,LBO,LBT,LMC).
IIN1,IN2,IN3,IN4.IN5.IN6)
2516.l06.U.IC). PAY04
l031200tl.UtlN3) ,PAY04
106(30.l.U.IN6) PAY04
PAY04
PAY04
C----- - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - -PAY04
C-----
C-----
C-----
DEFINE
~N
ARITHMETIC STATEMENT FOR HALF ADJUSTING.
PHILIBET)=WHOLE( IBET
+
5.)
I 100.)
PAY04
PAY04
PAY04
PAY04
C----- - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - -PAY04
C-----
C----- INITIALIZE VARIABLES
C-----
ICOl=1
IN1=1
T=O.
XTOT=O.
XBN=O.
XREG=O.
XSP=O.
DO 50 1=1.21
50 TOTII)=O.
IPAGE=O
LINE-50
C----- - - - - - - - - - - - - - - - - - - - - - -
C-----
C----- READ PLANT NUMBER. DATE, AND CONTROL TOTALS
C-----
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
- - - - - - - - - - -PAY04
PAY04
PAY04
99999 READ(2.1) NOPLT, IDATE. NDWK. TOTRG. TOTOT. TOTBN, TOTSP, KARD
PAY04
PAY04
PAY04 1 FORMATII1.6A2.7X.4F7.0,31X.Il)
C-----
C----- VALIDATE KARD AND NOPLT.
C----- IF VALID - 60
C----- IF INVALID - 55
C-----
IFCKARD) 55.51,55
51 IF(NOPLT) 55,55,52
52 IFCNOPLT-6) 60,60,55
C-----
C----- FIRST CARD IS INVALID.
C-----
55 WRITE(1,2)
2 FORMAT('CHECK CC 1 AND 80 ON FIRST CARD')
PAUSE 1
GO TO 99999
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
C----- - - - . - - - - - - - - - - - - -
C-----
- - - - - - - - - - - - - - - -PAY04
PAY04
C----- READ THE PLANT INFORMATION RECORD FROM DISK. PAY04
79
Page
83