This 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.
Usage
CALL "C$CALLERR" USING ERR-CODE, ERR-MESSAGE
Parameters
ERR-CODE PIC X(2)
The single PIC X(2) parameter in this routine receives one of the following values:
01 --Program file missing or inaccessible
02 --Called file not a COBOL program
03 --Corrupted program file
04 --Inadequate memory available to load program
05 --Unsupported object code version number
06 --Recursive CALL of a program
07 --Too many external segments
08 --Large-model program not supported
(returned only by runtimes that do not support large-model programs)
09 --Exit Windows and run SHARE.EXE to run multiple copies of WRUNCBL
(returned only by Windows runtimes)
14 --Japanese objects are not supported
(returned only by runtimes that do not support Japanese objects)
ERR-MESSAGE PIC X(n) --(optional)
This routine may optionally be passed a second alphanumeric parameter. This parameter is filled in with a descriptive message about the error encountered.