IBM 5655-DB2, 5695-DF1 A.4.2 Management Class

TestCases for DB2 TableS pace Data Sets 167
Figure 90. TestCase 3 - St orage Class Routine Extract
A.4.2 Management Class
This exercise requiresmult iple management attributes for the Tablespaces
according to the space name specified in the data set name. Therefore, using
ISMF,option 3.3, three Management Classes, MCDB20,MCDB21, and MCDB22
were defined accordingly.Figure 91 on page 168 shows an example of page 2 of
the associated panel required to achieve this:
/*************************************************/
/* STORAGE CLASS */
/* FILTLIST DEFINITIONS */
/*************************************************/
FILTLIST SCDBMED INCLUDE(DB2P.DSNDB%.**)
EXCLUDE(DB2P.DSNDB%.BCUSTOMR.**,
DB2P.DSNDB%.BSERVICE.**,
DB2P.DSNDB%.BTRANS.**,
DB2P.DSNDB%.BACCTS.**)
FILTLIST SCDBCRIT INCLUDE(DB2P.DSNDB%.BACCTS.**)
FILTLIST SCDBFAST INCLUDE(DB2P.DSNDB%.BCUSTOMR.**,
DB2P.DSNDB%.BSERVICE.**,
DB2P.DSNDB%.BTRANS.**)
FILTLIST SCDBTEST INCLUDE(DB2D.DSNDB%.**)
/*************************************************/
/* SELECTION ROUTINE FOR DB2 TABLESPACES */
/*************************************************/
SELECT
WHEN (&DSN = &SCDBTEST)
SET &STORCLAS = 'SCDBTEST'
WHEN (&DSN = &SCDBFAST)
SET &STORCLAS = 'SCDBFAST'
WHEN (&DSN = &SCDBMED)
SET &STORCLAS = 'SCDBMED'
WHEN (&DSN = &SCDBCRIT)
SET &STORCLAS = ’SCDBCRIT’
OTHERWISE SET &STORCLAS = ''
END