When a VAULT Movement job completes, is there a way to get the 3494 robot library to eject the carts to be moved automatically?

Document ID : KB000054108
Last Modified Date : 14/02/2018
Show Technical Document Details

Question:

The TSIDUTL MOVESLT job completes normally, listing the carts to be moved offsite, but these carts are not ejected. Is it possible to do this automatically?

Answer:

 

The TSIDUTL command 'ACLEJECT' may be added to vaulting jobs to initiate ejection of any carts moved.
Before the statement // EXEC LISTLOG insert the following JCL:

// JOB VLTMOVE      VAULT Movement and REPORT 
* //WORK    DD DSN=EPIC.WORK.TSUTIL,DISP=(NEW,DELETE), 
* //       VOL=SER=DSKPO1,SPACE=(TRK,100) 
* //SORTWK1 DD DSN=&&EPIC1,DISP=(NEW,DELETE), 
* //       VOL=SER=DSKPO1,SPACE=(TRK,100) 
* //ACLFIL1 DD DSN=EPIC.EJECTION.ACL,DISP=(NEW,KEEP), 
* //       VOL=SER=DSKPO1,SPACE=(TRK,100,RLSE) 
// EXEC TSIDVLT 
MOVESLT 
/* 
// LIBDEF PROC,SEARCH=PRD2.REXX 
// EXEC REXX=VLTLISTE 
* $$ LST CLASS=R,DEST=(,xyz),DISP=K,JSEP=0 
/* 
* ACLEJECT 
* //WORK DD DSN=EPIC.TSIDUTL.WORK,DISP=(NEW,DELETE),
* //       VOL=SER=DSKPO1,SPACE=(TRK,100) 
* //SORTWK1 DD DSN=&&EPIC1,DISP=(NEW,DELETE), 
* //       VOL=SER=DSKPO1,SPACE=(TRK,100) 
/* 
// EXEC TSIDUTL
ACLEJECT
/*
// EXEC LISTLOG
/*

Additional Information:

Please see the CA EPIC for VSE 5.2 User Guide, Chapter 12 Managing Tape Movement, for additional information.

Link to CA Epic User Guide https://support.ca.com/cadocs/0/d000623e.pdf