Hi, I wrote the DATACLAS like below. All the Dataset defined with DSN101C.** are taking the DATACLAS : DB2EXT but Dataset defined with VSAMXT.JET are not taking the DATACLAS:VSAMXT.
PROC DATACLAS FILTLIST DB2EXT INCLUDE(DSN101C.**) FILTLIST VSAMXT INCLUDE(VSAMXT.**) SELECT WHEN(&DSN EQ &DB2EXT) DO SET &DATACLAS EQ 'DB2EXT' EXIT END WHEN(&DSN EQ &VSAMXT) DO SET &DATACLAS EQ 'VSAMXT' EXIT END OTHERWISE SET &DATACLAS EQ '' END END I have even translated the DC and activated the SCDS dataset, but still no luck Regards, Jags 2011/10/7 Doug Fuerst <[email protected]> > Why do you have the VALID_DC? Simply define the FILTLIST with the DSN > qualifiers you want, in the order of selection. I believe you have an extra > end in there. > Something like this works fine. > > proc dataclas > FILTLIST OEDSN INCLUDE ( OMVS.** ) > FILTLIST ZFSA INCLUDE ( OMVSA.ZFSSYSA.** ) > select > when (&dsn eq &oedsn) > do > set &dataclas eq 'omvs' > exit > end > when (&dsn eq &zfsa) > do > set &dataclas eq 'zfsa' > exit > end > otherwise > set &dataclas eq '' > end > end > > Doug Fuerst > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf > Of jagadishan perumal > Sent: Friday, October 07, 2011 12:17 AM > To: [email protected] > Subject: Re: ACS dataclas- clarification > > Hi, > > Again I tweaked my code, but still the new DATACLAS is not in place after > ISMF transform, validate and activate process. > > CT3DATBK > PROC DATACLAS > /*********************************************************************/ > /* DEFINE VALID DATA CLASS */ > /*********************************************************************/ > FILTLIST VALID_DC INCLUDE('DB2EXT','VSAMXT','') > /*********************************************************************/ > /* DEFINE DB2-EXTENDED FORMAT DATASETS */ > /*********************************************************************/ > FILTLIST DB2EXT INCLUDE(DSN101C.**) > FILTLIST VSAMXT INCLUDE(VSAMXT.**) > /*********************************************************************/ > SELECT > WHEN(&DSN=&DB2EXT) > DO > SET &DATACLAS='DB2EXT' > EXIT > END > WHEN(&DSN=&VSAMXT) > DO > SET &DATACLAS='VSAMXT' > EXIT > END > OTHERWISE > DO > SET &DATACLAS= '' > EXIT > END > END > END > > I am not able to use the DATACLAS VSAMXT for the datasets starting with > VSAMXT.**. > > Please suggest your advise. > > Regards, > Jags > > > On Fri, Oct 7, 2011 at 9:07 AM, jagadishan perumal > <[email protected]>wrote: > > > Hi Barry, > > > > My New Code which doesnt picks up the newly defined DATACLAS - VSAMXT. > > > > CT3DABK > > > > PROC DATACLAS > > /*********************************************************************/ > > /* DEFINE VALID DATA CLASS */ > > /*********************************************************************/ > > FILTLIST VALID_DC INCLUDE('DB2EXT','VSAMXT') > > /*********************************************************************/ > > /* DEFINE DB2-EXTENDED FORMAT DATASETS */ > > /*********************************************************************/ > > FILTLIST DB2EXT INCLUDE(DSN101C.**) > > FILTLIST VSAMXT INCLUDE(VSAMXT.**) > > /*********************************************************************/ > > /* IF ALLOCATION SPECIFIES A DATACLASS THEN ALLOW IT TO BE USED */ > > /* OTHERWISE THIS ROUTINE WILL SET A DATA CLASS. */ > > /*********************************************************************/ > > SELECT > > WHEN(&DSN='&DB2EXT') > > DO > > SET &DATACLAS = 'DB2EXT' > > END > > SELECT > > WHEN(&DSN='&VSAMXT') > > DO > > SET &DATACLAS = 'VSAMXT' > > END > > OTHERWISE > > DO > > SET &DATACLAS = '' > > EXIT > > END > > END > > END > > Regards, > > Jags > > > > > > On Thu, Oct 6, 2011 at 11:41 PM, Schwarz, Barry A < > > [email protected]> wrote: > > > >> There is nothing in my manual that indicates you can "grow" a filtlist > by > >> coding two statements and expect the second to be appended to the first. > >> Combine the two statements for VALID_DC into one. > >> > >> It might help if instead of showing us the old code that used to work > you > >> show us the new code that doesn't. > >> > >> > -----Original Message----- > >> > From: IBM Mainframe Discussion List [mailto:[email protected]] On > >> > Behalf Of jagadishan perumal > >> > Sent: Thursday, October 06, 2011 2:54 AM > >> > To: [email protected] > >> > Subject: ACS dataclas- clarification > >> > > >> > Hi, > >> > > >> > Earlier I defined a dataclas for DB2 dataset starting with DSN101C.** > as > >> > dataclas - DB2EXT. Below is my DATACLAS routine : > >> > > >> > CT3DCLS > >> > PROC DATACLAS > >> > > /*********************************************************************/ > >> > /* DEFINE VALID DATA CLASS > */ > >> > > /*********************************************************************/ > >> > FILTLIST VALID_DC INCLUDE('DB2EXT','') > >> > FILTLIST VALID_DC INCLUDE('VSAMXT','') > >> > > /*********************************************************************/ > >> > /* DEFINE DB2-EXTENDED FORMAT DATASETS */ > >> > > /*********************************************************************/ > >> > FILTLIST DB2EXT INCLUDE(DSN101C.**) > >> > FILTLIST VSAMXT INCLUDE(VSAMXT.**) > >> > > /*********************************************************************/ > >> > /* IF ALLOCATION SPECIFIES A DATACLASS THEN ALLOW IT TO BE USED > */ > >> > /* OTHERWISE THIS ROUTINE WILL SET A DATA CLASS. > */ > >> > > /*********************************************************************/ > >> > IF &DATACLAS = '' THEN DO > >> > SELECT(&DSN) > >> > WHEN(&DB2EXT) SET &DATACLAS = 'DB2EXT' > >> > WHEN(&VSAMXT) SET &DATACLAS = 'VSAMXT' > >> > OTHERWISE SET &DATACLAS = '' > >> > END > >> > END > >> > > /*********************************************************************/ > >> > /** CHECK THE DATA CLASS SPECIFIED IS VALID > **/ > >> > > /*********************************************************************/ > >> > IF &DATACLAS ャ= &VALID_DC THEN DO > >> > WRITE 'THE DATA CLASS (' &DATACLAS ') IS NOT VALID.' > >> > SET &DATACLAS = '' > >> > END > >> > > >> > END > >> > > >> > But when I try to define another DATACLAS as VSAMXT, by adding the > line > >> > FILTLIST VSAMEXT INCLUDE(VSAMEXT.**) . I get an error as "Referrenced > >> > FILTLIST is not valid, But when I try to remove the DB2EXT and Just > >> VSAMXT > >> > it goes fine and all the dataset stating VSAMEXT is getting allocated > >> > using > >> > dataclas VSAMXT. Now I see the DATACLAS DB2EXT is not in affect after > >> > activating the above DATACLAS. > >> > > >> > Could anyone please suggest me idea to activate both DATACLAS in the > >> same > >> > script. > >> > >> ---------------------------------------------------------------------- > >> 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 > > ---------------------------------------------------------------------- > 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
