Real-time Auxiliary Disposition Example

Using Auxiliary Disposition › Real-time Auxiliary Disposition › Real-time Auxiliary Disposition Example

Real-time Auxiliary Disposition Example

A PDS named CAI.CA1.AUXDISP contains a member for job PAYMASTR. PAYMASTR uses the following JCL:

//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
//OUTPUT05 DD  DSN=PAYROLL.FICA.MASTER(0),
//             DISP=MOD,UNIT=TAPE
//REPORT   DD  SYSOUT=A
//TMSDISP  DD  DSN=CAI.CA1.AUXDISP(PAYMASTR),
//             DISP=SHR
//

The PAYMASTR member in CAI.CA1.AUXDISP contains the following control statements:

INPUT01  A *** RETAIN VOLUME FOR THE NEXT JOB ***
OUTPUT01XALOUT=SUPV,*** DELIVER VOLUME TO SHIFT SUPV ***
OUTPUT02XA OUT=SAFE,*** DELIVER VOLUME TO SAFE STORAGE ***
OUTPUT03 A *** RETAIN VOLUME FOR THE NEXT JOB ***
OUTPUT04 A *** RETAIN VOLUME FOR THE NEXT JOB ***
OUTPUT05  M *** DELIVER VOLUME TO OFFSITE LOCATION ***

These results in the following Auxiliary Disposition processing actions:

A WTO is issued to route code 2 for the INPUT01 DD for volume 990082 on device 05A0:
```
IECTMS8 05A0.990082.0001. *** RETAIN VOLUME FOR THE NEXT JOB ***
```
A highlighted, nondeleteable WTO is issued to route code 2 for the OUTPUT01 DD:
```
IECTMS8 05A2.990133.0001 (SUPV).*** DELIVER VOLUME TO SHIFT SUPV ***
```
Volume 990133 on device 05A2 is marked out-of-area to an OUTCODE of SUPV, and an external label request is generated.
A highlighted, nondeleteable WTO is issued to route code 2 for the OUTPUT02 DD:
```
IECTMS8 05A3.990312.0001 (SAFE).*** DELIVER VOLUME TO SAFE STORAGE ***
```
In addition, the volume record for 990312 from drive 05A3 is marked out-of-area to an OUTCODE location of SAFE.

A WTO is issued to route code 2 for the OUTPUT03 DD and the OUTPUT04 DD:

IECTMS8 05A8.990819.0001 *** RETAIN VOLUME FOR THE NEXT JOB ***

IECTMS8 05A9.990015.0001 *** RETAIN VOLUME FOR THE NEXT JOB ***

The text "*** DELIVER VOLUME TO OFFSITE LOCATION ***" **" is passed to the Online Label Interface as user data. The user data can be used to generate a unique label for the volume associated with the OUTPUT05 DD.
If the Online Label Interface is not available at the time an external label request is made, the following console message is generated:
```
IEBTMS97-01 LABEL SEND REQUEST DID NOT COMPLETE SUCCESSFULLY
```