The text read off it
[page 92]
Commercial Translator Procedure Description — Sample Payroll, page 2 of 10 (page 92).
01 LOW.DETAIL. MOVE 'D' TO DETAIL ERRORCODE, FILE DETAIL IN
02 ERROR.FILE.
03 GO TO GET.DETAIL.
04 END.OF.MASTERS. IF DETAIL EMPLOYNO = HIGH.VALUE THEN GO TO
05 END.OF.RUN OTHERWISE SET MASTER EMPLOYNO = HIGH.VALUE.
06 END.OF.DETAILS. IF MASTER EMPLOYNO = HIGH.VALUE THEN GO TO
07 END.OF.RUN OTHERWISE SET DETAIL EMPLOYNO = HIGH.VALUE, GO
08 TO COMPARE.EMPLOYEE.NUMBERS.
09 END.OF.RUN. MOVE CORRESPONDING GRAND.TOTAL TO PAYRECORD, FILE
10 PAYRECORD, CLOSE ALL FILES.
11 STOP 1234.
12 COMPUTE.PAY. IF DETAIL HOURS IS GREATER THAN 40 THEN SET DETAIL
13 GROSS = (DETAIL HOURS - 40) * MASTER RATE * 1.5.
14 SET DETAIL GROSS = DETAIL GROSS + MASTER RATE * 40, DO
15 FICA.ROUTINE, DO WITHOLDING.TAX.ROUTINE.
16 IF MASTER BONDEDUCT IS NOT EQUAL TO ZERO THEN DO
17 BOND.ROUTINE.
18 DO SEARCH FOR INDEX = 1(1)12.
19 NET. SET PAYRECORD NETPAY = DETAIL GROSS - DETAIL FICA - DETAIL
20 WHT - DETAIL RETIREMENT - DETAIL INSURANCE - DETAIL
21 BONDEDUCT.