IDENTIFICATION DIVISION.  
        EXEC TAA 
            IDENTIFY NFUN SERVICE MYMODL IN TEST  
       END-EXEC.
    DATA DIVISION. 
    WORKING-STORAGE SECTION. 
       EXEC TAA   
         DECLARE  L-OBJ1  
         WITH TYPE INKAS  
         AND CLASS REC 
       END-EXEC.   
    LINKAGE SECTION. 
    PROCEDURE DIVISION.
      EXEC TAA REGISTER END-EXEC.    
*     AUFRUF Interaktion - lange Schreibweise:
      EXEC TAA
         INTR SERVICE IMX3 IN TEST.ERFASSEN
        WITH PRISIKO=PRISIKO
        AND PVERTRG=PVERTRG
        AND BYVAL PVINKAS=L-OBJ1
      END-EXEC.
*      Weitere Verarbeitung je nach Status des Services:
      IF TC-STATE-ERFASST OF IMX3
      ........
      .....
*     Aufruf Funktion - kurze Schreibweise:
      EXEC TAA
       CALL SERVICE GESAMTPLAUSIBILITAETEN.PRUEFEN
         WITH PRISIKO
         AND PVERTRG BY VALUE
         AND PVINKAS=L-OBJ1
      END-EXEC.