isCOBOL Evolve : Appendices : Library Routines : CBL_EXIT_PROC
CBL_EXIT_PROC
The CBL_EXIT_PROC library routine installs and removes exit procedures to be called automatically when the current run unit terminates normally.
Syntax:
 CALL "CBL_EXIT_PROC" USING installFlag 
                            programName
                 [RETURNING statusCode]
Parameters:
installFlag
any numeric data item or numeric literal
Zero if the exit procedure is to be installed; nonzero if it is to be removed.
programName
PIC X(n)
Name of the exit procedure to be installed or queried.
Return code:
statusCode can be any numeric data item and it is always zero.
Examples:
Example - Make a cleaning routine to be called when the current program exits normally
call "cbl_exit_proc" using 0, "myclean".