Sir,
Could you please try .... (and let me know of your results).
SELECT (&DSN)
WHEN(&DB2EXT) -
SET &DATACLAS EQ 'DB2EXT'
WHEN(&VSAMXT) -
SET &DATACLAS EQ 'VSAMXT'
Kind Regards
Jim Thomas
617-233-4130 (mobile)
636-294-1014 (res)
[email protected] (Email)
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of
jagadishan perumal
Sent: Friday, October 07, 2011 3:23 AM
To: [email protected]
Subject: Re: ACS dataclas- clarification
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
-----
No virus found in this message.
Checked by AVG - www.avg.com
Version: 2012.0.1831 / Virus Database: 2085/4542 - Release Date: 10/06/11
----------------------------------------------------------------------
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
