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.
Regards,
Jags
----------------------------------------------------------------------
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
