MVSFORUMS.com

[juan00982]

Hi

I have a compile procedure that contains sysin *. When you submit a procedure if it has sysin * it will cancel. Know I was able to resolve that changing the sysin * and placing the value on a dataset.

Know lets's move on to the good stuff. I need to change some of the values that I wrote on the dataset. I know how to do it in rexx, but the thing is that in order to invoke rexx from JCL I have to write the rexx program name and parameters in systsin * and I can't do that in a procedure.

Any ideas or workarounds will be greatly apreciated.

Let me know if further information is needed.

Thanks

Juan

[kolusu]

juan00982,

Can't you just override the sysin cards in the JCL? Let us say you have a proc named MYPROC and you want to change the syin cards in step0100, then you can do as shown below.

[superk]

No, just the opposite. In order to invoke REXX in batch, you would code it as follows:

[kolusu]

The only caveat of using IRXJCL is that invoked REXX exec should not access any TSO services. If your REXX has to access TSO services then it should be run with the IKJEFT01 program.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[juan00982]

Hi all:

My REXX program uses Allocate,EXECIO to access a dataset and make corresponding modifications.

[juan00982]

Right now I'm having trouble allocating the file, maybe it's like Kolusu says. Also please note that the rexx program, the value that I parse to the procedure is the same one I need to parse to rexx.

[juan00982]

Hi All.

I figured out how to make it work. Thanks to you all for your suggestion.

//EXEC01 EXEC PGM=IKJEFT1A,DYNAMNBR=50,PARM='COMPJCL &PROG'
//SYSPROC DD DISP=SHR,DSN=REXX.EXEC
//SYSTSPRT DD SYSOUT=*
//SYSTSOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSIN DD SYSOUT=*
//*
//SYSTSIN DD DUMMY,DISP=SHR,DSN=DUMMY.FILE