Using Auxiliary Disposition › Batch Auxiliary Disposition › Batch Auxiliary Disposition Example

Batch Auxiliary Disposition Example

To perform the identical functions illustrated in the Real-time Auxiliary Disposition Example, the TMSDISP program could be executed as an additional 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
//

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 can be any value for batch Auxiliary Disposition; the ddname does not have to be the actual ddname used in the PAYMASTR JCL.

If the Online Label Interface is not available at the time an external label request is made, the following console message is generated:

IEBTMS97-05 LABEL REQUEST FOR xxxxxx FAILED - ONLINE LABELS INTERFACE
INACTIVE