The following figure is displayed when you select option 4 from the Print Selection Menu. This screen enables you to print record layouts stored in a record layout dataset.

Print Record Layout screen

File-AID -------------------- Print Record Layout ---------------------------- COMMAND ===> Specify Record Layout Information: Record layout dataset ===> FASAMP.LAYOUTS Member ===> * (Blank = member list; * = all members) Expand occurrences ===> Y (Y=YES,N=NO) Specify Batch JCL Information: Sysout class ===> * Specify JOB Statement Information: ===> //USERID9 JOB ('OFAQC21.1',81),'AUDIT', ===> // CLASS=P,NOTIFY=USERID9,MSGCLASS=R ===> ===> Use JCL command to edit generated JCL Use SUBMIT command to submit batch job Use END to return to main print panel without submitting job
Field Descriptions
Specify Record Layout Information:

Record layout dataset

Enter the record layout dataset to print. Use the naming conventions described in Specifying a dataset name.

You can enter a pattern dataset name in this field to display a list of data sets from which you can make a selection. A pattern dataset name or mask consists of explicit characters or a combination of explicit and pattern characters. See Pattern dataset names for a complete description.

Enter the FILELIST primary command or blank out the Dataset name field to display the Last Referenced File List. For more information, see Last Referenced File List.

Member name

Specify the member name. You can leave this field blank or enter a pattern member name to display a list of members from which you can make a selection. A pattern member name or mask consists of explicit characters or a combination of explicit and pattern characters. See the section entitled “Pattern Member Names” in the File-AID/MVS Online Reference Manual for a complete description. Pattern names cannot be entered in both the Dataset name and Member name fields at the same time.

Enter an asterisk (*) in the Member field to print all members of a partitioned record layout dataset.

Expand occurrences

When a record layout which contains an OCCURS or ODO you can specify to print all occurrences (YES) or only the first occurrence of each field.

Y

(Default) Print all occurrences.

N

Print only the first occurrence.

      • Only the first occurrence of an OCCURS/ODO will print
      • Each field number is printed once
      • Printed FLD START position is for the first occurrence
Specify Batch JCL information:

Sysout class

Enter the sysout class for the Record Layout Report. See Record Layout Report for a description of the report.

Specify JOB Statement Information:

Enter the job statement for the batch job.

After you complete the information on the screen, use the SUBMIT primary command to submit the job. You can edit the generated JCL before you submit it. Use the JCL command to display a PDF Edit screen. See Generated JCL.

Use the END command (PF3) to exit the Print Record Layout screen.

You can also execute the Print Record Layout function as a separate step in a batch job by coding the appropriate JCL. Refer to Executing Print Record Layout Independently in Batch for an illustration of the JCL.

Record Layout Report

The Record Layout report displays the level number and data-name, picture, starting and ending positions, and length for each item in the record layout. The level number and data-name are displayed in a format similar to Edit formatted.

COBOL Sample

The COBOL layout shown in the following figure generates the File-AID Print report shown in COBOL Layout Report.

Sample COBOL Record Layout

 01 EMPLOYEE-MASTER-FILE. 05 EMP-NUMBER PIC X(5). 05 EMP-LAST-NAME PIC X(15). 05 EMP-FIRST-NAME PIC X(10). 05 EMP-MID-INIT PIC X. 05 FILLER PIC X(2). 05 EMP-TITLE PIC X(30). 05 EMP-PERSONAL-INFO. 10 EMP-NATL-ID-NUMBER PIC 9(9). 10 FILLER PIC X(01). 10 EMP-DATE-OF-BIRTH PIC X(6). 10 EMP-DOB-REDEF REDEFINES EMP-DATE-OF-BIRTH. 15 EMP-DOB-MM PIC 99. 15 EMP-DOB-DD PIC 99. 15 EMP-DOB-YY PIC 99. 10 EMP-HIRE-DATE PIC X(6). 10 EMP-MARITAL-STATUS PIC X. 05 EMP-WITHOLD-INFO. 10 EMP-LIFE-INS-WITHOLD-AMT PIC S9999V99. 10 EMP-NATL-TAX-WITHOLD-PCT PIC S999V99 COMP-3. 10 EMP-REGION-TAX-WITHOLD-PCT PIC S999V99 COMP-3. 10 EMP-LOCAL-TAX-WITHOLD-PCT PIC S999V99 COMP-3. 05 EMP-HOME-ADDRESS. 10 EMP-STREET-ADDRESS PIC X(25). 10 FILLER PIC X(01). 10 EMP-CITY PIC X(15). 10 EMP-STATE-PROV-CNTY. 15 EMP-STATE PIC XX. 15 FILLER PIC XX. 10 EMP-POSTAL-CODE PIC 9(5). 05 EMP-EMERGENCY-CONTACT. 10 EMP-CONTACT-NAME PIC X(25). 10 FILLER PIC X(02). 10 EMP-CON-WORK-PHONE PIC X(10). 10 EMP-CON-HOME-PHONE PIC X(10).

COBOL Layout Report

