/**********************************************************************/
/*       Start of FILTLIST Statements                                 */
/**********************************************************************/
FILTLIST ACTIVE              INCLUDE('TMMACTV')
FILTLIST BACKUP              INCLUDE('TMMBKUP')
FILTLIST HSMENV              INCLUDE('RECOVER','RECALL')
FILTLIST VALID_STORAGE_CLASS INCLUDE('BACKUP','CRITICAL','FAST','DBCRIT',
                                    'DBLOG','FASTREAD','FASTWRIT','GSPACE',
                                    'MEDIUM','NONVIO','STANDARD')
FILTLIST VALID_MGMT_CLASS    INCLUDE('DBML2','DBSTAN','EXTBAK',
                                    'GDGBKUP','GDGPROD','INTERIM',
                                    'NOACT','STANDARD','TMMACTV',
                                    'TMMBKUP')
/**********************************************************************/
/*       End of FILTLIST Statements                                   */
/**********************************************************************/
/**********************************************************************/
/*       Start of Mainline SELECT                                     */
/**********************************************************************/
SELECT
 WHEN (&ACSENVIR = &HSMENV &&             /* Handle RECALLed TMM     */
       &MGMTCLAS = 'TMMACTV')             /* data sets as any other  */
   DO                                     /* data set                */
     SET &MGMTCLAS = 'STANDARD'
     EXIT
   END
 WHEN (&ACSENVIR = &HSMENV &&             /* Handle RECALLed TMM     */
       &MGMTCLAS = 'TMMBKUP')             /* data sets as a          */
   DO                                     /* standard GDS            */
     SET &MGMTCLAS = 'GDGBKUP'
     EXIT
   END
 WHEN (&DATACLAS = &ACTIVE)               /* Let 'all other' TMM     */
   DO                                     /* data sets migrate thru  */
     SET &MGMTCLAS = 'TMMACTV'            /* storage hierarchy       */
     EXIT
   END
 WHEN (&DATACLAS = &BACKUP)               /* Let 'point in time'     */
   DO                                     /* backup TMM data sets    */
     SET &MGMTCLAS = 'TMMBKUP'            /* go directly to ML2      */
     EXIT
   END
/**********************************************************************/
/*       End of Mainline SELECT                                       */
/**********************************************************************/
END                            /* End of Management Class Procedure  */