IBM 1130 User Manual page 291

Section
35
Subsections Page
20 110
66
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
PAGE 02
1
2
3
4
3(200,160,U,MUNC),4(SO,160,U,lBO), PAY03
S(lSO,160,U,LBT), 6(30,160,U,LMC), 101C2S0,1,U,IN1) ,PAY03
102(90,l,UdN2), l03C200,ltUtlN3), 104(SOtl,U,IN4), PAY03
10S(150,1,U.INS), 106C30,1,U,IN6) PAY03
EQUIVALENCE C tCOl, IWVA,MUNC,LBO,LBT,LMC). PAY03
1
(IN1,IN2,IN3,IN4,IN5.IN6) PAY03
C-----
C-----
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -PAY03
C----- INITIALIZE VARIABLES
C-----
1000 ICOl=l
C-----
C-----
IN1=1
C----- READ PLANT NUMBER, CALCULATE THE FILE NUMBER OF THE INDEX FOR
C----- THE CURRENT PLANT. FINISH INITIALIZING VARIABLES.
C-----
READ(2,11 NOPLT
1 FORMAT<lll
C-----
INDX=100 + NOPLT
C-----
GO TO (80,81,82,83,84,8S),NOPLT
80 LST=250
GO TO 90
81 L.ST-90
GO TO 90
82 LST-200
GO TO 90
83 LST=50
GO TO 90
84 LST=150
GO TO 90
85 LST=30
PAY03
PAY03
PAY03
PAY03
PAY03
-PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
C----- - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - -PAY03
C-----
C-----
C-----
C-----
C-----
READ THE EMPLOYEE INDEX FOR THIS PL.ANT, READ A CHANGE CARD,
CHECK FOR L.AST CHANGE CARD, AND VALIDATE PL.ANT NUMBERS, CHANGE
CODE AND FIND CLOCK NUMBER IN INDEX.
90 READ(INDX'L.ST) L.AST
READ(INDX'11 CINDEXCII,I=l,lASTI
C-----
100 READC2,2) ICLCK, NUMB, ICHNG, NEW, K
2 FORMAT(Il,I3,I2,I5,68X,Il1
C-----
C----- IS THI: LAST CARD
C----- YES - GO TO 99
C----- NO - GO TO 101
62
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03