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