MVSFORUMS.com

jim haire · Beginner Joined: 30 Dec 2002 Posts: 140 Topics: 40

I have searched through this forum and seen similar questions, but not sure if i saw an answer to this.

I have a REXX command which prompts for a number of values. These values are then passed to an edit macro which makes changes in a set of skeleton JCL.

I would like to submit the JCL after the changes are made without saving the JCL. I would like to then "CANCEL" the changes so that the skeleton JCL would be ready for the next peron who uses the REXX command.

Is there a way to do this? My attempts have not worked. If I try to just issue a "SUBMIT", I get an error saying that no dataset name has been supplied. If I supply the dataset name, It runs the skeleton JCL as if no changes had been applied.

kolusu · Posted: Wed Nov 04, 2009 1:41 pm Post subject:

jim haire,

cant you submit via intrdr?

dbzTHEdinosauer · Posted: Wed Nov 04, 2009 2:20 pm Post subject:

why don't you submit during the edit macro?
and to avoid the cancel problem (saving the new member)
use VIEW with edit macro instead of EDIT.
_________________
Dick Brenholtz
American living in Varel, Germany

jim haire · Beginner Joined: 30 Dec 2002 Posts: 140 Topics: 40

I thought about the internal reader, however I think they want to be able to track where the job was being submitted from for audit purposes. Still this might be a possible solution.

DBZ: I did try executing the "SUBMIT" during the edit macro, although in "EDIT" mode. I understand why you said to try "VIEW" mode to avoid the cancel. However, I don't know how the SUBMIT would act any differently in "VIEW" vs. "EDIT". IN my REXX program I have the statement:

Nic Clouston · Posted: Wed Nov 04, 2009 3:12 pm Post subject:

How about using file tailoring services?
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

dbzTHEdinosauer · Posted: Wed Nov 04, 2009 3:38 pm Post subject:

somewhere, someplace in this forum is an example of loading the lines for jcl into the stack, then the submit - submits from the stack.

if you can't find an example, then
in your macro, REPLACE newjcl - that will replace another member -
Z025386.UTILJCL.PDS(newjcl)
which you can then submit as Z025386.UTILJCL.PDS(newjcl)

and again using VIEW instead of EDIT, you don't have to worry about changing the original Z025386.UTILJCL.PDS($ADDJCL).
_________________
Dick Brenholtz
American living in Varel, Germany

dbzTHEdinosauer · Posted: Wed Nov 04, 2009 3:42 pm Post subject:

i have always EXCIO'd my skeleton jcl into a stem, made the changes in the stem
and submitted from the stem. Thus i did not need an edit macro.

by the way, the replace command syntax would be REPLACE NEWJCL .zf .zl
_________________
Dick Brenholtz
American living in Varel, Germany

prino · Posted: Wed Nov 04, 2009 4:42 pm Post subject:

Why not simply replace

dbzTHEdinosauer · Posted: Wed Nov 04, 2009 5:43 pm Post subject:

prino,

good eyes!

jim haire · Beginner Joined: 30 Dec 2002 Posts: 140 Topics: 40

I tried Prino's suggestion and it worked! When I had the "SUBMIT" statement standing alone, it must have been in the REXX program and not the edit macro, so it ran the "SUBMIT" from the TSO address space.

Dick,
I also found the suggestion you made for putting the JCL to the queue and submitting in that manner. I believe this would have worked as well.

Thanks for the help on this. This was my solution below, should anyone need to do something similar.

dbzTHEdinosauer · Posted: Thu Nov 05, 2009 1:21 pm Post subject:

Jim,

your solution is great. few line of code and you are out!

my suggestion takes a lot more code and resources.
_________________
Dick Brenholtz
American living in Varel, Germany