IBM 1130 User Manual page 363

Section
35
Subsections Page
20
I
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
10 138
// FOR
*
IOCSCCARD.TYPEWRITER.
*
NAME RAY09
*
ONE wORD INTEGERS
*
EXTENDED PRECISION
*
L.IST ALL
C .. ---- JOB NAME
C---•• JOB NUMBER
c-·-.·-
c--""'--
c;:-..... _-
C""'----
C ....... ·.,
c ... --··
C---·-
C-
w .,,. ...
C--,. .. •
C-----
c .. _-.. ..
c-_ ..... •
C-·-_ . . . .
C .... ·_-
c--......
c ..... ---
C-----
C-...... --
c-......... •
C-"---
PROGRAMMER
DATE CODED
DATE UPDAT'ED
INPUT IIL.ES
1132 PRINTER.DISK)
PAYROLL SYSTEM - 941 REPORT
PAY09
C.R.KLICK
02103/68
1.
Z.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
FILE
NAME
COLFP
WVAFP
MNCFP
LBOFP
L.BTFP
L.MCFP
INDXl
INDX2
INDX3
INDX4
INDX5
INDX6
FILE
NUMBER
1
2
3
4
5
6
101
102
103
104
105
106
RECURD
LENGTH
160
160
160
160
160
160
1
1
1
1
1
1
C----- OUTPUT FILES -- NONE
NO. OF
RECORDS
250
90
200
50
150
30
250
90
ZOO
50
150
30
PAV09
PAV09
PAV09
PAV09
PAV09
PAV09
PAV09
PAV09
PAV09
PAV09
PAV09
PAV09
PAV09
RECORDS PAV09
PER SECTORPAV09
:2 PAV09
2 PAVQ9
:2 PAV09
:2 PAV09
2 PAV09
:2 PAV09
320 PAY09
~20
PAY09
320
PAYJ9
~20
PAY09
320 PAY09
320 PAY09
PAY09
PAY09
C----- - . . . .. - .. - - -
- .... - - - - ... - - ...... - - - .. - - .... - -PAY09
c---·-
c .. _-·-
C-........
1
C-----
AL.LOCATE ARRAY STORAGE
PAY09
PAY09
DIMENSION
PAY09
IDATEC]I, IHDIC2Zl, IHD:2(,2Z), IHD3C22,. IHD4C,22), PAY09
ISSAN(9). ISUPPCI3). NAME(9), NSSANC3l, QRTD(6), VTDCI4)PAY09
C----- DEFINE THE FIL.ES FOR THIS PROGRAM AS DESCRIBED ABOVE, AND
PAY;)')
PAY09
PAY09
C----- eQuIVAL.ENCE THE VARIABL.ES FOR THE NEXT RECORD NUMBER,
C-----
DEFINE FILE
1
2
3
4
EQUIVAL.ENCE
1
c""'-.... -
C4llll'_----
PAYv9
PAYQ9
PAV09
~C250.160'U,ICOL). 2(90.160,U,IWVAI,
3C200,160.U,MUNC). 4(SO.160,U.LBOI,
5C150,160,U,L.BT), 6C30.160'~'LMC),
lOlC250.1,U.INl" 10:2(90,1,U,IN2),
l04(50.1.U,IN4). 105(150,l,U,IN5),
PAN9
103(,200.1,U.IN3) ,PAY09
106(3Q,1,U,INb) PAY09
(ICOL..IWVA,MUNC.LBO,LBT,LMC),
(IN1,IN2,IN3,IN4.IN5,lN61
PAY09
PAY09
c----·
INITIAL.IZE VARIABL.ES ANO READ PLANT
NO.,
DATE, AND
PAGE
~O.
-PAY09
PAY09
PAY09
PAY\J9
PAY09 lL.=16448
134