Utilities › TMSDISP Utility—Perform Batch Auxiliary Disposition Processing › Control Statement Specification › Example

Example

The following TMSDISP program could be executed as a job step or as a job by itself:

//PAYMASTR JOB (accounting),CLASS=A,MSGCLASS=A
//STEP1    EXEC PGM=PAYROLLM
//INPUT01  DD  DSN=PAYROLL.WEEKLY,
//             DISP=SHR
//OUTPUT01 DD  DSN=PAYROLL.MONTHLY.MASTER(+1),
//             DISP=(NEW,CATLG),UNIT=TAPE
//OUTPUT02 DD  DSN=PAYROLL.MONTHLY.MASTER.BACKUP(+1),
//             DISP=(NEW,CATLG),UNIT=TAPE
//OUTPUT03 DD  DSN=PAYROLL.IRS.MASTER(0),
//             DISP=MOD,UNIT=TAPE
//OUTPUT04 DD  DSN=PAYROLL.SSA.MASTER(0),
//             DISP=MOD,UNIT=TAPE
//REPORT   DD  SYSOUT=A
//STEP2    EXEC PGM=TMSDISP
//STEPLIB  DD  DSN=CAI.CTAPLINK,DISP=SHR
//TMSDISP  DD  DSN=CAI.CA1.AUXDISP(PAYMASTR),
//             DISP=SHR
//

Note: If the number of volumes for a data set exceeds 20, and ICF catalogs are used to retrieve the VOLSER, only the first 20 volumes are processed due to a limitation of LOCATE functions in TMSDISP.

The control statements in the PAYMASTR PDS member are:

DSN=PAYROLL.WEEKLY
INPUT01  A *** RETAIN VOLUME FOR THE NEXT JOB ***
DSN=PAYROLL.MONTHLY.MASTER(0),LABEL
OUTPUT01XA OUT=SUPV,*** DELIVER VOLUME TO SHIFT SUPV ***
DSN=PAYROLL.MONTHLY.MASTER.BACKUP(0)
OUTPUT02XA OUT=SAFE,*** DELIVER VOLUME TO SAFE STORAGE ***
DSN=PAYROLL.IRS.MASTER(0)
OUTPUT03 A *** RETAIN VOLUME FOR THE NEXT JOB ***
DSN=PAYROLL.SSA.MASTER(0)
OUTPUT04 A *** RETAIN VOLUME FOR THE NEXT JOB ***

The ddname field of the Message control statement may be any value; it does not have to be the actual ddname used in the PAYMASTR JCL.