IDENTIFICATION DIVISION.
    EXEC TAA IDENTIFY EFUN SERVICE AF-DATEN-TBF-VERSORGEN
     IN LEVERT END-EXEC.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
    DECIMAL-POINT IS COMMA.
DATA DIVISION.
WORKING-STORAGE SECTION.
* ......
LINKAGE SECTION.
PROCEDURE DIVISION.
MAIN SECTION.
    EXEC TAA REGISTER END-EXEC
    SET TC-STATE-NICHT-OK OF ME TO TRUE
    EVALUATE TRUE
    WHEN TC-EVENT-DURCHFUEHREN
       PERFORM INIT
       PERFORM ANTRAG-VERTRAG
       SET TC-STATE-OK OF ME TO TRUE
    WHEN OTHER
       EXEC TAA SET AND RAISE SEVERE GROUP APPLERR CODE 3
          ARGUMENTS = (TC-EVENT)
       END-EXEC
    END-EVALUATE
    EXEC TAA UNREGISTER END-EXEC.