Compaq COBOL AAQ2G1FTK - Manual (Page 383)

Producing Printed Reports
10.10 Solving Report Problems
Figure 10–20 Printing Labels Four-Up
1 2 3 4
5 6 7 8
ZK−6088−GE
Example 10–11 Printing Labels Four-Up
IDENTIFICATION DIVISION.
PROGRAM-ID. REP02.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INPUT-FILE ASSIGN TO "LABELS.DAT".
SELECT REPORT-FILE ASSIGN TO "LABELS.REP".
DATA DIVISION.
FILE SECTION.
FD
INPUT-FILE.
01 INPUT-RECORD.
02
INPUT-NAME PIC X(20).
02 INPUT-ADDRESS PIC X(15).
02 INPUT-CITY PIC X(10).
02 INPUT-STATE PIC XX.
02 INPUT-ZIP PIC 99999.
FD REPORT-FILE.
01 REPORT-RECORD PIC X(132).
WORKING-STORAGE SECTION.
01
LABELS-TABLE.
03 NAME-LINE.
05
LINE-1 OCCURS 4 TIMES INDEXED BY INDEX-1.
07
LABEL-NAME PIC X(20).
07 FILLER PIC X(10).
03 ADDRESS-LINE.
05
LINE-2 OCCURS 4 TIMES INDEXED BY INDEX-2.
07
LABEL-ADDRESS PIC X(15).
07 FILLER PIC X(15).
03 CSZ-LINE.
05
LINE-3 OCCURS 4 TIMES INDEXED BY INDEX-3.
(continued on next page)
Producing Printed Reports 10–83