IBM 1130 User Manual page 351

Section
35
Subsections
Page
20
I
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
10 126
II
FOR
*
IOCS(CARD.TYPEWRITER.
*
NAME PAY06
1132 PRINTER,DISK)
*
ONE WORD INTEGERS
*
EXTENDED PREcISION
*
LIST ALL.
C---- JOB NAME
C----- JOB NUMBER
PAYROLL SYSTEM - CHECK REGISTER
PAV06
C-----
C----- PROGRAt ~ER
C----- DATE CODED
C----- DATE UPDATED
C-----
C-----
c~---­
c;:---.-
C---
C----
C-----
C-----
C-----
C-----
C-----
C----
C----
C-----
c--~-
C-----
C-----
INPUT FIL.ES --
C.R.KLICK
01/27/68
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
FILE
NAME
COLFP
WVAFP
MNCFP
L.BOFP
LBTFP
LMCFP
PINFO
INDXl
INDX2
INDX3
INDX4
INDX5
INDX6
c------
OUTPUT FILES -- NONE
C----- .. - - - - - - - - - - -
C-----
C----- ALLOCATE ARRAY STORAGE
c· .. ---
INTEGER (OMPC16). TAX
FILE
NUMBER
1
2
3
4
5
6
25
101
102
103
104
105
106
RECORD
LENGTH
160
160
160
160
160
160
106
1
1
1
1
1
1
NO. OF
RECORDS
250
90
200
50
150
30
6
250
90
200
50
150
30
PAYOo
PAYOo
PAYOo
PAYOo
PAYOo
PAYOo
PAY06
PAY06
PAY06
PAY06
PAY06
PAVOo
PAY06
RECORDS PAY06
PER SECTORPAY06
2 PAY06
2 PAY06
2 PAY06
2 PAYOo
2 PAY06
2 PAY06
3 PAY06
320 PAYOo
320 PAV06
320 PAV06
320 PAY06
320 PAV06
320 PAY06
PAV06
PAV06
-PAY06
PAV06
PAY06
PAY06
DIMENSION FIBRE(8). IDATE(3), 103(9), 106(9), 109(9), ISUPP(13),
PAY06
PAY06
PAV06
PAY06
PAY06
PAY06
1 ITOT(11), NAME(9), NDWK(3), NSSAN(3), aRTD(6),
YTD(l~)
C-"---
C----- OEFINE THE FIL.ES FOR THIS PROGRAM AS DESCRIBED ABOVE, AND
C----- EQUIVALENCE THE VARIABLES FOR THE NEXT RECORD NUMBER.
C-----
PAY06
DEFINE FILE
1 (250.160.U. H:;OLl. 2 (90. 160 .U. I WVA~ • PAVOo
1
2
3
4
1
EQUIVALENCE
3C200.160.U.MUNC),4C50.160.U.LBO). PAY06
5(150.160.U.LBT). 6C30.160.U.LMC), 25C6.106.U.IC), PAY06
101C250.1,U.IN1), 102(90,1.U,IN2), 103(200,1,U.IN3),PAV06
104(50.1,U,IN4), 105(150.1,U,IN5), 106C30.1,U,IN6) PAY06
C ICOL.IWVA.MUNC,LBO,LBT,LMC), PAY06
(IN1,IN2,IN3,IN4.IN5,IN6) PAY06
C----- - - - . - - - .. - - - - - - - - - - - - -
C-----
- - - - - - - - - - - -PAYOo
PAY06
PAY06
c---·-
INITIALIZE VARIABLES
122