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.