08 JAN 2004 File-AID 21.1 PRINT FACILITY 16:34:10 PAGE 1 RECORD LAYOUT REPORT RECORD LAYOUT DATASET : USERID9.FASAMP.LAYOUTS MEMBER : EMPLOYEE ------- FIELD LEVEL/NAME ---------- --PICTURE-- FLD START END LENGTH EMPLOYEE-MASTER-FILE 1 198 198 5 EMP-NUMBER X(5) 1 1 5 5 5 EMP-LAST-NAME X(15) 2 6 20 15 5 EMP-FIRST-NAME X(10) 3 21 30 10 5 EMP-MID-INIT X 4 31 31 1 5 FILLER XX 5 32 33 2 5 EMP-TITLE X(30) 6 34 63 30 5 EMP-PERSONAL-INFO GROUP 7 64 86 23 10 EMP-NATL-ID-NUMBER 9(9) 8 64 72 9 10 FILLER X 9 73 73 1 10 EMP-DATE-OF-BIRTH X(6) 10 74 79 6 10 EMP-DOB-REDEF REDEFINES EMP-DATE-OF-BIRTH 10 EMP-DOB-REDEF GROUP 11 74 79 6 15 EMP-DOB-MM 99 12 74 75 2 15 EMP-DOB-DD 99 13 76 77 2 15 EMP-DOB-YY 99 14 78 79 2 10 EMP-HIRE-DATE X(6) 15 80 85 6 10 EMP-MARITAL-STATUS X 16 86 86 1 5 EMP-WITHOLD-INFO GROUP 17 87 101 15 10 EMP-LIFE-INS-WITHOLD-AMT S9(4)V99 18 87 92 6 10 EMP-NATL-TAX-WITHOLD-PCT S999V99 19 93 95 3 10 EMP-REGION-TAX-WITHOLD-PCT S999V99 20 96 98 3 10 EMP-LOCAL-TAX-WITHOLD-PCT S999V99 21 99 101 3 5 EMP-HOME-ADDRESS GROUP 22 102 151 50 10 EMP-STREET-ADDRESS X(25) 23 102 126 25 10 FILLER X 24 127 127 1 10 EMP-CITY X(15) 25 128 142 15 10 EMP-STATE-PROV-CNTY GROUP 26 143 146 4 15 EMP-STATE XX 27 143 144 2 15 FILLER XX 28 145 146 2 10 EMP-POSTAL-CODE 9(5) 29 147 151 5 5 EMP-EMERGENCY-CONTACT GROUP 30 152 198 47 10 EMP-CONTACT-NAME X(25) 31 152 176 25 10 FILLER XX 32 177 178 2 10 EMP-CON-WORK-PHONE X(10) 33 179 188 10 10 EMP-CON-HOME-PHONE X(10) 34 189 198 10 *** END OF LAYOUT REPORT ***

PL/I Sample

The PL/I layout shown in the following figure generates the File-AID Print report shown in PL/I Layout Report.

Sample PL/I Record Layout

 DCL 1 EMPLOYEE_MASTER_FILE, 5 EMP_NUMBER CHAR(05), 5 EMP_LAST_NAME CHAR(15), 5 EMP_FIRST_NAME CHAR(10), 5 EMP_MID_INIT CHAR(01), 5 FILLER CHAR(02), 5 EMP_TITLE CHAR(30), 5 EMP_PERSONAL_INFO, 10 EMP_NATL_ID_NUMBER CHAR(09), 10 FILLER CHAR(01), 10 EMP_DATE_OF_BIRTH CHAR(06), 10 EMP_HIRE_DATE CHAR(06), 10 EMP_MARITAL_STATUS CHAR(01), 5 EMP_WITHOLD_INFO, 10 EMP_LIFE_INS_WITHOLD_AMT PIC '9999V99', 10 EMP_NATL_TAX_WITHOLD_PCT FIXED DEC (5,2), 10 EMP_REGION_TAX_WITHOLD_PCT FIXED DEC (5,2), 10 EMP_LOCAL_TAX_WITHOLD_PCT FIXED DEC (5,2), 5 EMP_HOME_ADDRESS, 10 EMP_STREET_ADDRESS CHAR(25), 10 FILLER CHAR(01), 10 EMP_CITY CHAR(15), 10 EMP_STATE_PROV_CNTY, 15 EMP_STATE CHAR(02), 15 FILLER CHAR(02), 10 EMP_POSTAL_CODE CHAR(05), 5 EMP_EMERGENCY_CONTACT, 10 EMP_CONTACT_NAME CHAR(25), 10 FILLER CHAR(02), 10 EMP_CONT_WORK_PHONE CHAR(10), 10 EMP_CONT_HOME_PHONE CHAR(10);

PL/I Layout Report

