/**********************************************************************/
/*    Start of DB2 Select                                             */
/**********************************************************************/
  WHEN (&DSN = &DB2)                       /*  Select DB2 data sets   */
    DO
      SELECT
        WHEN (&DSN = &DB2_PROD_LOG)        /*  Use fast write for     */
          DO                               /*  active logs            */
            SET &STORCLAS = 'FASTWRIT'
            EXIT
          END
        WHEN (&DSN = &DB2_PROD_CATALOG OR  /*  Dual copy for catalog  */
              &DSN = &DB2_PROD_DIRECTRY OR /*  directory and boot     */
              &DSN = &DB2_PROD_BSDS)       /*  strap data set         */
          DO
            SET &STORCLAS = 'DBCRIT'
            EXIT
          END
      OTHERWISE                            /*  Give all other DB2 data*/
        DO                                 /*  average performance    */
          SET &STORCLAS = 'STANDARD'
          EXIT
        END

      END

    END