Automated Tape Libraries and Virtual Tape Support › IBM Basic Tape Library Support (BTLS) › IBM BTLS - Scratch Cartridges

IBM BTLS - Scratch Cartridges

Once the daily scratch job has been run (TMSCLEAN), the output from that job can be used as input to IDCAMS. Like the EJECT process, the list is used as input (using the LIBIN DD statement) and the category is changed to SCRTCH.

//STEP1    EXEC PGM=IDCAMS
//SYSPRINT DD   SYSOUT=A
//LIBIN    DD   DSN=DAILY.SCRATCH.LIST,DISP=OLD
//SYSIN    DD   *
  LIBRARY SETCAT UNIT(123) CATEGORY(SCRTCH)
/*

Note: The LIBIN file must be a Fixed Block file, any record length, with the VOLSER(s) starting in column 1. You can use CA Earl to generate this list.