isCOBOL Evolve : Appendices : Library Routines : C$CALLERR
C$CALLERR
The C$CALLERR routine may be called to retrieve the reason why the last CALL statement failed. For accurate information, it must be called before any other CALL statement is executed.
Syntax:
 CALL "C$CALLERR" USING  errorCode
                        [errorMessage]
Parameters:
errorCode
PIC X(2)
It's the error code, it receives the value "01".
errorMessage
PIC X(n)
Optional, It receives a descriptive message about the error encountered.
Examples:
Example - Show the call error after a failed call
working-storage section.
77 err-code pic x(2).
77 err-text pic x(256).
...
procedure division.
...
 call "program-not-exist"
      on exception call "c$callerr" using err-code, err-text.