Compaq COBOL AAQ2G1FTK User Manual
Page 371
Producing Printed Reports
10.9 Report Writer Examples
Example 10–9 (Cont.) Sample Program EX1009
03
COLUMN
45
PIC X VALUE "*".
03
COLUMN
55
PIC Z9
SOURCE UE-DAY.
03
COLUMN
57
PIC X
VALUE "-".
03
COLUMN
58
PIC 99
SOURCE UE-MONTH.
03
COLUMN
60
PIC X
VALUE "-".
03
COLUMN
61
PIC 9999
SOURCE UE-YEAR.
03
COLUMN
75
PIC X VALUE "*".
03
COLUMN
45
PIC X VALUE "*".
03
COLUMN 75
PIC X VALUE "*".
02
LINE 30 COLUMN
45
PIC X(31) VALUE "*
End of Report EX1009
*".
02
LINE 31.
03
COLUMN
45
PIC X VALUE "*".
03
COLUMN 75
PIC X VALUE "*".
02
LINE 32 COLUMN
45
PIC X(31) VALUE ALL "*".
PROCEDURE DIVISION.
DECLARATIVES.
BOR SECTION.
USE BEFORE REPORTING REPORT-HEADER.
EOR SECTION.
USE BEFORE REPORTING REPORT-FOOTER.
EOR-A.
DISPLAY "*** Created EX1009.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.
000-START.
DISPLAY "*** EX1009 ***".
DISPLAY "Enter Current Date (YYYYMMDD) :".
ACCEPT UNEDITED-DATE.
OPEN INPUT
SORTED-FILE.
OPEN OUTPUT PRINTER-FILE.
INITIATE MASTER-LIST.
PERFORM 200-READ-MASTER UNTIL NAME = HIGH-VALUES.
(continued on next page)
Producing Printed Reports 10–71