The text read off it
[90.05 sample-program listing, PDF p.195]
Compilation of Sample Problem, printer listing page 4 (PDF p.195).
DATE 10/18/61 TIME 2.45 ACCOUNT ID. CT PUBLICATIONS PAGE 4
156,00 GN)045 2 IR9(5) '03999'
157,00 GN)046 2 '200150'
158,00 GN)047 2 IR9(5) '04499'
159,00 GN)048 2 '250150'
160,00 GN)049 2 IR9(5) '04999'
161,00 GN)050 2 '300180'
162,00 GN)051 2 IR9(5) '06499'
163,00 GN)052 2 '300250'
164,00 GN)053 2 IR9(5) '07999'
165,00 GN)054 2 '300350'
166,00 GN)055 2 IR9(5) '99999'
167,00 GN)056 2 '300500'
168,00 GN)057 REDEF TABLE
169,00 71454 TABLE.ITEM 1 12
170,00 71455 RATE 2 IR99V999
171,00 71456 INSPREM 2 9V99
172,00 71457 RETPREM 2 9V99
*ENVIRONMENT
173,00 INPUTMASTER FILE INPUT,BINARY,TAPE,MASTER,BLOCKSIZE 300
174,00 SPECIFINPUTMASTER, UNIT1 'D1',OPENW,CLOSER
175,00 OUTPUTMASTER FILE OUTPUT,BINARY,TAPE,MASTER,BLOCKSIZE 300
176,00 SPECIFOUTPUTMASTER, UNIT1 'C1',OPENW,CLOSER
177,00 DETAILFILE FILE INPUT,BCD,TAPE,DETAIL,BLOCKSIZE 3
178,00 SPECIFDETAILFILE,UNIT1 'C2',OPENW,CLOSER,LOW
179,00 CHECKFILE FILE OUTPUT,BCD,TAPE,CHECK,BLOCKSIZE 20
180,00 SPECIFCHECKFILE,UNIT1 'D2',OPENW,CLOSER,LOW
181,00 PAYFILE FILE OUTPUT,BCD,TAPE,PAYRECORD,
DEPARTMENT.TOTAL,BLOCKSIZE 20
182,00 SPECIFPAYFILE, UNIT1 'D3',OPENW, CLOSER,LOW
183,00 BONDORDERFILE FILE OUTPUT,BCD,TAPE,BONDORDER,BLOCKSIZE 6
184,00 SPECIFBONDORDERFILE,UNIT1 'C3',OPENW,CLOSER,LOW
185,00 ERRORFILE FILE OUTPUT,BCD,TAPE,ERROROUT,BLOCKSIZE 6
186,00 SPECIFERRORFILE,UNIT1 'D4',OPENW,CLOSER,LOW
*PROCEDURE
187,00 71461 GN)000CALL (MASTER EMPLOYEE.NUMBER) M.EMP.NO,
71462 (DETAIL EMPLOYEE.NUMBER) D.EMP.NO,
71463 (DETAIL DEPARTMENT) D.DEPT,
71464 (MASTER BONDEDUCTION) M.BND.DED,
71465 (MASTER BONDACCUMULATION) M.BND.ACC.
188,00 71466 START. OPEN ALL FILES,
MOVE ZEROS TO INTERNAL.TOTALS, GRAND.TOTALS,
GET MASTER, AT END DO END.OF.MASTERS.
189,00 MOVE MASTER DEPARTMENT TO CURRENT.DEPT, GO TO GET.DETAIL.
190,00 71471 GET.MASTER. GET MASTER, AT END DO END.OF.MASTERS.
191,00 71474 GET.DETAIL. GET DETAIL, AT END GO TO END.OF.DETAILS.
192,00 71477 COMPARE.EMPLOYEE.NUMBERS. GO TO CHECK.NEW.DEPT WHEN D.EMP.NO =
M.EMP.NO, LOW.DETAIL WHEN D.EMP.NO LT M.EMP.NO.
193,00 71500 HIGH.DETAIL. MOVE 'M' TO ERRORTYPE, MOVE MASTER DAT TO
ERROROUT INFO,
FILE ERROROUT.
194,00 GET MASTER, AT END DO END.OF.MASTERS.
195,00 GO TO COMPARE.EMPLOYEE.NUMBERS.
196,00 71503 LOW.DETAIL. MOVE DETAIL TO ERROROUT INFO, MOVE 'D' TO ERRORTYPE,
Note: MASTER DAT (statement 193) refers to the level-2 group field named
DAT declared under MASTER on PDF p.192 (statement 2,00), which contains the
MASTER's EMPLOYEE.NUM(BER) group — not a truncation.