The following is an example of installing an error procedure, and the skeleton of the error procedure that is called if an error occurs.
working-storage section. 01 install-flag pic x comp-x value 0. 01 install-address usage procedure-pointer. 01 status-code pic 9(4) comp value zeros. local-storage section. linkage section. 01 err-msg pic x(325). procedure division. set install-address to entry "err-proc". call "CBL_ERROR_PROC" using install-flag install-address returning status-code. ... ... * Error procedure: entry "err-proc" using err-msg. * Process err-msg to find out the error number. * Act accordingly. ... * Terminate, but allow other error procedures to be executed. move 1 to return-code exit program stop run.
Related Topics: