I see that Sri Hari Kolusu posted before I got done.
But here is another set of things you may want to look at
(assuming you haven't already): EAGGXOB in prefix.SEAGSAM. It has
a sample for setting up to invoke REXX from a COBOL program. [our
system is in the process of migrating, so certain libraries are
not available to me now, so I can't find the "prefix" for SEAGSAM
so I could copy the sample to here.]
For tracing purposes, in the called REXX that does not return
with a value, put in a "TS" (Trace Start). This will cause trace
to run in a non-interactive environment. To stop it use "TE"
(Trace End). In my case, this writes out to SYSTSPRT.
I hope this helps you.
Steve Thompson
On 5/7/2024 7:33 AM, Lars Höglund wrote:
Hi
Trying to execute a Rexx from my Cobol program by using IRXEXEC and IKJTSOEV
The Rexx starts and executes ok until that Rexx is calling another Rexx (in the
same library, allocated to SYSEXEC) that shall return a value, but I'm getting
An error has occurred in Rexx module: XMAIL
Error Type : SYNTAX
Error Line Number : 299
Instruction : jobinfo = JOBINFO()
Return Code : 44
Error Message text: Function did not return data
Running the same Rexx in ISPF or TSO, it works just fine
I have also a trace in the called Rexx but nothing shows, probably isn't the
Rexx starting
The ddname-parameter is set to space
move space to execblk-ddname *> default SYSEXEC
Any suggestions
//Lasse
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