08 JAN 2004 File-AID 21.1 PRINT FACILITY 15:38:57 PAGE 1 RECORD LAYOUT REPORT RECORD LAYOUT DATASET : USERID9.FASAMP.LAYOUTS MEMBER : PLIEMP ------- FIELD LEVEL/NAME ---------- --PICTURE-- FLD START END LENGTH EMPLOYEE_MASTER_FILE 1 198 198 5 EMP_NUMBER CHAR(5) 1 1 5 5 5 EMP_LAST_NAME CHAR(15) 2 6 20 15 5 EMP_FIRST_NAME CHAR(10) 3 21 30 10 5 EMP_MID_INIT CHAR(1) 4 31 31 1 5 FILLER CHAR(2) 5 32 33 2 5 EMP_TITLE CHAR(30) 6 34 63 30 5 EMP_PERSONAL_INFO GROUP 7 64 86 23 10 EMP_NATL_ID_NUMBER CHAR(9) 8 64 72 9 10 FILLER CHAR(1) 9 73 73 1 10 EMP_DATE_OF_BIRTH CHAR(6) 10 74 79 6 10 EMP_HIRE_DATE CHAR(6) 11 80 85 6 10 EMP_MARITAL_STATUS CHAR(1) 12 86 86 1 5 EMP_WITHOLD_INFO GROUP 13 87 101 15 10 EMP_LIFE_INS_WITHOLD_AMT PFXU(6,2) 14 87 92 6 10 EMP_NATL_TAX_WITHOLD_PCT DFX(5,2) 15 93 95 3 10 EMP_REGION_TAX_WITHOLD_PCT DFX(5,2) 16 96 98 3 10 EMP_LOCAL_TAX_WITHOLD_PCT DFX(5,2) 17 99 101 3 5 EMP_HOME_ADDRESS GROUP 18 102 151 50 10 EMP_STREET_ADDRESS CHAR(25) 19 102 126 25 10 FILLER CHAR(1) 20 127 127 1 10 EMP_CITY CHAR(15) 21 128 142 15 10 EMP_STATE_PROV_CNTY GROUP 22 143 146 4 15 EMP_STATE CHAR(2) 23 143 144 2 15 FILLER CHAR(2) 24 145 146 2 10 EMP_POSTAL_CODE CHAR(5) 25 147 151 5 5 EMP_EMERGENCY_CONTACT GROUP 26 152 198 47 10 EMP_CONTACT_NAME CHAR(25) 27 152 176 25 10 FILLER CHAR(2) 28 177 178 2 10 EMP_CONT_WORK_PHONE CHAR(10) 29 179 188 10 10 EMP_CONT_HOME_PHONE CHAR(10) 30 189 198 10 *** END OF LAYOUT REPORT ***

The starting and ending position, and length are shown for both elementary and group items. Each layout starts at page 1.

The end of the report is indicated by an *** END OF LAYOUT REPORT *** message.

Executing Print Record Layout Independently in Batch

The print record layout function can be executed as a separate step in a batch job by coding the JCL shown in the following figure.

Batch Print Record Layout JCL

//JS10 EXEC PGM=FILEAID,REGION=8M //STEPLIB DD DISP=SHR,DSN=hlq.CXVJLOAD // DD DISP=SHR,DSN=hlq.SXVJLOAD //SYSPRINT DD SYSOUT=* //SYSLIST DD SYSOUT=* //DD01 DD DSN=USERID9.FASAMP.LAYOUTS, // DISP=SHR //SYSIN DD * $$DD01 RLPRINT MEMBER=EMPLOYEE /* //

Batch Print Concatenated Record Layout JCL

//JS10 EXEC PGM=FILEAID,REGION=08M //STEPLIB DD DISP=SHR,DSN=SYS2.CW.VJ.CW01.R2101.CXVJLOAD // DD DISP=SHR,DSN=SYS2.CW.VJR21A.SXVJLOAD //SYSPRINT DD SYSOUT=* //SYSLIST DD SYSOUT=* //DD01 DD DISP=SHR,DSN=USERID9.LAYOUT1 // DD DISP=SHR,DSN=USERID9.LAYOUT2 // DD DISP=SHR,DSN=USERID9.LAYOUT3 // DD DISP=SHR,DSN=USERID9.LAYOUT4 //SYSIN DD * $$DD01 RLPRINT MEMBER=(EMPLOYEE),EXPAND_OCCURS=N /*

Sample Concatenated Record Layout Report

26 SEP 2022 FILE-AID 21.01 PRINT FACILITY 10:58:26 PAGE 1 RECORD LAYOUT REPORT RECORD LAYOUT DATASETS: USERID9.LAYOUT1 (000) USERID9.LAYOUT2 (001) USERID9.LAYOUT3 (002) USERID9.LAYOUT4 (003) MEMBER : EMPLOYEE (002) ------- FIELD LEVEL/NAME ---------- --PICTURE-- FLD START END LENGTH EMPLOYEE-MASTER-FILE-3333 1 198 198 5 EMP-NUMBER X(5) 1 1 5 5 5 EMP-LAST-NAME X(15) 2 6 20 15 5 EMP-FIRST-NAME X(10) 3 21 30 10 5 EMP-MID-INIT X 4 31 31 1

Record Layout Print Execution Return Codes

The record layout print execution return codes are the same as the data file print execution codes with the exception of return code 4. Return code 4 does not apply to the record layout print execution. See Print Execution Return Codes for a summary of the return codes.