How to get the 3494 robot library to eject the carts to be moved automatically when a VAULT Movement job completes

Products

• EPIC Fastcat VSE
• EPIC for z/VSE

Issue/Introduction

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?

Environment

Component: EPIC-Disk Management

Resolution

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

EPIC for z/VSE User Guide Chapter 12 Managing Tape Movement