IDENTIFICATION DIVISION.
    EXEC TAA
        IDENTIFY NFUN SERVICE MYMODL IN TEST
    END-EXEC.
 DATA DIVISION.
 WORKING-STORAGE SECTION.
    EXEC TAA
        DECLARE L-OBJ2
        WITH TYPE KUNDE
        AND CLASS LST
    END-EXEC.
    EXEC TAA
        DECLARE L-OBJ1
        WITH TYPE KUNDE
        AND CLASS REC
    END-EXEC.
 LINKAGE SECTION.
 PROCEDURE DIVISION.
    EXEC TAA REGISTER END-EXEC.
*   Verwendung der lokalen Objekte in Service-Anforderung:
    EXEC TAA
       CALL NINT SERVICE MY-INTR-PRN-BEARBEITEN IN TEST.ERFASSEN
       WITH KUNDE=L-OBJ1
    END-EXEC.
*   Anlegen über NEW:
    EXEC TAA
        NEW L-OBJ2
    END-EXEC.