/**********************************************************************/
/*    Start of CICS Select                                            */
/**********************************************************************/
  WHEN (&DSN = &CICS)                      /*  Select CICS datasets,  */
    DO                                     /*  production and test    */
      SELECT
        WHEN (&DSN = &CICS_PROD_CAVM OR    /*  Dual Copy capability   */
              &DSN = &CICS_PROD_RESTART OR /*  for CICS Avail. Mgr.   */
              &DSN = &CICS_PROD_CSD)       /*  Restart, System Def.   */
          DO
            SET &STORCLAS = 'DBCRIT'
            EXIT
          END
        WHEN (&DSN = &CICS_PROD_TEMP OR    /*  Cache temporary storage*/
              &DSN = &CICS_PROD_LIB)       /*  and applic. libraries  */
          DO
            SET &STORCLAS = 'FAST'
            EXIT
          END
        WHEN (&DSN = &CICS_PROD_INTRA OR   /*  Use DASD fast write for*/
              &DSN = &CICS_PROD_DB)        /*  intrapartition data and*/
                                           /*  some production DBs    */
          DO
            SET &STORCLAS = 'FASTWRIT'
            EXIT
          END
        WHEN (&DSN = &CICS_USER_DB)        /*  Give user databases    */
          DO                               /*  better than average    */
            SET &STORCLAS = 'MEDIUM'       /*  performance            */
            EXIT
          END
      OTHERWISE                            /*  Give all other datasets*/
        DO                                 /*  average performance    */
          SET &STORCLAS = 'STANDARD'
          EXIT
        END

      END

    END
/**********************************************************************/
/*    End of CICS Select                                              */
/**********************************************************************/