🚀 go-pugleaf

On Wed, 27 Nov 1996 19:51:21 GMT 100572.1224@compuserve.com (Ken MacKenzie)
wrote:

[Posted and mailed]

:>I have developed a method of calling COBOL programs from REXX (in an
:>IBM/MVS/TSO environment).  If anyone is interested, then please e-mail
:>me for details.

Wouldn't there be two easy ways:

ADDRESS TSO "CALL 'lib(pgm)' '"parms"'"    

           and 

ADDRESS LINKMVS "pgm parms"

:>If there is enough interest, I will post it to these newsgroups.

Curious to know what is unique about your approach.

:>--
:>Ken MacKenzie

--
Binyamin_Dissen@theoffice.net
Binyamin Dissen <bdissen@netvision.net.il>

Director, Dissen Software, Bar & Grill - Israel

Binyamin_Dissen@theoffice.net (Binyamin Dissen) wrote:

>On Wed, 27 Nov 1996 19:51:21 GMT 100572.1224@compuserve.com (Ken MacKenzie)
>wrote:
>
>[Posted and mailed]
>
>:>I have developed a method of calling COBOL programs from REXX (in an
>:>IBM/MVS/TSO environment).  If anyone is interested, then please e-mail
>:>me for details.
>
>Wouldn't there be two easy ways:
>
>ADDRESS TSO "CALL 'lib(pgm)' '"parms"'"    
>
>           and 
>
>ADDRESS LINKMVS "pgm parms"
>
>:>If there is enough interest, I will post it to these newsgroups.
>
>Curious to know what is unique about your approach.
>
>:>--
>:>Ken MacKenzie
>
>--
>Binyamin_Dissen@theoffice.net
>Binyamin Dissen <bdissen@netvision.net.il>
>
>Director, Dissen Software, Bar & Grill - Israel
Sorry, I didn't make my message clear enough.  What I meant was, my
routine will allow you to call a COBOL program as a REXX
function/subroutine.  The COBOL program will have access to the EFPL
and will be able to return a result.


--
Ken MacKenzie

In <329c9b07.250436175@news.compuserve.co.uk>, 100572.1224@compuserve.com (Ken MacKenzie) writes:
>I have developed a method of calling COBOL programs from REXX (in an
>IBM/MVS/TSO environment).  If anyone is interested, then please e-mail
>me for details.
>
>If there is enough interest, I will post it to these newsgroups.
Post it

Peter

begin 644 rxefpl.txt
<uuencoded_portion_removed>
0("`@("`@("`@("`@("`-"@``
`
end

It seems that there is enough interest, so here goes.
I am sending the actual code as an attachment.  I have never done this before
so, be prepared for me getting it wrong! <g>

Note that I recommend a dynamic call but, it's up to you 
how you do it.  Of course, the assumption is that you are using COBOL2 or
COBOL/370.

Have fun - if you need to allocate a return area (EVALBLOCK)  bigger than 250
bytes and are not sure how, just drop me a line and I will help you out.

The next thing I will investigate is the use of "shared variables", this will
allow me to manipulate REXX variables within my COBOL programs.  Watch this
space ...


--
Ken MacKenzie
100572.1224@compuserve.com
(or kenmac.compuserve.com,
 when they get their finger out!)