IBM 1130 User Manual page 333

Section
35
Subsections Page
20
I
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
10 108
II
FOR
* IOCS(CARD,TYPEWRITER,KEYBOARD,1132 PRINTER,DISK)
*LIST ALL .
**
PAYOS PROGRAM
*
NAME PAY05
*
ONE WORD INTEGERS
*
EXTENDED PRI :ISION
C----- JOB NAME
C----- JOB NUMBER
PAYROLL SYSTEM - CHECK WRITING
PAYOS
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----- OUTPUT FILES --
C-----
C-----
C-----
C-----
C-----
C-----
c----- - - - - - - - -
C-----
C.~.KLICK
01120/68
FILE
NAME
1. COLFP
2. WVAFP
3. MNCFP
4. LBOFP
5. LBTFP
LMCFP
PINFO
INDXl
INDX2
INDX3
INDX4
INDXS
INDX6
6.
7.
8.
9.
10.
11.
12.
13.
1. COLFP
2. WVAFP
3. MNCFP
4. LBOFP
5. LBTFP
6. LMCFP
7. PINFO
C----- ALLOCATE ARRAV STORAGE
c-----
FILE
NUMBER
1
2
3
4
5
6
2S
101
102
103
104
lOS
106
1
2
3
4
S
6
2S
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
SO
1S0
30
6
2S0
90
200
SO
150
30
2S0
90
200
50
ISO
30
6
PAYOS
PAYOS
PAY05
PAY05
PAY05
PAYOS
PAYOS
PAYOS
PAYOS
PAYOS
PAYOS
PAYOS
PAYOS
PAVOS
RECORDS PAYOS
PER
SECTOI~PAYOS
2 PAYOS
2 PAYOS
2 PAYOS
2 PAYOS
2 PAVOS
2 PAY05
3 PAVOS
320 PAVOS
320 PAYOS
320 PAYOS
320 PAYOS
320 PAYOS
320 PAYOS
2
2
2
2
2
2
3
PAY05
PAY05
PAY05
PAYOS
PAYOS
PAYOS
PAYOS
PAYOS
-PAVOS
PAV05
PAY05
INTEGER COMP(l6), TAX, YINl(7), YIN2!61, YOUTl(7), YOUT2(6)
DIMENSION FIBRECS" IDATE(3), ISUPP(l3), ITOTClll, JGROS(7),
PAYOS
PAY05
PAY05
PAVOS
PAVOS
PAY05
1 JOUTlIS), JOUT2(7), JVACA(S), MASK(7), MASK2(7),
2 NAME(9), NDWK(3), NETO(7), NETl(7), NET2(7), NET4(7),
3 NSSAN(3), QRTD(6), YTD(14)
c-----
C----- DEFINE FILES FOR THIS PROGRAM AS DESCRIBED ABOVE, AND
C----- THE VARIABLES FOR THE NEXT RECORD NUMBER.
C-----
DEFINE FILE lC250,160,U,ICOL), 2(90,l60,U.IWVA),
104
PAYOS
EQUIVALENCEPAY05
PAYOS
PAY05
PAY05