R: [COBOL400-L] [C400-L] ILE return codes (fwd)

["Finucci Domenico" <Domenico.Finucci@xxxxxxxxxxxx>]

Hi, Jared: you are right: its name is just return-code. COBOL reference manual 
says:
"RETURN-CODE Special Register
IBM Extension
The RETURN-CODE special register can be used to pass return code information
(that is, a numeric value) from a program to its caller (either a calling 
program or
the system).
You can set the RETURN-CODE special register before executing an EXIT
PROGRAM, GOBACK, or STOP RUN statement.
RETURN-CODE has the implicit definition:
01 RETURN-CODEGLOBAL PICTURES9999 USAGEBINARY VALUE0
This special register may be used anywhere in a program where a data-item with a
data definition of PICTURE S9999 USAGE BINARY is allowed. When used in
nested programs, the RETURN-CODE special register is implicitly defined as
GLOBAL in the outermost program. When a COBOL subprogram terminates, the
contents of the RETURN-CODE special register of the subprogram are transferred
into the RETURN-CODE special register of the calling program. When the main
COBOL program terminates, and control returns to the operating system, the
special register content is returned to the operating system as a user return 
code."

Have good time.


        Domenico Finucci
        Sistemi informativi, Tel. + 39 02-43.01.2494
        Fiditalia S.p.A. via G. Silva, 34 - 20149 Milano
        E-mail: domenico.finucci@xxxxxxxxxxxx 
> Sito internet: www.fiditalia.it
> 


-----Messaggio originale-----
Da: jared [mailto:jhunter@xxxxxxxxxxxx]
Inviato: martedì 20 luglio 2004 16.58
A: cobol400 list
Oggetto: [COBOL400-L] [C400-L] ILE return codes (fwd)


figured i should ask this here too...

---------- Forwarded message ----------

Hi All-

I'm calling ILE C procedures, bound into a service program, from inside an
ILE COBOL application.  On OS390, I was able to get the return codes from
the C code, as they were showing up in COBOL's return-code special
register.  But so far in my V5R2 environment I've yet to get this to work.

The service program is being bound with the default *CALLER activation
group flag.  I can step right from the COBOL into the C code, watch the
status variable get set non-zero, step through the return statement, and
verify that return-code still == 0 when I pop back out into the COBOL
side.

Any ideas?

-Jared

_______________________________________________
This is the C programming iSeries / AS400 (C400-L) mailing list
To post a message email: C400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/c400-l
or email: C400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/c400-l.


_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.