MVSFORUMS.com

lal · Beginner Joined: 21 Oct 2003 Posts: 70 Topics: 25

Hi Everybody,
I have a jcl utility ie IEHLIST, which is embedded in the REXX program using QUEUEs. I want to submit this utility through the REXX. Please let me know how to do this. Question

Cogito-Ergo-Sum · Posted: Sat Nov 08, 2003 5:15 am Post subject:

There are 2 ways to do that.

1. Use "SUBMIT" TSO command.
2. Copy the utility to SYSOUT directed to INTDR.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

lal · Beginner Joined: 21 Oct 2003 Posts: 70 Topics: 25

HI cognito,
Thanx for the reply. But I have the jcl embedded in the rexx program ie it is in between above and below this jcl i have so many other rexx commands to execute.

Cogito-Ergo-Sum · Posted: Sat Nov 08, 2003 6:05 am Post subject:

Could you please paste the code?

The answer will still remain the same. Only thing is, the point of insertion. Paste the code and we can figure out where that point should be.

PS: I do not know what is wrong with my id. This is the nth time, someone has referred me as Cognito whereas my id is COGITO-Ergo-Sum.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

kolusu · Posted: Sat Nov 08, 2003 9:17 am Post subject:

Lal,

Allocate a Dataset, create a New Stack , push the lines of JCL into the stack and write the stack to the allocated dataset and using ADDRESS TSO 'SUBMIT 'jcl_dsn submit the JCl

Hope this helps...

cheers

kolusu

lal · Beginner Joined: 21 Oct 2003 Posts: 70 Topics: 25

Thanx Cogito & kolusu,
Sorry cogito for spelling ur name wrongly and this is my code which i need to execute still it has plenty of it. But have just copied few. Just let me know the detail description how to run jcl embedded in rexx through rexx.

SAY "ENTER THE MEMBER NAME"
pull member
say "u have entered tso id as:" id "& ur member name as:" member
x=outtrap("var.")
"listc volume"
say "var.0=" var.0
/* set up job */
QUEUE "//"USERID()"B JOB (LC03,S116),JHR,CLASS=L,MSGLEVEL=(1,1),"
QUEUE "// NOTIFY="USERID()
do count = 1 by 3 to var.0
if count = 1 then
do
A = 1
B = 3
end
QUEUE "//IEH EXEC PGM=IEHLIST"
QUEUE "//SYSPRINT DD DISP=SHR,DSN="VAR.A
QUEUE "//DDNAME1 DD UNIT=3390,VOL=SER="VAR.B",DISP=OLD"
QUEUE "//SYSUT2 DD SYSOUT=*"
QUEUE "//SYSIN DD *"
QUEUE " LISTPDS DSNAME="VAR.A",FORMAT,VOL=3390="VAR.B""
QUEUE "/*"
.....
....
...

taltyman · Posted: Mon Nov 10, 2003 11:08 am Post subject:

do a TSO HELP SUBMIT and check out the SUBMIT * END(xx) syntax.