IBM 1130 User Manual page 290

Section Subsections Page
35
20
I
10
65
•
II FOR
PAY03
*
IOCSICARD,TYPEWRITER,KEYBOARD
,0 I SIO
PAY03
*
NAME PAY03
PAY03 •
*
ONE WORD INTEGERS
PAY03
*
EXTENDED PRECISION
PAY03
*
LIST ALL PAY03
•
C----- JOB NAME PAYROLL SYSTEM - CHANGES TO THE FILE
PAY03
C----- JOB NUMBER PAY03
PAY03
C-----
PAY03
•
C----- PROGRAMMER C.R.KLICK
PAY03
C----- DATE CODED 01/06/68
PAY03
C----- DATE UPDATED
PAY03
•
C-----
PAY03
C-----
FILE
FILE RECORD NO. OF RECORDS PAY03
C----- NAME NUMBER LENGTH RECORDS PER
SECTO~PAY03
•
C----- INPUT FILES 1. COLFP
1 160 250 2 PAY03
C----- 2. WVAFP 2 160 90
2 PAY03
C----- 3. MNCFP 3 160 200
2
PAY03
•
C----- 4.
LBOFP
4 160 50 2 PAY03
C----- 5. LBTFP 5
160 150 2 PAY03
C----- 6. LMCFP 6 160 30
2 PAY03
•
C-----
7.
INDXl 101 1 250 320 PAY03
C----- 8. INDX2
102 1 90 320 PAY03
C----- 9. INOX3
103 1 200 320 PAY03 •
C----- 10. INDX4 104
1 50 320 PAY03
C----- 11. INOX5 105 1 150
320
PAY03
C----- 12. INDX6
106 1 30 320 PAY03
•
C-----
PAY03
C----- OUTPUT FILES -- 1. COLFP 1 160
250 2 PAY03
C-----
2. WVAFP
2 160 90
2 PAY03
•
C----- 3. MNCFP 3 160 200
2
PAY03
C-----
4. LBOFP
4 160 SO
2
PAY03
C-----
S. LBTFP
5 160 150 2 PAY03
•
C-----
6. LMCFP
6 160 30 2 PAY03
C-----
7.
INDXl 101
1 250 320 PAY03
C----- 8. INDX2 102 1 90
320
PAY03
•
C----- 9. INDX3 103 1 200
320
PAY03
C----- 10. INDX4 104 1 SO 320 PAY03
C--"--
11. INDXS 105 1 150
320 PAY03 •
Coo---- 12. INDX6 106 1
30 320 PAY03
C-----
-
-
-
- - -
-
-
- -
- -
-
-PAY03
Coo----
PAY03
•
C----- ALLOCATE ARRAY STORAGE
PAY03
C----- PAY03
DIMENSION INDEX(2S0), ISUPP(13), NAMEI91, NSSANI31, QRTDI61, PAY03
•
1 YTDI141 PAY03
c-----
PAY03
C-----
DEFINE THE FILES FOR THIS PROGRAM AS DESCRIBED ABOVE, AND PAY03
•
C---"- EQUIVALENCE THE VARIABLES FOR THE NEXT RECORD NUMBER. PAY03
C----oo PAY03
DEFINE FILE 1(250,160,U,ICOLI, 2190,160,U,IWVAI, PAY03
61