My stuff is pretty basic:
PROC DATACLAS
/*****************************************************************/
/** DEFINE DASD UNIT NAMES */
/*****************************************************************/
FILTLIST DASD_UNITS INCLUDE('3390','SYSDA','SYSALLDA')
FILTLIST TAPE_UNITS INCLUDE('3590*','MAGSTAR','T3590')
FILTLIST DB2_VOL INCLUDE(* )
/*****************************************************************/
/** DEFINE DATASET NAME FILTER LIST */
/*****************************************************************/
/*****************************************************************
/** CICS LOGGER STAGE AND OFFLOAD *
/*****************************************************************
FILTLIST TSLOGRO INCLUDE(IXGLOGR.CICSMVSS.*.A*,
IXGLOGR.CICSSYSP.*.A*,
IXGLOGR.VNS*.*.A*,
IXGLOGR.TOR*.*.A*,
IXGLOGR.PEN*.*.A*,
IXGLOGR.POS*.*.A*,
IXGLOGR.REF*.*.A*,
IXGLOGR.OPS*.*.A*,
IXGLOGR.MSA*.*.A*,
IXGLOGR.ATR.**)
FILTLIST TSLOGRS INCLUDE(IXGLOGR.CICSMVSS.*.VNSNY,
IXGLOGR.CICSSYSP.*.VNSNY,
IXGLOGR.VNS*.*.VNSNY,
IXGLOGR.TOR*.*.VNSNY,
IXGLOGR.PEN*.*.VNSNY,
IXGLOGR.POS*.*.VNSNY,
IXGLOGR.REF*.*.VNSNY,
IXGLOGR.OPS*.*.VNSNY,
IXGLOGR.MSA*.*.VNSNY,
IXGLOGR.ATR.**)
/*****************************************************************/
/** DSNS */
/*****************************************************************/
FILTLIST DB2TECH INCLUDE(DB2TECH.DSNDBC.**)
EXCLUDE(DB2TECH.DSNDBC.DSNDB01.**,
DB2TECH.DSNDBC.DSNDB06.**,
DB2TECH.DSNDBC.DSNDB07.**)
/*****************************************************************/
/** DSN */
/*****************************************************************/
FILTLIST DB2TEST INCLUDE(DB2TEST.DSNDBC.**)
EXCLUDE(DB2TEST.DSNDBC.DSNDB01.**,
DB2TEST.DSNDBC.DSNDB06.**,
DB2TEST.DSNDBC.DSNDB07.**)
/*****************************************************************/
/** DSNR */
/*****************************************************************/
FILTLIST DB2TRAIN INCLUDE(DB2TRAIN.DSNDBC.**)
EXCLUDE(DB2TRAIN.DSNDBC.DSNDB01.**,
DB2TRAIN.DSNDBC.DSNDB06.**,
DB2TRAIN.DSNDBC.DSNDB07.**)
/*****************************************************************/
/** DSNQ */
/*****************************************************************/
FILTLIST DB2QUAL INCLUDE(DB2QUAL.DSNDBC.**)
EXCLUDE(DB2QUAL.DSNDBC.DSNDB01.**,
DB2QUAL.DSNDBC.DSNDB06.**,
DB2QUAL.DSNDBC.DSNDB07.**)
/*****************************************************************/
/** DSNP */
/*****************************************************************/
FILTLIST DB2PROD INCLUDE(DB2PROD.DSNDBC.**,
DB2PROD.BMCDBC.**)
EXCLUDE(DB2PROD.DSNDBC.DSNDB01.**,
DB2PROD.DSNDBC.DSNDB04.**,
DB2PROD.DSNDBC.DSNDB06.**,
DB2PROD.DSNDBC.DSNDB07.**,
DB2PROD.DSNDBC.DSNDPSM.**,
DB2PROD.DSNDBC.DSNGFDB.**,
DB2PROD.DSNDBC.DSNRLST.**)
/*****************************************************************/
/** DB2 REORGS */
/*****************************************************************/
FILTLIST DB2REORG INCLUDE(DB2REORG.**)
/*****************************************************************/
/** DB2 IMAGE COPIES */
/*****************************************************************/
FILTLIST DB2IMAGE INCLUDE(DB2IMAGE.**)
/*****************************************************************/
/** BUFFER POOL TOOL */
/*****************************************************************/
FILTLIST BPTOOL INCLUDE(DB2PROD.BFT.**)
/*****************************************************************/
/** BMC RECOVERY MANAGER */
/*****************************************************************/
FILTLIST BMCRMGR INCLUDE(DB2PROD.BMCRMGR%.**,
DB2TEST.BMCRMGR%.**)
/*****************************************************************/
/** SMF AND MXG */
/*****************************************************************/
FILTLIST MXGPROD INCLUDE(PROD.*.SMFDAY,
PROD.SMF.**,
PROD.MXG.**)
EXCLUDE(PROD.MXG.CICSTRAN.**,
'PROD.MXG.PDB.DAILY.WORK',
PROD.MXG.PDB.DAILY.WORK.V*,
PROD.MXG.PDB.DAILY.V*.**,
PROD.SMF.*.DAILY.**,
PROD.SMF.*.WEEKLY.**)
/*****************************************************************/
/** PRODUCTION VSAM */
/*****************************************************************/
FILTLIST PRODVSAM INCLUDE(REFPROD.REFXXXX.DNO.**)
/*****************************************************************/
/** ASSIGN DATA CLASS */
/*****************************************************************/
SELECT
WHEN ((&DSN EQ &TSLOGRO) AND
(&UNIT EQ &DASD_UNITS))
DO
SET &DATACLAS EQ 'LOGRVOFF'
EXIT
END
WHEN ((&DSN EQ &TSLOGRS) AND
(&UNIT EQ &DASD_UNITS))
DO
SET &DATACLAS EQ 'LOGRVSTG'
EXIT
END
WHEN ((&DSN EQ &DB2TECH) AND
(&ANYVOL EQ &DB2_VOL))
DO
SET &DATACLAS EQ 'DB2SDC'
EXIT
END
WHEN ((&DSN EQ &DB2TEST) AND
(&ANYVOL EQ &DB2_VOL))
DO
SET &DATACLAS EQ 'DB2TDC'
EXIT
END
WHEN ((&DSN EQ &DB2TRAIN) AND
(&ANYVOL EQ &DB2_VOL))
DO
SET &DATACLAS EQ 'DB2RDC'
EXIT
END
WHEN ((&DSN EQ &DB2QUAL) AND
(&ANYVOL EQ &DB2_VOL))
DO
SET &DATACLAS EQ 'DB2QDC'
EXIT
END
WHEN ((&DSN EQ &DB2PROD) AND
(&ANYVOL EQ &DB2_VOL))
DO
SET &DATACLAS EQ 'DB2PDC'
EXIT
END
WHEN ((&DSN EQ &DB2REORG) AND
(&ANYVOL EQ &DB2_VOL))
DO
SET &DATACLAS EQ 'DB2WDC'
EXIT
END
WHEN ((&DSN EQ &DB2IMAGE) AND
(&ANYVOL EQ &DB2_VOL))
DO
SET &DATACLAS EQ 'DB2IMG'
EXIT
END
WHEN ((&DSN EQ &BPTOOL) AND
(&UNIT EQ &DASD_UNITS))
DO
SET &DATACLAS EQ 'BPTOOL'
EXIT
END
WHEN ((&DSN EQ &BMCRMGR) AND
(&UNIT EQ &DASD_UNITS))
DO
SET &DATACLAS EQ 'BMCRMGR'
EXIT
END
WHEN ((&DSN EQ &MXGPROD) AND
(&UNIT EQ &DASD_UNITS))
DO
SET &DATACLAS EQ 'MXGPDC'
EXIT
END
WHEN ((&DSN EQ &PRODVSAM) AND
(&UNIT EQ &DASD_UNITS))
DO
SET &DATACLAS EQ 'PRODVSAM'
WRITE '&DATACLAS SPECIFIED (' &DATACLAS ')'
EXIT
END
OTHERWISE
DO
SET &DATACLAS EQ ''
EXIT
END
END
END /*END OF DATA CLASS ROUTINE PROC */ ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
