Section
35
Subsections
Page
20
I
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
10
82
II
FOR
*
IOCSICARD,TYPEWRITER,KEYBOARD,1132 PRINTER,DISK)
*
LIST ALL
**
PAY04 PROGRAM
*
NAME PAY04
*
ONE WORD INTEGERS
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
*
EXTENDED PRECISION
C----- JOB NAME
C----- JOB NUMBER
PAYROLL SYSTEM - CALCULATIONS
+
PAYROLL REGISTER
PAY04
PAY04
PAY04
PAY04
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-----
C.R.KLICK
01/13/68
FILE
NAME
1. COLFP
2. WVAFP
3. MNCFP
4. LBOFP
5. LBTFP
6. LMCFP
7.
PINFO
8.
INDX1
INDX2
INDX3
INDX4
INDX5
INDX6
9.
10.
11.
12.
13.
C----- OUTPUT FILES --
1. COLFP
C-----
2. WVAFP
C-----
3. MNCFP
C-----
4. LBOFP
C-----
5. LBTFP
C-----
6. LMCFP
C-----
7. PINFO
C----- - - - - - - - -
C-----
C----- ALLOCATE ARRAY STORAGE.
C-----
INTEGER COMP(16), TAX
FILE
NUMBER
1
2
3
4
5
6
25
101
102
103
104
105
106
1
2
3
4
5
6
25
RECORD
LENGTH
160
160
160
160
160
160
106
1
1
1
1
1
1
160
160
160
160
160
160
106
NO. OF
RECORDS
250
90
200
50
150
30
6
250
90
200
50
150
30
250
90
200
50
150
30
6
PAY04
PAY04
PAY04
PAY04
PAY04
RECORDS PAY04
PER SECTORPAY04
2
PAY04
2
PAY04
2
PAY04
2
PAY04
2
PAY04
2
PAY04
3
PAY04
320
PAY04
320
PAY04
320
PAY04
320
PAY04
320
PAY04
320
PAY04
2
2
2
2
2
2
3
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
-PAY04
PAY04
PAY04
PAY04
DIMENSION FIBRE(S)' IDATE(3), INDEX(250), ISUPP(13), ITOTlll)'
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
PAY04
1
KODE(3), NAME(9), NDWK(3), NSSAN(3), QRTD(6), SPECL(3),
2
TOT(21), YTD(14)
C-----
C-----
C-----
C-----
1
DEFINE THE FILES FOR THIS PROGRAM AS DESCRIBED ABOVE, AND
EQUIVALENCE THE VARIABLES FOR NEXT RECORD NuMBER.
DEFINE FILE
11250,160,U,ICOL), 2190,160,U,IWVA),
31200,160,U,MUNC),4150,160,U,LBO),
78
PAY04
PAY04
PAY04