Tailoring the EDGJRPT sample JCL

Before you can use the JCL, you must customize the sample EDGJRPT JCL for your environment. Follow this procedure:

Modify the PAGEDEF and FORMDEF definitions in the OUTDDQ DD statement in step EXTRPDT.
1. Specify a valid font for your printer.
2. Define a printer address and a node to print your reports.
Change the data set name of the MESSAGE DD statements to your own data set name of the MESSAGE file.
Replace RMM.EXTRACT.FILE in the EDGJRPT JCL with the name of your extended extract data set. You must make this change wherever the RMM.EXTRACT.FILE file report name is specified.
Change the SPACE and UNIT parameter for the SORTOUT, SYSIN, and WORKFILE statements. Calculate the DASD space requirements by multiplying the number of data set records by 1400 bytes for each record.
Replace the "054" value, if you need to use a value other than 54. The lines per page are defined as a parameter to the EDGRRPTE REXX procedure.
Select your reports by using the REPORTnnDD names that are defined in the EDGJRPT JCL. Figure 1 shows a part of the sample JCL and how to pass parameters to the EDGRRPTE procedure. The example that is shown in Figure 1 selects all reports except REPORT06 and REPORT07, which are commented out.
Figure 1. Report selection
```
      //EXTRPDT  EXEC PGM=IKJEFT01,DYNAMNBR=99,REGION=4096K
       //SYSTSPRT DD   SYSOUT=*
       //SYSPRINT DD   SYSOUT=*
       //SORTIN   DD   DISP=SHR,DSN=RMM.EXTRACT.FILE
       //WORKFILE DD   DSN=&TEMP03,DISP=(,PASS,DELETE),
       //         SPACE=(CYL,(200,20),RLSE),UNIT=SYSALLDA,
       //         DCB=*.SORTIN
       //SYSIN    DD   DSN=&TEMP02,DISP=(,PASS,DELETE),
       //         SPACE=(TRK,(1,1),RLSE),UNIT=SYSALLDA,
       //         DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
       //SYSOUT   DD   SYSOUT=*
       //REPORT01 DD   SYSOUT=*,RECFM=VBA
       //REPORT02 DD   SYSOUT=*,RECFM=VBA
       //REPORT03 DD   SYSOUT=*,RECFM=VBA
       //REPORT04 DD   SYSOUT=*,RECFM=VBA
       //REPORT05 DD   SYSOUT=*,RECFM=VBA
       //*EPORT06 DD   SYSOUT=*,RECFM=VBA
       //*EPORT07 DD   SYSOUT=*,RECFM=VBA
       //REPORT08 DD   SYSOUT=*,RECFM=VBA
       //REPORT09 DD   SYSOUT=*,RECFM=VBA
       //REPORT10 DD   SYSOUT=*,RECFM=VBA
       //REPORT11 DD   SYSOUT=*,RECFM=VBA
       //REPORT12 DD   SYSOUT=*,RECFM=VBA
       //REPORT13 DD   SYSOUT=*,RECFM=VBA
       //REPORT14 DD   SYSOUT=*,RECFM=VBA
       //REPORT15 DD   SYSOUT=*,RECFM=VBA
       //REPORT16 DD   SYSOUT=*,RECFM=VBA
       //REPORT17 DD   SYSOUT=*,RECFM=VBA
       //REPORT18 DD   SYSOUT=*,RECFM=VBA
       //SYSTSIN  DD   *
         EX 'SYS1.SEDGEXE1(EDGRRPTE)' -
            '054 INTERNAL USE ONLY'
```
- SYSTSPRT specifies the name of the DD to which data is written for a REXX SAY instruction, for REXX error messages, or when tracing is started (in a language processor environment that is not integrated into TSO/E). The system default is SYSTSPRT.
- SYSPRINT contains the messages generated from external called functions and utilities.
- SORTIN specifies the data set name of the DFSMSrmm extract file containing the extended extract records.
- WORKFILE specifies the temporary data set used during processing to contain the extended extract records to improve the performance of creating your reports.
- SYSIN specifies the temporary data set used to store the SORT control statements.
- SYSOUT contains the messages generated from external called functions and utilities. The messages contain statistics, information, and error details. Use the messages to determine whether processing has been successful and to follow up on any nonzero return code.
- REPORTnn selects your reports by using the REPORTnn DD names that are defined in the EDGJRPT JCL.
If you would like to create the reports as a data set instead of SYSOUT=* you need to know the DCB information for each report file. You need to consider the line length of the report to be produced, the ASA control character and that the records are variable length. You only need to specify the LRECL if the data set already exists and the existing LRECL is too low a value. For new report files, the default LRECL is set to 251 by the Rexx EXECIO processor: If you really need to specify an LRECL other than 251 we list here the existing maximum record length for each report. These record lengths can change anytime we need to update the report; if you specify too short a value for LRECL the report lines are truncated and a warning message is issued by EXECIO.

For example: Abnormal end in output processing of DDname REPORT11.

Return code 01 was set.

Explanation: Data was truncated during DISKW operation.
Figure 2. Data control block (DCB) information for each Report file
```
  REPORT01 RECFM=VBA,LRECL=137
   REPORT02 RECFM=VBA,LRECL=137
   REPORT03 RECFM=VBA,LRECL=139
   REPORT04 RECFM=VBA,LRECL=139
   REPORT05 RECFM=VBA,LRECL=139
   REPORT06 RECFM=VBA,LRECL=137
   REPORT07 RECFM=VBA,LRECL=137
   REPORT08 RECFM=VBA,LRECL=137
   REPORT09 RECFM=VBA,LRECL=137
   REPORT10 RECFM=VBA,LRECL=137
   REPORT11 RECFM=VBA,LRECL=141
   REPORT12 RECFM=VBA,LRECL=137
   REPORT13 RECFM=VBA,LRECL=137
   REPORT14 RECFM=VBA,LRECL=137
   REPORT15 RECFM=VBA,LRECL=137
   REPORT16 RECFM=VBA,LRECL=137
   REPORT17 RECFM=VBA,LRECL=137
   REPORT18 RECFM=VBA,LRECL=137
```
Figure 3 shows how to replace the default security heading text. The security heading text can be up to 30 characters. The text can contain blanks or special characters and is written on each page. Use the continuation character "+" to suppress all the leading blanks in the new line.
Figure 3. Creating a Report security header
```
EX 'SYS1.SEDGEXE1(EDGRRPTE)' -
   '054 Internal use only'
        ################# --------- security heading text - up to 30 chars
```
Optionally, add the CCARD DD to overwrite the internal SORT statements, the security header, or the lines per page; or to exclude the setting of flags with volume chain errors in REPORT11 for specified data sets. Figure 4 shows an example of specifying the CCARD DD statements. Valid parameters that can be specified are:
- REPORTnn (nn= 01 to 18) for the SORT statements
- HEAD for the security header
- LINES for the lines per page
- /* for the end of the records
- XMSG11 to suppress the reporting of volume chain errors in REPORT11 for specified data sets. Specify the first letters of one or more dsnames after XMSG11.
.
Figure 4. Defining a CCARD DD statement
```
//CCARD DD *
 SORT06 SORT FIELDS=(156,8,CH,A,9,6,CH,D,915,4,CH,A)
 SORT06 INCLUDE COND=(5,1,CH,EQ,C'X',
 SORT06 AND,(583,1,CH,EQ,C'S',
 SORT06 OR,583,1,CH,EQ,C'U'))
 SORT06 OPTION VLSHRT
 LINES 20
 HEAD INTERNAL USE
 XMSG11 PROJ1. 
 XMSG11 TEST
 /*
```