The text read off it
[page 91]
Commercial Translator Procedure Description — Sample Payroll, page 1 of 10 (page 91).
01 *PROCEDURE
02 CALL (EMPLOYEE.NUMBER) EMPLOYNO,
03 (BONDEDUCTION) BONDEDUCT,
04 (BONDENOMINATION) BONDENOM,
05 (BONDACCUMULATION) BONDACCUM,
06 (INSURANCE.PREM) INSPREM,
07 (RETIREMENT.PREM) RETPREM,
08 (DEPARTMENT.TOTAL) DPT.
09 START. OPEN ALL FILES.
10 GET.MASTER. GET MASTER, AT END DO END.OF.MASTERS.
11 GET.DETAIL. GET DETAIL, AT END GO TO END.OF.DETAILS.
12 COMPARE.EMPLOYEE.NUMBERS.
GO TO COMPUTE.PAY WHEN DETAIL EMPLOYNO
13 IS EQUAL TO MASTER EMPLOYNO, LOW.DETAIL WHEN DETAIL
14 EMPLOYNO IS LESS THAN MASTER EMPLOYNO.
15 HIGH.DETAIL. MOVE 'M' TO MASTER ERRORCODE, FILE MASTER IN
16 ERROR.FILE.
17 GET MASTER, AT END DO END.OF.MASTERS.
18 GO TO COMPARE.EMPLOYEE.NUMBERS.