Figure 1. Sample
Data Class ACS Routine for Tape Mount Sample Data Class ACS Routine
for Tape Mount/**********************************************************************/
/* Start of Tape Data Set Mainline */
/**********************************************************************/
WHEN (&UNIT = &TAPE or &UNIT=&DS_STACK)
DO
SELECT //*Start of Tape Select */
WHEN (&GROUP = &SPECIAL_USERS &&
&DATACLAS = 'NONTMM') //*Permit system pgmrs. */
DO //*and storage admin. to */
SET &DATACLAS = &DATACLAS //*write tape volumes */
EXIT
END
WHEN (&DSN = &OFFSITE) //*Write data sets to be */
DO //*sent offsite to own */
SET &DATACLAS = 'TAPOSITE' //*data class */
EXIT
END
WHEN (&DSN = &LARGE_BACKUP) //*Write large data set */
DO //*backups to tape */
SET &DATACLAS = 'TAPBKUP'
EXIT
END
WHEN (&DSN = &LARGE_ACTIVE) //*Write other large, */
DO //*permanent data sets */
SET &DATACLAS = 'TAPACTV' //*to tape */
EXIT
END
WHEN (&DSN = &LARGE_TEMP) //*Write large, temporary */
DO //*data sets to tape */
SET &DATACLAS = 'TAPTEMP'
EXIT
END
WHEN (&DSN = &HSM) //*Write HSM ML2, dump, */
DO //*backup, and TAPECOPY */
SET &DATACLAS = 'HSMDC' //*data sets to tape */
EXIT
END
WHEN (&DSTYPE = 'TEMP') //*Identify temporary */
DO //*data sets that are */
SET &DATACLAS = 'TMMTEMP' //*TMM candidates */
EXIT
END
WHEN (&PGM = &BACKUP) //*Set TMM backup */
DO //*data class */
SET &DATACLAS = 'TMMBKUP'
EXIT
END
OTHERWISE
DO
SET &DATACLAS = 'TMMACTV' //*Set TMM active data */
EXIT //*class to all other data */
END //*sets */
END //*End of Tape DO */
END //*End of Tape SELECT */
/**********************************************************************/
/* End of Tape Data Set Mainline */