Utilities › TMSIDATA Utility—Build a TMC from VSAM or Operating System Catalog Listing › Report Description › Job Control Statements

Job Control Statements

//STEP1    EXEC PGM=IDCAMS                               *NOTES
//SYSPRINT DD  DSN=IDCAMS.LIST,
//             DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
//             SPACE=(CYL,(10,2))
//SYSIN    DD  *
 LISTCAT NONVSAM ALL CAT(ICF.VMVXE90)
 LISTCAT NONVSAM ALL CAT(CATALOG.BRES02)
/*
//STEP3    EXEC PGM=TMSIDATA,
//             [PARM='[DATEFMT=(fmt)][,MAXERR=nnnnn] [,EXITPGM=exitname]  
//             [,TMSXITE=exitname][,TMSXITU=exitname]  *NOTES
//STEPLIB  DD  DSN=CAI.CTAPLINK,DISP=SHR
//TMSRPT   DD  SYSOUT=A
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(2,2),,CONTIG)      *NOTES
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(2,2),,CONTIG)
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(2,2),,CONTIG)
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(2,2),,CONTIG)
//SORTWK05 DD  UNIT=SYSDA,SPACE=(CYL,(2,2),,CONTIG)
//SORTWK06 DD  UNIT=SYSDA,SPACE=(CYL,(2,2),,CONTIG)
//IDCAMS   DD  DSN=IDCAMS.LIST,DISP=SHR
//IEHLIST  DD  DSN=IEHLIST.LIST,DISP=SHR                 *NOTES
//VOLUME   DD  DSN=CAI.CA1.VOLUME,
//             DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
//             SPACE=(CYL,(10,2))
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(10,2))
//DSNB     DD  DSN=CAI.CA1.DSNB,
//             DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
//             SPACE=(CYL,(10,2))
//ERRDSNB  DD  DSN=CAI.CA1.ERRDSNB,
//             DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
//             SPACE=(CYL,(10,2))
//SYSPRINT DD  SYSOUT=A
//SYSOUT   DD  SYSOUT=A
//SYSIN    DD  *
 (control statements here)
/*
//

Notes:

• Before TMSIDATA can run, create catalog listings of the catalogs to be converted. STEP1 shows how to create an IDCAMS catalog listing. Do not change the default record format (RECFM) and record length (LRECL) of the IDCAMS list data set. This data set must be RECFM=VBA and LRECL=125. A larger block size (BLKSIZE) can be used to improve performance.
• When using Alpha Numeric exits TMSXITU and TMSXITE or EXITPGM=, specify your assembled exit names as a parameter.
• Sufficient sort work space must be available to accommodate all Volume records to be created. Volume records are 340 bytes.
• If there is no IEHLIST input, specify DUMMY.

Parameter Definitions

DATEFMT=(fmt)

Specifies the default date format to be used for output records. The date pattern indicated by (fmt) is limited to 10 bytes and must be enclosed in parentheses. This parameter is optional. For more information on valid date formats, see the Utilities and Reports Reference Guide. This parameter is optional.

MAXERR={500|nnnnn}

Specifies the number of errors accepted before the job is terminated with a 1021 abend. The value of nnnnn can have a maximum value of 99999. If this parameter is omitted, up to 500 errors (the default) is accepted before the job abends. This parameter is optional.

XITU=

Identifies the user exit load module name that TMSIDATA uses for alphanumeric volume serial number conversions. The name can be a maximum of eight bytes and must follow MVS naming conventions. This parameter is optional. If CA 1 is active, the active version of XITU will be used instead of what is specified here.

XITE=

Identifies the user exit load module name that TMSIDATA uses for alphanumeric volume serial number conversions. The name can be a maximum of eight bytes and must follow MVS naming conventions. This parameter is optional. If CA 1 is active, the active version of XITU will be used instead of what is specified here.

EXITPGM=

Identifies the user exit load module name that TMSIDATA uses before writing each TMC Volume output record. This exit enables you to modify any field within a Volume record, except the volume serial number itself. This parameter is optional.

JCL Considerations

TMSRPT

Contains error and status messages generated during TMSIDATA processing for TMS Report 35. This ddname is required.

IDCAMS

Contains the IDCAMS catalog listing data set. This ddname is required.

IEHLIST

Contains the optional IEHLIST catalog listing. If there is no IEHLIST input, DUMMY must be specified. This ddname is required.

VOLUME

Contains the formatted Volume records to be input to TMSFORMT. This ddname is required.

SYSUT1

Defines a temporary data set to be used for sorting DSNB records. This ddname is required.

DSNB

Contains the formatted DSNB records to be input to TMSAGGR. See ERRDSNB. This ddname is required.

ERRDSNB

Contains the error DSNB records which, optionally, can be manually corrected and merged with the DSNB records on DD DSNB for input to TMSAGGR. This ddname is required.

Note: When you run TMSA GGR, the TMSAGGR execute statement must include the 'SCAN=68' parameter.

SYSPRINT

Contains VSAM delete/define messages from IDCAMS. This ddname is required.

SYSOUT

Contains messages from your sort program. This ddname is required.