IBM 1130 User Manual page 267

Section
Subsections Page
35
20
I
10
42
•
II
FOR
PAYOl
*
IOCS(CARD,
KEYBOARD ,DISK) PAYOl
**
PAYOl PROGRAM
PAYOl
•
*
NAME PAYOl
PAYOl
*
ONE WORD INTEGERS
PAYOl
*
EXTENDED PRECISION
PAYOl
•
*
LIST ALL
PAYOl
C----- JOB NAME
PAYROLL SYSTEM - FILE CREATION
PAYOl
I
C----- JOB NUMBER PAYOl
PAYOl
•
C-----
PAYOl
C----- PROGRAMMER C.R.KLICK
PAYOl
C----- DATE CODED 12123/67
PAYOl
•
C----- DATE UPDATED
PAYOl
C-----
PAYOl
C-----
FILE FILE RECORD NO. OF
RECORDS PAYOl
•
C-----
NAME
NUMBER LENGTH RECORDS PER SECTORPAYOl
C----- INPUT FILES NONE
PAYOl
C-----
PAYOl
•
C----- OUTPUT FILES 1. COLFP
1
160
250 2
PAYOl
C-----
2. WVAFP 2 160 90 2
PAYOl
C-----
3. MNCFP 3 160 200
2 PAYOl
•
C-----
4. LBOFP
4
160
50
2
PAYOl
C-----
5. LBTFP 5 160 150 2 PAYOl
C-----
6. LMCFP 6 160 30 2
PAYOl
•
C-----
7. PINFO 25 106 6 3
PAYOl
C-----
8. INDXl 101 1
250 320 PAYOl
C----- 9. INDX2
102
1
90 320 PAYOl
•
C-----
10. INDX3 103 1 200 320
PAYOl
C-----
11. INDX4 104 1 50 320
PAYOl
C-----
12. INDX5 105 1 150 320
PAYOl
•
C-----
13. INDX6 106 1 30 320
PAYOl
C-----
-
- - -
-
-
-
-
-
- - - -
-PAYOl
C-----
PAYOl
•
C----- ALLOCATE ARRAY STORAGE PAYOl
C-----
PAYOl
INTEGER COMP(16)
PAVOl
•
DIMENSI~N
FIBRE(8), INDEX(250) , ISUPP(13) , I TOT ( 11), NAME (9) , PAYOl
1
NSSAN(3), QRTD(6), YTD(141 PAYOl
C-----
PAYOl
•
C----- DEFINE THE FILES FOR THIS PROGRAM AS DESCRIBED ABOVE, AND
PAYOl
C----- EQUIVALENCE THE VARIAALES FOR NEXT RECORD NUMBER
PAYOl
C-----
PAYOl
•
DEFINE FILE
1(2S0,160,U.ICOL), 2(90,160,U,IWVA), PAYOl
1
3(200,16Q,U.MUNC), 4(50,160,U,LBO), PAYOl
2
S(lSO.160,U.LBT), 6(30,160,U.LMC). 2S(6tl06,UdC),
PAVOl
•
3
lOl(250,1,U,IN1). 102(90tl,U,IN2), 103(200tl,U,IN3) ,PAVOl
4
l04(50tl,UtIN4) , lO5(150.1.U.IN5), 106(30tl,UtIN6) PAYOl
EQUIVALENCE (ICOL,IWVA,MUNC.LBO,LBT.LMCI, PAYOl
•
1
(IN1,IN2,IN3,IN4.IN5,IN61 PAYOl
C-----
- - - -
- - -
-
-
- - -
-
- -
-
-
- -
- - - -
-
- -
-
-
- -
-
-
-PAYOl
C-----
PAYOl
~
-----------
38