Example: Sample storage group ACS routine for tape mount management

Figure 1 shows a sample storage group ACS routine.

Figure 1. Sample Storage Group ACS Routine for Tape Mount Management

/**********************************************************************/
/*  Start of FILTLIST Statements                                      */
/**********************************************************************/
FILTLIST SPECIAL_USERS       INCLUDE('SYSPROG','STGADMIN','DBA')
/**********************************************************************/
/*  End of FILTLIST Statements                                        */
/**********************************************************************/
/**********************************************************************/
/*  Start of Mainline SELECT                                          */
/**********************************************************************/
SELECT
 WHEN (&DATACLAS = 'TMMTEMP')             /* Temporary tape data sets*/
   DO                                     /* go to the LARGE group   */
     SET &STORGRP = 'LARGE90','LARGE80'
     EXIT
   END
 WHEN (&MGMTCLAS = TMM*)                  /* Other tape data sets    */
   DO                                     /* selected for TMM go     */
     SET &STORGRP = 'TMMBUF90',           /* to TMM buffer; BFS      */
                    'TMMBUF80',           /* is a "spill" area only  */
                    'TMMBFS90',           /* used if BUF is full     */
                    'TMMBFS80'
     EXIT
   END
/***********************************************************************/
/*  End of Mainline SELECT                                             */
/***********************************************************************/

If you choose, DFSMSrmm can call storage group ACS routines for non-system-managed tapes to obtain a storage group name and use it as a scratch pool ID. For information on how to choose this option, see z/OS DFSMSrmm Implementation and Customization Guide.