Page 1 of 1

Urgent!! REXX EXEC Load Module and TSO/E Commands

PostPosted: Fri Nov 13, 2015 7:44 pm
by samjovial
Hi All,

I have a requirement where I need to compile/link edit my REXX script and invoke the load module using "EXEC PGM=PGMA". I am able to do that, but commands like VGET/VPUT, ALLOC, SYSDSN etc are failing. What can I do them to work in my script? I am not allowed to invoke the script through IKJEFT01, pls advise, its urgent.

Re: Urgent!! REXX EXEC Load Module and TSO/E Commands

PostPosted: Fri Nov 13, 2015 7:58 pm
by NicC
Have you included the ISPF datasets in your JCL? Examples exist in the forum.
Pleases do not use 'urgent' or similar in your titles/posts. If you want urgent get a consultant in.

Re: Urgent!! REXX EXEC Load Module and TSO/E Commands

PostPosted: Fri Nov 13, 2015 8:08 pm
by samjovial
hi Nick,

Sorry for using the work 'urgent'.

Are you referring to the below datasets?? If yes, I did include and getting return code "-3"

Pls suggest.

//ISPPROF DD RECFM=FB,LRECL=80,SPACE=(TRK,(2,2,2))
//ISPPLIB DD DSN=ISP.SISPPENU,DISP=SHR
//ISPMLIB DD DSN=ISP.SISPMENU,DISP=SHR
//ISPSLIB DD DSN=ISP.SISPSENU,DISP=SHR
// DD DSN=ISP.SISPSLIB,DISP=SHR
//ISPTLIB DD DSN=ISP.SISPTENU,DISP=SHR
//ISPLOG DD SYSOUT=*,RECFM=FB,LRECL=133

Re: Urgent!! REXX EXEC Load Module and TSO/E Commands

PostPosted: Fri Nov 13, 2015 9:00 pm
by Akatsukami
You have to invoke the program using the ISPSTART command to get ISPF running, and that can only be done through TSO.

Re: Urgent!! REXX EXEC Load Module and TSO/E Commands

PostPosted: Sat Nov 14, 2015 2:43 am
by samjovial
Hi Aktasukami,

I have to invoke only with EXEC PGM=PROG. Is there anything I can link/edit so that I can use those commands?

Re: Urgent!! REXX EXEC Load Module and TSO/E Commands

PostPosted: Sat Nov 14, 2015 2:56 am
by Akatsukami
I'm not familiar with compiled Rexx, but I very much doubt it. You could try establishing a TSO environment with a LINKMVS IKJTSOEV, but I can't think how you'd start ISPF after that.

Re: Urgent!! REXX EXEC Load Module and TSO/E Commands

PostPosted: Tue Nov 24, 2015 10:57 pm
by Pedro
I do not think you can do what you want to do. You have a requirement that cannot be fulfilled. Perhaps you can explain the reasons for the requirement.

On the other hand, I was able to have some success several years ago, not with a rexx program, but with an assembler program.
   XCTL (2,14),EP=IKJEFT01 

The XCTL is the 'transfer control' macro. In this way, you can have an arbitrary program name, but have it still do IKJEFT01 work. See "MVS Programming: Assembler Services Guide" for more information.

The tricky part is that IKJEFT01 is APF authorized... I think the calling program has to also be APF authorized. Properly protected systems will not allow you to put your load module in an APF data set without a stringent review and approval process.

//MYTSO  EXEC PGM=MYTSO,PARM='%MYREXX'
//STEPLIB  DD DISP=SHR,DSN=APF.MYTSO.LOAD   

Register 1 should continue to point to the original parameter list for more flexibility.

note: if for some reason, you are prohibited from using IKJEFT01 and you try to circumvent the rules, it could be grounds for termination.