Compaq COBOL AAQ2G1FTK User Manual page 359

Example 10–8 (Cont.) Sample Program EX1008
03 INVOICE-NUMBER
03 INVOICE-SALES
03 INVOICE-DATE.
REPORT SECTION.
RD MASTER-LIST
PAGE LIMIT IS 66
HEADING 1
FIRST DETAIL 13
LAST DETAIL 55
CONTROLS ARE FINAL.
01 REPORT-HEADER TYPE IS REPORT HEADING NEXT GROUP NEXT PAGE.
02 LINE 24.
03
02 LINE 25.
03
03
03
02 LINE 27.
03
03
02 LINE 28.
03
03
03
03
03
03
PIC 999999.
PIC S9(5)V99.
04 INV-DAY PIC 99.
04 INV-MO PIC 99.
04 INV-YR PIC 9999.
COLUMN 45
PIC X(31) VALUE ALL "*".
COLUMN 45
PIC X VALUE "*".
COLUMN 75
PIC X VALUE "*".
COLUMN 45
PIC X(31) VALUE "* Customer Master File
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 "-".
PIC 99
SOURCE UE-MONTH.
COLUMN 60
PIC X VALUE "-".
COLUMN 61
PIC 9999
SOURCE UE-YEAR.
COLUMN 75
PIC X VALUE "*".
Producing Printed Reports
10.9 Report Writer Examples
*".
(continued on next page)
Producing Printed Reports 10–59