Compaq COBOL AAQ2G1FTK User Manual
Page 359
Producing Printed Reports
10.9 Report Writer Examples
Example 10–8 (Cont.) Sample Program EX1008
03
INVOICE-NUMBER
PIC 999999.
03
INVOICE-SALES
PIC S9(5)V99.
03
INVOICE-DATE.
04
INV-DAY
PIC 99.
04
INV-MO
PIC 99.
04
INV-YR
PIC 9999.
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
COLUMN 45
PIC X(31) VALUE ALL "*".
02
LINE 25.
03
COLUMN 45
PIC X VALUE "*".
03
COLUMN 75
PIC X VALUE "*".
03
COLUMN 45
PIC X(31) VALUE "*
Customer Master File
*".
02
LINE 27.
03
COLUMN 45
PIC X VALUE "*".
03
COLUMN 75
PIC X VALUE "*".
02
LINE 28.
03
COLUMN 45
PIC X VALUE "*".
03
COLUMN 55
PIC Z9
SOURCE UE-DAY.
03
COLUMN 57
PIC X
VALUE "-".
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 "*".
(continued on next page)
Producing Printed Reports 10–59