Re: RETURN value from a REXX Procedure

"MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 08/20/2019
03:03:44 PM:

REXX, itself, hasn't changed since then so I don't see it as an
issue that REXX/400 hasn't changed, either. Rather, it is changes
in CL/ILE and RPG/ILE that are needed in order to more fully support
REXX procedures. I don't see it as all that difficult for IBM to
allow the REXX RETURN instruction to pass back values in the
STRREXPRC command. Once that is done, then it is another "simple"
step to support REXX procedures from RPG/ILE, too. The first
stipulation, of course, is that parameters passed from RPG/ILE to
REXX/400 will *always* be passed by value.

I'd like to see a prototype such as the following supported in
RPG/ILE -- allowing, of course, that the REXX RETURN instruction is
supported for passing a value back to the caller.


dcl-pr MyRexxProcedure char(3000) extproc(*REXX:member:srcfile:library);
rexxparms char(3000) options(*nopass);
initcmdenv char(20) options(*nopass);
exitpgmlist char(22) dim(8) options(*nopass);
end-pr;


Sincerely,

Dave Clark