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 (optional) PIC X(n)
This routine may optionally be passed a second alphanumeric parameter. This parameter is filled in with a descriptive message about the error encountered.