IBM 1130 User Manual page 352

•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
Section Subsections
35 20
I
10
PAGE 02
C----
C-----
c-----
ICOl-l
INl-l
TA-O.
TB-O.
C----- READ PLANT NO., DATE, AND CONTROL TOTALS, AND VALIDATE CC
80
AND
C----- THE PLANT NUMBER.
C----
99999 REAQC2,l) NOPLT, IDATE, NOWK, TOTRG, TOTOT, TOTBN, TOTSP, KARO
1
FORMATCI1,6A2,4F7.0,38X,Il)
c-_ .......
C----- VALIDATE KARD AND NOPlT
C----- IF VALID - 60
C----- IF INVALID - 55
C-----
IFCKARDI 55.51.55
51 IFCNOPLT) 55,55.52
52 IFCNOPlt - 6) 60.60,55
e-----
55 WRITEC1.2)
2 FORMATC'CHECK CC 1 AND CC 80 ON FIRST CARD')
PAUSE
1
GO TO 99999
PAY06
PAY06
PAY06
PAY06
PAY06
-PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAV06
C----- - - - - - - - -
e----
- - - - - - - - - - - - - - - - - - -PAY06
PAY06
C----- READ PLANT INFORMATION RECORD
C-----
FROM DISK, AND FINISH INITIAlIZING.PAY06
PAY06
60 READ(25'NOPLT) COMP.
1
leNT
C-----
ICHCK. IWEEK, FIBRE, ITOT, CKMAX, TGRS, TNET,PAV06
PAY06
PAY06
C
INDX-NOPLT
+
100
GO TO C76,77,78,79.80.811.NOPLT
76
ILST-250
GO TO
83
77
ILST-90
GO TO 83
78 ILST-200
GO TO 83
79 ILST-SO
GO TO 83
80 ILST-150
GO TO 83
81 I LST-30
C----- - - - - - - - - - - - - - - - - - -
C-----
c----- INITIALIZE PLANT VARIABLES AND READ
123
PAV06
PAY06
PAY06
PAY06
PAV06
PAV06
PAV06
PAV06
PAV06
PAV06
PAY06
PAY06
PAV06
PAV06
-PAV06
PAV06
AN EMPLOVEE RECORD FROM DISK.PAV06
Page
127