Question: I'm not an SMS expert but is this necessary: WRITE '&DATACLAS
SPECIFIED (' &DATACLAS ')'
Bob Pelletier
Connecticut Student Loan Foundation
Rocky Hill, Ct.
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
Confidentiality Notice
Unless expressly stated otherwise, this message is confidential and may be
privileged. It is intended for the addressee(s) only. Access to this e-mail
by anyone else is unauthorized. If you are not an addressee, any disclosure or
copying of the contents of this e-mail or any action taken (or not taken) in
reliance on it is unauthorized and may be unlawful. If you are not an
addressee, please inform the sender immediately and delete this message from
your system.
----------------------------------------------------------------------
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
