RE: Receive COBOL RETURN-CODE in RPGLE

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
I appreciate your response, Howard. In this case, the RETURN-CODE is a COBOL
"thing." I am familiar with communicating with COBOL from RPG using
parms/linkage, but in this case it's an actual program return code rather
than a parm we're passing back and forth. Here is a sample from the COBOL
code:

MOVE 99 TO RETURN-CODE
STOP RUN
.

RETURN-CODE is not a defined variable, so I'm making a tiny assumption that
it's a reserved word and that somehow I can get the value in the calling RPG
program.

(Similarly, in C your functions usually take parameters, but also can return
a value which the calling function can capture, and that is done all the
time, which is why I'm baffled that I can't find how to do this between RPG
and COBOL on the 400.)

-----Original Message-----
From: Weatherly, Howard [mailto:Howard.Weatherly@dlis.dla.mil]
Sent: Monday, September 23, 2002 4:23 PM
To: 'midrange-l@midrange.com'
Subject: RE: Receive COBOL RETURN-CODE in RPGLE


This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
Is the RETURN-CODE var an RPG thing? cause usually in COBOL you pass things
like that as PARM values, so in Linkage Section there would be a level 1 (or
some part of a level 1) that you would place a value in, the procedure
division would look like Procedure Division Using 01-Name. (which would be
the 01 name in Linkage). The COBOL program would do it's thing then set some
value in 01-Name and execute a GoBack. The RPG (Disclaimer, I am not an RPG
person) program would have a PARM list containing a positional value name
representing the name 01-Name which would contain the return value.

-----Original Message-----
From: Metz, Zak [mailto:Zak_Metz@G1.com]
Sent: Monday, September 23, 2002 4:13 PM
To: 'midrange-l@midrange.com'
Subject: Receive COBOL RETURN-CODE in RPGLE


This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
I'm embarrassed to even ask this question, but I sure can't find the answer.

If I "CALL" a COBOL program from an RPGLE program, how do I capture the
value that the COBOL program has returned using the RETURN-CODE variable?
This is an unbound call.

Seems, oh so simple...but the answer eludes me.

TIA!
NOTICE:  This E-mail may contain confidential information.  If you are not
the addressee or the intended recipient please do not read this E-mail and
please immediately delete this e-mail message and any attachments from your
workstation or network mail system. If you are the addressee or the intended
recipient and you save or print a copy of this E-mail, please place it in an
appropriate file, depending on whether confidential information is contained
in the message.

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.
NOTICE:  This E-mail may contain confidential information.  If you are not
the addressee or the intended recipient please do not read this E-mail and
please immediately delete this e-mail message and any attachments from your
workstation or network mail system. If you are the addressee or the intended
recipient and you save or print a copy of this E-mail, please place it in an
appropriate file, depending on whether confidential information is contained
in the message.