6.4.2 Logging Errors to the Runtime's Error File

The code fragment below shows how to log permanent file errors into the runtime's error file. Normally, you would also use the "+e" runtime flag to name the error file and cause new messages to be appended to the end of the file.

Example:

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
    SYSERR IS ERROR-LOG.

PROCEDURE DIVISION.
DECLARATIVES.
CUSTOMER-ERROR-PROCEDURE.
    USE AFTER STANDARD ERROR PROCEDURE ON CUSTOMER-FILE.
CUSTOMER-ERROR.
    IF CUSTOMER-FILE-STATUS = "30" OR "98"
        CALL "C$RERR" USING EXTENDED-STATUS
        DISPLAY "CUSTOMER FILE ERROR "", EXTENDED-
        STATUS UPON ERROR-LOG.