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:IBM-MAIN@bama.ua.edu] On Behalf
Of jagadishan perumal
Sent: Friday, October 07, 2011 12:17 AM
To: IBM-MAIN@bama.ua.edu
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
<jagadish...@gmail.com>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 <
> barry.a.schw...@boeing.com> 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:IBM-MAIN@bama.ua.edu] On
>> > Behalf Of jagadishan perumal
>> > Sent: Thursday, October 06, 2011 2:54 AM
>> > To: IBM-MAIN@bama.ua.edu
>> > 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 lists...@bama.ua.edu 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 lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
