IBM 5695-DF1 ユーザーズマニュアル
Test Cases for DB2 Table Space Data Sets
167
Figure 90. Test Case 3 - Storage Class Routine Extract
A.4.2 Management Class
This exercise requires multiple management attributes for the Table spaces
according to the space name specified in the data set name. Therefore, using
ISMF, option 3.3, three Management Classes,
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:
the associated panel required to achieve this:
/*************************************************/
/* STORAGE CLASS
/* STORAGE CLASS
*/
/* FILTLIST DEFINITIONS
*/
/*************************************************/
FILTLIST SCDBMED
INCLUDE(DB2P.DSNDB%.**)
EXCLUDE(DB2P.DSNDB%.BCUSTOMR.**,
EXCLUDE(DB2P.DSNDB%.BCUSTOMR.**,
DB2P.DSNDB%.BSERVICE.**,
DB2P.DSNDB%.BTRANS.**,
DB2P.DSNDB%.BACCTS.**)
DB2P.DSNDB%.BTRANS.**,
DB2P.DSNDB%.BACCTS.**)
FILTLIST SCDBCRIT
INCLUDE(DB2P.DSNDB%.BACCTS.**)
FILTLIST SCDBFAST
INCLUDE(DB2P.DSNDB%.BCUSTOMR.**,
DB2P.DSNDB%.BSERVICE.**,
DB2P.DSNDB%.BTRANS.**)
DB2P.DSNDB%.BTRANS.**)
FILTLIST SCDBTEST
INCLUDE(DB2D.DSNDB%.**)
/*************************************************/
/* SELECTION ROUTINE FOR DB2 TABLE SPACES
/* SELECTION ROUTINE FOR DB2 TABLE SPACES
*/
/*************************************************/
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’
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