Compaq COBOL AAQ2G1FTK User Manual
Page 379
Producing Printed Reports
10.9 Report Writer Examples
Example 10–10 (Cont.) Sample Program EX1010
01
FINAL-FOOTING TYPE IS CONTROL FOOTING FINAL
NEXT GROUP NEXT PAGE.
02
LINE IS PLUS 2.
03
COLUMN
70
PIC X(42) VALUE ALL "*".
02
LINE IS PLUS 1.
03
COLUMN
14 PIC X(21) VALUE "GRAND TOTAL RECORDS: ".
03 FDC
COLUMN
40 PIC ZZZ,ZZZ,ZZ9 SUM IDC.
03
COLUMN
70 PIC X(24) VALUE "*
GRAND TOTAL INVOICES:".
03 FIA
COLUMN
94 PIC $,$$$,$$$,$$$.99- SUM IIA.
03
COLUMN
111 PIC X VALUE "*".
02
LINE IS PLUS 1.
03
COLUMN
70
PIC X(42) VALUE ALL "*".
01
REPORT-FOOTER TYPE IS REPORT FOOTING.
02
LINE 24
ON NEXT PAGE COLUMN
45
PIC X(31) VALUE ALL "*".
02
LINE 25.
03
COLUMN
45
PIC X VALUE "*".
03
COLUMN 75
PIC X VALUE "*".
02
LINE 26.
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 "*".
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 EX1010
*".
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 "*".
(continued on next page)
Producing Printed Reports 10–79