IBM 1130 User Manual page 280

•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
II
FOR
*
IOCStCARD.TYPEWRITER.KEYBOARD
**
PAY02 PROGPAM
*
NAME PAY02
*
ONE WORD INTEGERS
*
EXTENDED PRECISION
*
LIST ALL
.DISK)
C----- JOB NAME
C----- JOB NUMBER
PAYROLL SYSTEM - ADD NAMES TO FIL.E
PAY02
C-----
C----- PROGRAMMER
C----- DATE CODED
C----- DATE UPDATED
C-----
C-----
C-----
C----- INPUT FILES
C-----
C-----
C-----
C-----
C-----
C-----
C-----
C-----
C-----
C-----
C-----
C-----
C.R.KLICK
12130/67
FILE
NAME
1. INDX1
2. INDX2
3. INDX3
4. INDX4
5.
INDX5
6.
INDX6
7. COLFP
WVAFP
MNCFP
LBOFP
L.BTFP
L.MCFP
8.
9.
10.
11.
12.
C----- OUTPUT FILES -- 1. COLFP
WVAFP
C----- 2.
C-----
3. MNCFP
C-----
4. LBOFP
C----- 5. LBTFP
C-----
6.
LMCFP
C----- - - - - - - - -
C-----
C----- ALLOCATE ARRAY STORAGE
C-----
FILE
NUMBER
101
102
103
104
105
106
1
2
3
4
5
6
1
2
3
4
5
6
RECORD
LENGTH
1
1
1
1
1
160
160
160
160
160
160
160
160
160
160
160
160
NO. OF
RECORDS
250
90
200
50
1S0
30
250
90
200
~o
150
30
250
90
200
50
150
30
Section
35
PAY02
PAY02
PAY02
PAY02
PAY02
PAY02
PAY02
PAY02
PAY02
PAY02
PAY02
PAY02
PAY02
PAY02
RECORDS PAY02
PER SECTORPAY02
320
PAY02
320 PAY02
320 PAY02
320 PAY02
320
PAY02
320
PAY02
2 PAY02
2 PAY02
2 PAY02
2 PAY02
2 PAY02
2 PAY02
2
2
2
2
2
2
PAY02
PAY02
PAY02
PAY02
PAY02
PAY02
PAY02
-PAY02
PAY02
PAY02
DIMENSION
1
INDExt2501. ISUPP(131. NAME(91, NSSAN(31, NUMB(9).
QRTD(61. YTDtl41
PAY02
PAY02
PAY02
PAY02
PAY02
PAY02
C-----
C----- DEFINE rHE FILES FOR THIS PROGRAM AS DESCRIBED ABOVE. AND
C----- EQUIVALENCE THE VARIABLES FOR THE NEXT RECORD NUMBER.
C----- PAY02
DEFINE FIL.E 1(250,160,U.ICOLI, 2(90,160,U,IWVAI. PAY02
1
2
3
4
EQUIVALENCE
3(200,160.U,MUNCI, 4t50.160,U,LBOI. PAY02
5t150.160.U.LBT). 6(30,160.U.LMC), 101(250.1.U.IN1).PAY02
l02(90.l.UtIN21, 103t200tl,UtIN3), l04(SO.1.U.IN41, PAY02
105t150,1.U.IN5). 106t30.1.U.IN6) PAY02
tICOL,IWVA.MUNC.LBO.LBT.LMC). PAY02
51
Subsections Page
20
I
10
55