IBM 1130 User Manual page 292

•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
C-----
IF(K-9) 101.99.101
C-----
C----- DO PLANT NUMBERS AGREE
C----- YES - GO TO 1ns
C----- NO - GO TO 95
C-----
101 IF(NOPLT-ICLCK) 95.105.95
C-----
Section Subsections
35
20
I
10
PAGE 03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
C----- IF THE PROGRAM COMES THRU HERE. THE PLANT NUMBERS DO NOT AGREE.
PAYO)
PAY03
PAY03
C-----
95 WRITE(l.3) ICLCK. NUMB
) FORMAT('PLANT NOS DISAGREE FOR CLOCK NUMBER '11.13)
CALL STACK
GO TO 100
C-----
C----- PUT PARTS OF CLOCK NUMBER TOGETHER AND CHECK CHANGE CODE
C-----
lOS ICLCK-I(LCK
*
1000
+
NUMB
C-----
C----- ICHNG MUST BE BETWEEN 1 AND 16.
C----- IF NOT GO TO 104
C----- IF O.K. GO TO APPROPRIATE CHANGE ROUTINE.
C-----
IF(ICHNGI 104.104.106
106 IF(ICHNG - 16) 110.120.104
C-----
C----- CODE 14 INDICATES NEW EMPLOYEE. IF SO. GO TO 500.
C-----
110 IF(ICHNG-14) 120.500.120
C-----
C----- IF THE PROGRAM COMES THRU HERE. THE CHANGE CODE IS INVALID.
C-----
104 WRlTEl1.81 ICLCK
8 FORMATI'INVALID CHANGE CODE FOR '141
CALL STACK
GO TO 100
C-----
C----- LOCATE CLOCK NUMBER IN INDEX.
C-----
120 DO 125 I-1.LAST
IF(INDEXIII-ICLCKI 125.130.125
C-----
C----- GO TO 125 IF MO MATCH. 130 IF FOUND.
C-----
125 CONTINUE
C-----
C----- IF THE PROGRAM COMES THRU HERE. THE CLOCK NO. IS NOT IN THE
C-----
63
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAYOl
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAY03
PAYO]
PAYO]
PAY03
PAY03
PAY03
PAY03
PAY03
INDEXPAY03
PAY03
Page
67