Compaq COBOL AAQ2G1FTK User Manual page 363

Example 10–8 (Cont.) Sample Program EX1008
03
03
03
03
03
03
03
02 LINE 29.
03
03
02 LINE 30 COLUMN 45
02 LINE 31.
03
03
02 LINE 32 COLUMN 45
PROCEDURE DIVISION.
DECLARATIVES.
BOR SECTION.
USE BEFORE REPORTING REPORT-HEADER.
EOR SECTION.
USE BEFORE REPORTING REPORT-FOOTER.
EOR-A.
DISPLAY "*** Created EX1008.LIS ***".
DET SECTION.
USE BEFORE REPORTING DETAIL-LINE.
DET-A.
IF SORTED-NAME = NAME
MOVE SORTED-RECORD TO CUSTOMER-MASTER-RECORD
ADD INVOICE-SALES TO SAVE-INVOICE-SALES
SUPPRESS PRINTING.
IF NAME = SPACES SUPPRESS PRINTING.
END DECLARATIVES.
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 "-".
COLUMN 61
PIC 9999
SOURCE UE-YEAR.
COLUMN 75
PIC X VALUE "*".
COLUMN 45
PIC X VALUE "*".
COLUMN 75
PIC X VALUE "*".
PIC X(31) VALUE "*
COLUMN 45
PIC X VALUE "*".
COLUMN 75
PIC X VALUE "*".
PIC X(31) VALUE ALL "*".
Producing Printed Reports
10.9 Report Writer Examples
End of Report EX1008
Producing Printed Reports 10–63
*".
(continued on next page)