TRY - CATCH block

This code example shows a TRY block executing an SQL statement:

TRY
    SELECT COUNT(*) INTO num_cust FROM customers WHERE ord_date <= max_date 
CATCH
    ERROR "Error caught during SQL statement execution:", SQLCA.SQLCODE
END TRY

A TRY block can be compared with WHENEVER ANY ERROR GOTO. Here is the equivalent of the previous code example:

WHENEVER ANY ERROR GOTO catch_error
    SELECT COUNT(*) INTO num_cust FROM customers WHERE ord_date <= max_date 
    GOTO no_error 
LABEL catch_error:
WHENEVER ERROR STOP
    ERROR "Error caught during SQL statement execution:", SQLCA.SQLCODE
LABEL no_error

The TRY statement can be nested in other TRY statements. In this example, the instruction in line #5 will be executed in case of SQL error:

TRY
    TRY
        SELECT COUNT(*) INTO num_cust FROM customers 
    CATCH
        ERROR "Try block 2: ", SQLCA.SQLCODE
    END TRY
CATCH
    ERROR "Try block 1: ", SQLCA.SQLCODE
END TRY

The TRY statement takes control over the current WHENEVER [ANY] ERROR handler, for the code lines between the TRY and CATCH keywords. However, between the CATCH and END TRY keywords, the current WHENEVER handler gets the control back. For example, in the next code example, the program output will show "In CATCH/END TRY":

DEFINE where STRING
MAIN
    WHENEVER ERROR CALL error_handler
    TRY
        LET where = "In TRY/CATCH"
        CONNECT TO "dummy"
    CATCH
        LET where = "In CATCH/END TRY"
        CONNECT TO "dummy"
    END TRY
END MAIN

FUNCTION error_handler()
    DISPLAY where
END FUNCTION

The WHENEVER ERROR RAISE instruction can be used module-wide to define the behavior when an exception occurs in a function that is called from a TRY / CATCH block. If an exception occurs in a statement after the WHENEVER ERROR RAISE instruction, the program flow returns from the function and raises the exception as if it had occurred in the code of the caller. If the exception is thrown in the MAIN block, the program stops because the exception cannot be processed by a caller. In this example, the instruction in line #5 will be executed if an exception occurs in the cust_report() function:

MAIN
    TRY
        CALL cust_report()
    CATCH
        ERROR "An error occurred during report execution: ", STATUS
    END TRY
END MAIN

FUNCTION cust_report()
    WHENEVER ERROR RAISE
    START REPORT cust_rep ...
    ...
END FUNCTION