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
