After cartridges have been inserted into a BTLS, they are set to a category of INSERT. A list of all tapes currently in the INSERT category can be obtained in machine-readable form (LIBOUT DD) through the INVENTORY command. This list can then be read as input (CTSINPUT DD) by the new IDCLI04 exit and have the category changed to either PRIVATE, SCRTCH, or ERROR.
The following is an example:
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//LIBOUT DD DSN=&.&TEMP.,DISP=(MOD,PASS),
DCB=(RECFM=FB,LRECL=80),
// SPACE=(CYL,(1,1))
//CTSINPUT DD DSN=*.LIBOUT,DISP=(OLD,PASS)
//SYSIN DD *
LIBRARY INVENTORY UNIT(ALL) CATEGORY(INSERT)
LIBRARY SETCEXIT UNIT(ALL)
/*
|
Copyright © 2013 CA Technologies.
All rights reserved.
|
|