Introduction to the IBM Application Development Tools on z/OS and OS/390

Chapter 2. Introducing File Manager 67

Depending on your file structure, this might not matter to you. Otherwise, you will

have more data in your file than you may have intended. You just have to be

careful.

2.5 Copybook and include

File Manager V3 can process PL/I Includes as well as COBOL copybooks as

shown in Example 2-26 and Example 2-27.

Example 2-26 COBOL copybook

01 REC-TYPE01.

03 REC-TYPE PIC XX.

03 NAME PIC X(20).

03 EMPLOYEE-NO PIC 9(4) BINARY.

03 AGE PIC 9(4) BINARY.

03 SALARY PIC 9(7) PACKED-DECIMAL.

03 MONTH PIC 9(8) BINARY OCCURS 12 TIMES.

03 FILLER PIC XX.

01 REC-TYPE02.

05 REC-TYPE PIC XX.

05 NAME PIC X(20).

03 JOB-TITLE PIC X(14).

03 ADDR1 PIC X(20).

03 ADDR2 PIC X(20).

03 POSTCODE PIC X(4).

Example 2-27 PL/I Include

DECLARE 1 REC_TYPE01,

2 REC_TYPE CHAR(2),

2 NAME CHAR(20),

2 EMPLOYEE_NO BINARY FIXED(8),

2 AGE BINARY FIXED(8),

2 SALARY DECIMAL FIXED(7),

2 MONTH DIM(12) BINARY FIXED(16),

2 FILLER CHAR(2);

DECLARE 1 REC_TYPE02,

2 REC_TYPE CHAR(2),

2 NAME CHAR(20),

2 JOB_TITLE CHAR(14),

2 ADDR1 CHAR(20),

2 ADDR2 CHAR(20),

2 POSTCODE CHAR(4);