IDENTIFICATION DIVISION.
    EXEC TAA
        IDENTIFY EFUN SERVICE PG.-EFUN-FORMATE IN TEST
    END-EXEC.

 DATA DIVISION.
 WORKING-STORAGE SECTION.
 01 MYDATA PIC X(133).
 01 MY-IX PIC 99.
    EXEC TAA DECLARE LSTFMT TYPE PGFORMATE CLASS LST END-EXEC
    EXEC TAA DECLARE PGFORMT TYPE PGFORMATE CLASS REC END-EXEC
 LINKAGE SECTION.

 PROCEDURE DIVISION.
 MAIN SECTION.
    EXEC TAA REGISTER END-EXEC.
    SET TC-STATE-OK OF ME TO TRUE.
    EXEC TAA NEW PGFORMT END-EXEC.
    MOVE 1234567800.12 TO PGFORMT-000-PG-BETRAG.
    MOVE "29. JULI 1999" TO PGFORMT-000-PG-DATUM.
    MOVE 123.12345678 TO PGFORMT-000-PG-FAKTOR.
    MOVE "A" TO PGFORMT-000-PG-KENNZEICHEN.
    MOVE 112233445566 TO PGFORMT-000-PG-ZAHL.
    MOVE "Dies ist Text mit ÖÄÜöäüß{}[]<>|*§$&." TO
       PGFORMT-000-HG-TXT80.

    EXEC TAA CONVERT PGFORMT TO INTERCHANGE-FORMAT
        DATAAREA MYDATA
    END-EXEC.

    EXEC TAA NEW LSTFMT END-EXEC.
    MOVE 1 TO MY-IX
    PERFORM UNTIL MY-IX = 5
        PERFORM FILL-MYDATA
        EXEC TAA ADD LSTFMT END-EXEC.
        
        EXEC TAA CONVERT LSTFMT FROM INTERCHANGE-FORMAT
            DATAAREA MYDATA
        END-EXEC

        EXEC TAA PUT LSTFMT END-EXEC
        ADD 1 TO MY-IX
    END-PERFORM

    EXEC TAA UNREGISTER END-EXEC.