/**********************************************************************/
/*           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                            */