Filter
Top Products
176 Storage Management with DB2 for OS/390
Figure 105. Test Case 4 - Storage Class Routine Extract
Figure 106. Test Case 4 - Management Class Extract
/*************************************************/
/* STORAGE CLASS */
/* FILTLIST DEFINITIONS */
/*************************************************/
FILTLIST SCDBMED INCLUDE(DB2P.DSNDB%.*.M*.**)
FILTLIST SCDBCRIT INCLUDE(DB2P.DSNDB%.*.C0*.**)
FILTLIST SCDBFAST INCLUDE(DB2P.DSNDB%.*.F0*.**)
FILTLIST SCDBTEST INCLUDE(DB2D.DSNDB%.*.T*.**,
DB2T.DSNDB%.*.T*.**)
/*************************************************/
/* SELECTION ROUTINE FOR DB2 TABLE SPACES */
/*************************************************/
IF &DSN = &SCDBMED
THEN DO
SET &STORCLAS = 'SCDBMED'
EXIT
END
IF &DSN = &SCDBCRIT
THEN DO
SET &STORCLAS = 'SCDBCRIT'
EXIT
END
IF &DSN = &SCDBFAST
THEN DO
SET &STORCLAS = 'SCDBFAST'
EXIT
END
IF &DSN = &SCDBTEST
THEN DO
SET &STORCLAS = 'SCDBTEST'
END
ELSE DO
SET &STORCLAS = ''
END
/*******************************************/
/* MANAGEMENT CLASS */
/* FILTLIST DEFINITIONS */
/*******************************************/
FILTLIST MCDB20 INCLUDE(DB2P.DSNDB%.*.%0*.**,
DB2T.DSNDB%.*.T0*.**,
DB2D.DSNDB%.*.T0*.**)
FILTLIST MCDB21 INCLUDE(DB2P.DSNDB%.*.M1*.**,
DB2D.DSNDB%.*.T1*.**,
DB2T.DSNDB%.*.T1*.**)
FILTLIST MCDB22 INCLUDE(DB2D.DSNDB%.*.T2*.**,
DB2T.DSNDB%.*.T2*.**)