Re: ACS dataclas- clarification
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_DCINCLUDE('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.comwrote:
Hi Barry,
My New Code which doesnt picks up the newly defined DATACLAS - VSAMXT.
CT3DABK
PROC DATACLAS
/*/
/* DEFINE VALID DATA CLASS */
/*/
FILTLIST VALID_DCINCLUDE('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_DCINCLUDE('DB2EXT','')
FILTLIST VALID_DCINCLUDE('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
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 d...@bkassociates.net
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_DCINCLUDE('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.comwrote:
Hi Barry,
My New Code which doesnt picks up the newly defined DATACLAS - VSAMXT.
CT3DABK
PROC DATACLAS
/*/
/* DEFINE VALID DATA CLASS */
/*/
FILTLIST VALID_DCINCLUDE('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_DCINCLUDE('DB2EXT','')
FILTLIST VALID_DCINCLUDE('VSAMXT
Re: ACS dataclas- clarification
Are you sure your storclass routines support this DC? Try translating the
DC, SC, MC, and Stogrp, and then validate the config, then activate the
SCDS.
Going to see a client to do an SMS config for them. Good luck.
Doug
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of jagadishan perumal
Sent: Friday, October 07, 2011 4:23 AM
To: IBM-MAIN@bama.ua.edu
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 d...@bkassociates.net
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_DCINCLUDE('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.comwrote:
Hi Barry,
My New Code which doesnt picks up the newly defined DATACLAS - VSAMXT.
CT3DABK
PROC DATACLAS
/*/
/* DEFINE VALID DATA CLASS */
/*/
FILTLIST VALID_DCINCLUDE('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
Re: ACS dataclas- clarification
Jags, Let's start again from scratch. Please repost the working DATACLAS routine before you tried to add VSAMXT. Bob -- 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
Re: ACS dataclas- clarification
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)
j...@thethomasresidence.us (Email)
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of
jagadishan perumal
Sent: Friday, October 07, 2011 3:23 AM
To: IBM-MAIN@bama.ua.edu
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 d...@bkassociates.net
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_DCINCLUDE('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.comwrote:
Hi Barry,
My New Code which doesnt picks up the newly defined DATACLAS - VSAMXT.
CT3DABK
PROC DATACLAS
/*/
/* DEFINE VALID DATA CLASS */
/*/
FILTLIST VALID_DCINCLUDE('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
Re: ACS dataclas- clarification
Jags, For debugging ACS code it is always helpful to add WRITE statements to your DO LOOPS. So when (dsn eq oedsn) do set dataclas eq 'omvs' exit end Becomes when (dsn eq oedsn) do write 'The dsn is DSN and the class is dataclas' set dataclas eq 'omvs' write 'The dsn is DSN and the class is dataclas after set' exit end Do this for each WHEN DO END process and it will hopefully provide the answers. Always use WRITE statements a lot when working with ACS Code. Once it works, you may wish to leave in a few but not all. Lizette -- 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
Re: ACS dataclas- clarification
Picky point. DO...END in ACS routines are not loops. Otherwise, I agree, use writes liberally. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Lizette Koehler Sent: Friday, October 07, 2011 4:31 AM To: IBM-MAIN@bama.ua.edu Subject: Re: ACS dataclas- clarification Jags, For debugging ACS code it is always helpful to add WRITE statements to your DO LOOPS. So when (dsn eq oedsn) do set dataclas eq 'omvs' exit end Becomes when (dsn eq oedsn) do write 'The dsn is DSN and the class is dataclas' set dataclas eq 'omvs' write 'The dsn is DSN and the class is dataclas after set' exit end Do this for each WHEN DO END process and it will hopefully provide the answers. Always use WRITE statements a lot when working with ACS Code. Once it works, you may wish to leave in a few but not all. Lizette -- 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
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_DCINCLUDE('DB2EXT','')
FILTLIST VALID_DCINCLUDE('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'
OTHERWISESET 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ACS dataclas- clarification
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. Jags, A better way to code the ACS code would be to use DO LOOPS after the WHEN statement with EXIT. Once you have made a match you just exit rather than look at anything else. For example (pseudo code) SELECT WHEN DO Code EXIT END OTHERWISE DO WRITE EXIT END END That way when you finish you just exit and not try for anything else. If you are a member of share.or - there are a couple of good presentations on how to WRITE ACS CODE. Lizette -- 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
Re: ACS dataclas- clarification
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_DCINCLUDE('DB2EXT','')
FILTLIST VALID_DCINCLUDE('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'
OTHERWISESET 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
Re: ACS dataclas- clarification
Hi Barry,
My New Code which doesnt picks up the newly defined DATACLAS - VSAMXT.
CT3DABK
PROC DATACLAS
/*/
/* DEFINE VALID DATA CLASS */
/*/
FILTLIST VALID_DCINCLUDE('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_DCINCLUDE('DB2EXT','')
FILTLIST VALID_DCINCLUDE('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'
OTHERWISESET 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
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_DCINCLUDE('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.comwrote:
Hi Barry,
My New Code which doesnt picks up the newly defined DATACLAS - VSAMXT.
CT3DABK
PROC DATACLAS
/*/
/* DEFINE VALID DATA CLASS */
/*/
FILTLIST VALID_DCINCLUDE('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_DCINCLUDE('DB2EXT','')
FILTLIST VALID_DCINCLUDE('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'
OTHERWISESET 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
