Example: SELECT section for database from storage group ACS routine

Figure 1. SELECT Section for Database from Storage Group ACS Routine

  WHEN (&DSN = &CICS AND                   /* Isolate CICS databases   */
        &GROUP = &SPECIAL_USERS)
    DO
      SET &STORGRP = 'CICS'
      EXIT
    END
  WHEN (&DSN = &DB2 AND                    /* Isolate DB2 databases    */
        &GROUP = &SPECIAL_USERS)
    DO
      SET &STORGRP = 'DB2'
      EXIT
    END
  WHEN (&DSN = &IMS AND                    /* Isolate IMS databases    */
        &GROUP = &SPECIAL_USERS)
    DO
      SET &STORGRP = 'IMS'
      EXIT
    END
OTHERWISE                                  /* Normal and medium-sized  */
  DO                                       /* data sets go to the      */
    SET &STORGRP = 'PRIME80','PRIME90'     /* PRIME storage group      */
    EXIT
  END