CBL_ERROR_PROC
The CBL_ERROR_PROC library routine installs or removes error procedures to be called automatically if and when the current run unit generates any of certain runtime errors. This implementation calls error procedures only when a run unit generates what is called an intermediate runtime error.
In order to receive the error information, the error procedure program should include the following Linkage Section parameter:
LINKAGE SECTION. 77 ERROR-DESC PIC X(325) PROCEDURE DIVISION USING ERROR-DESC. |
Note: only errors of the kind java.lang.Exception cause the error procedure to be invoked. This kind of exception is raised for most of the COBOL errors though.
Syntax:
CALL "CBL_ERROR_PROC" USING installFlag programName [RETURNING statusCode] |
Parameters:
installFlag | any numeric data item or numeric literal | Zero if the error procedure is to be installed; nonzero if it is to be removed. |
programName | PIC X(n) | Name of the error procedure to be installed or removed. |
Return code:
statusCode can be any numeric data item and it is always zero.
Examples:
Example - Use a specific program to catch runtime errors during the execution of a program, disable it at the end
... set-error-proc. call "cbl_error_proc" using 0, "myerrtrap". ... finish-program. call "cbl_error_proc" using 1, "myerrtrap" goback. |