Compaq COBOL AAQ2G1FTK User Manual page 354

Producing Printed Reports
10.9 Report Writer Examples
Example 10–7 (Cont.) Sample Program EX1007
03
03
02 LINE 28.
03
03
03
03
03
03
02 LINE 29.
03
03
02 LINE 30.
03
02 LINE 31.
03
03
02 LINE 32 COLUMN 45
DECLARATIVES.
BOR SECTION.
USE BEFORE REPORTING REPORT-HEADER.
EOR SECTION.
USE BEFORE REPORTING REPORT-FOOTER.
EOR-A.
DISPLAY "*** Created EX1007.LIS ***".
END DECLARATIVES.
MAIN SECTION.
000-DO-SORT.
SORT SORT-FILE ON ASCENDING KEY SORT-NAME
WITH DUPLICATES IN ORDER
USING CUSTOMER-FILE
GIVING SORTED-FILE.
10–54 Producing Printed Reports
COLUMN 45
PIC X VALUE "*".
COLUMN 75
PIC X VALUE "*".
COLUMN 45
PIC X VALUE "*".
COLUMN 55
PIC Z9
SOURCE UE-DAY.
COLUMN 57
PIC X VALUE "-".
COLUMN 58
PIC 99
SOURCE UE-MONTH.
COLUMN 60
PIC X VALUE "-".
PIC 9999
SOURCE UE-YEAR.
COLUMN 75
PIC X VALUE "*".
COLUMN 45
PIC X VALUE "*".
COLUMN 75
PIC X VALUE "*".
COLUMN 45
PIC X(31) VALUE "*
COLUMN 45
PIC X VALUE "*".
COLUMN 75
PIC X VALUE "*".
PIC X(31) VALUE ALL "*".
End of EX1007.LIS *".
(continued on next page)