IBM MAINFRAME HELP & SUPPORT FORUMS

pav001 · Joined: 02 Nov 2005 Posts: 25

I need to submit a jcl from a rexx program. This jcl will have a step to run another REXX program. Before running the REXX from jcl (using IKJEFT01) I need to define SYSEXEC as a DD name which points to my REXX library. As of now i have hard coded this as :

QUEUE '//REXXSTEP EXEC PGM=IKJEFT01,REGION=4M'
QUEUE '//SYSEXEC DD DISP=SHR,DSN=ACT7562.LIB.REXX'
( ACT7562 is my MF id,I write the queue to a file and submit it),
but in place of hard coding the REXX library as above I want to derive it through REXX so that my REXX can be run on other systems (with a different REXX library) without modifications.

PAV

superk · Joined: 26 Apr 2004 Posts: 3304 Location: Charlotte,NC USA

If I'm understanding your requirements correctly, you'll probably want to use the TSO LISTA command, trap the results, and read through the listing until you find all of the datasets allocated to the SYSEXEC DD and/or the SYSPROC DD.

There is nothing I can think of within REXX itself that can do this for you.

mak_tcs · Joined: 23 Nov 2005 Posts: 76 Location: Minneapolis, MN USA

Dear Pav,
Please check the following:

myid = userid() -->This will assign the users mainframe id to myid

rxlib= myid||".LIB.REXX"

QUEUE '//REXXSTEP EXEC PGM=IKJEFT01,REGION=4M'
QUEUE '//SYSEXEC DD DISP=SHR,DSN='rxlib','

Please let me know if I cud help you further.
Thanks,
Mani