by Bala1 » Tue Apr 06, 2010 8:58 pm
Hi Bala,
I am not sure if the following sample could help you. I would suggest you to just pull the userid and depending on the environment and the user id the RACF would allow the creation of files. You can hard code the initial qualifiersbased on the same and then pass to the subsequent rexx code or JCL....
**************************************************************
/*REXX*/
str=userid()
select
when substr(str,1,2)="PRD" then
do
HQL1=PROD
HQL2=PRD
end
when substr(str,1,2)="TST" then
do
HQL1=TEST
HQL2=TST
end
when substr(str,1,2)="DEV" then
do
HQL1=DEVE
HQL2=DEV
end
end
******************************************************************
In the example dependign on the nature of the ids (production,test, dev) the first 2 qualifiers are hard coded.
cheers,
Bala
_____________________
Cheers,
Bala