/**********************************************************************/
/*    Start of IMS Select                                             */
/**********************************************************************/
  WHEN (&DSN = &IMS)                       /*  Select all IMS data    */
    DO                                     /*  sets, including test   */
      SELECT
        WHEN (&DSN = &IMS_PROD_RESTART OR  /*  Dual copy capability   */
              &DSN = &IMS_PROD_QUEUE   OR  /*  for restart, message   */
              &DSN = &IMS_PROD_SMSG    OR  /*  queues data sets       */
              &DSN = &IMS_PROD_LMSG)
          DO
            SET &STORCLAS = 'DBCRIT'
            EXIT
          END
        WHEN (&DSN = &IMS_PROD_WADS   OR   /*  Use DASD fast write    */
              &DSN = &IMS_PROD_OLDS   OR   /*  for write ahead, online*/
              &DSN = &IMS_PROD_SPA)        /*  log and scratch pad    */
          DO                               /*  area                   */
            SET &STORCLAS = 'FASTWRIT'
            EXIT
          END
        WHEN (&DSN = &IMS_PROD_DL1)        /*  Cache DL/1 databases   */
          DO
            SET &STORCLAS = 'FAST'
            EXIT
          END
      OTHERWISE                            /*  Give all other datasets*/
        DO                                 /*  average performance    */
          SET &STORCLAS = 'STANDARD'
          EXIT
        END

      END

    END
/**********************************************************************/
/*    End of IMS Select                                               */
/**********************************************************************/