Compaq COBOL AAQ2G1FTK User Manual page 372

Producing Printed Reports
10.9 Report Writer Examples
Example 10–9 (Cont.) Sample Program EX1009
100-END-OF-FILE.
TERMINATE MASTER-LIST.
CLOSE SORTED-FILE, PRINTER-FILE.
STOP RUN.
200-READ-MASTER.
READ SORTED-FILE AT END MOVE HIGH-VALUES TO NAME.
IF NAME NOT = HIGH-VALUES GENERATE DETAIL-LINE.
10–72 Producing Printed Reports