Dean, What other FILTLIST or WHEN...DO constructs do you have? Might there be one prior to the "WHEN ((&DSN EQ &PRODVSAM) ..." that gets triggered? Perhaps one that checks for DSORG = VSAM and then forces a non-SMS class?
Regards, Ulrich -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Dean Montevago Sent: Friday, August 17, 2007 9:20 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: SMS Question - Urgent > -----Original Message----- > From: Dean Montevago > Sent: Friday, August 17, 2007 12:15 PM > To: 'IBM Mainframe Discussion List' > Subject: RE: SMS Question - Urgent > > FILTLIST PRODVSAM INCLUDE(REFPROD.REFXXXX.DNO.**) also tried ('REFPROD.REFXXXX.DNO') > > WHEN ((&DSN EQ &PRODVSAM) AND > (&UNIT EQ &DASD_UNITS)) > DO > SET &STORCLAS EQ 'PRODVSAM' > WRITE '&STORCLAS SPECIFIED (' &STORCLAS ')' > EXIT > END > > IEC614I CREATE FAILED - RC 192, DIAGNOSTIC INFORMATION IS (040343C9) , > STEP04,VSAM01,REFPROD.REFXXXX.DNO.DATA > > I have a write statement in the DC also, neither is hitting. > > Volume Mount Device Free Free Free LgFree LgFre DASD VTOC SMS Den > Serial Attr Type Exts Trks Cyls #Trks #Cyls Nmbr Ind Ind Ind > (01) (02) (03) (04) (05) (06) (07) (08) (09) (10) (11) (12) > ---------------------------------------------------------------------------- -- > VSAM01 PRIVATE 3390 1 50025 3335 50025 3335 0296 Yes Yes TPL > VSAM02 PRIVATE 3390 1 50025 3335 50025 3335 0297 Yes Yes TPL > VSAM03 PRIVATE 3390 1 50025 3335 50025 3335 0298 Yes Yes TPL > VSAM04 PRIVATE 3390 1 50025 3335 50025 3335 0299 Yes Yes TPL > VSAM05 PRIVATE 3390 1 50025 3335 50025 3335 06E2 Yes Yes TPL > VSAM06 PRIVATE 3390 1 50025 3335 50025 3335 06F0 Yes Yes TPL > VSAM07 PRIVATE 3390 1 50025 3335 50025 3335 07A7 Yes Yes TPL > > ---------------------------------------------------------------------- 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 ---------------------------------------------------------------------- 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