DEF VAR xString AS CHAR                     NO-UNDO.
    DEF VAR sHandle AS CHAR                     NO-UNDO.
    DEF VAR ix      AS INT                      NO-UNDO.
    DEF VAR hHandle AS HANDLE                   NO-UNDO.

    IF sAktiv THEN RUN FENSTER_TITEL ( INPUT {&WINDOW-NAME}:HANDLE ) NO-ERROR.

    sHandle = DYNAMIC-FUNCTION('linkHandles':U, 'Container-Target':U ).

    DO WHILE TRUE:
        IF sHandle = '' THEN LEAVE.
        DO ix = 1 TO NUM-ENTRIES(sHandle, ','):
            hHandle = WIDGET-HANDLE(ENTRY(ix, sHandle)) NO-ERROR.
            IF NOT VALID-HANDLE(hHandle) THEN NEXT.
            xString = hHandle:NAME.
            IF INDEX(xString, 'dyntoolbar') = 0 THEN NEXT.
            hAktionen = hHandle.
            LEAVE.
        END.
        IF NOT VALID-HANDLE(hAktionen) THEN LEAVE.

        RUN initializeObject IN hAktionen.

        RUN setProgname IN hAktionen ( INPUT Progname ) NO-ERROR.

        xString = DYNAMIC-FUNCTION('getMeldung':U, 8001, 1) NO-ERROR.
        DYNAMIC-FUNCTION('assignActionLabel':U IN hAktionen, 'ADD'   , xString) NO-ERROR.
        xString = DYNAMIC-FUNCTION('getMeldung':U, 8002, 1) NO-ERROR.
        DYNAMIC-FUNCTION('AssignBezeichnung':U IN hAktionen, 'UPDATE', xString) NO-ERROR.
        xString = DYNAMIC-FUNCTION('getMeldung':U, 8003, 1) NO-ERROR.
        DYNAMIC-FUNCTION('AssignBezeichnung':U IN hAktionen, 'COPY'  , xString) NO-ERROR.
        xString = DYNAMIC-FUNCTION('getMeldung':U, 8004, 1) NO-ERROR.
        DYNAMIC-FUNCTION('AssignBezeichnung':U IN hAktionen, 'DELETE', xString) NO-ERROR.
        xString = DYNAMIC-FUNCTION('getMeldung':U, 8005, 1) NO-ERROR.
        DYNAMIC-FUNCTION('AssignBezeichnung':U IN hAktionen, 'SAVE'  , xString) NO-ERROR.
        xString = DYNAMIC-FUNCTION('getMeldung':U, 8006, 1) NO-ERROR.
        DYNAMIC-FUNCTION('AssignBezeichnung':U IN hAktionen, 'UNDO'  , xString) NO-ERROR.
        xString = DYNAMIC-FUNCTION('getMeldung':U, 8007, 1) NO-ERROR.
        DYNAMIC-FUNCTION('AssignBezeichnung':U IN hAktionen, 'CANCEL', xString) NO-ERROR.

        xString = DYNAMIC-FUNCTION('getMeldung':U, 7991, 1) NO-ERROR.
        DYNAMIC-FUNCTION('AssignBezeichnung':U IN hAktionen, 'FIRST' , xString) NO-ERROR.
        xString = DYNAMIC-FUNCTION('getMeldung':U, 7992, 1) NO-ERROR.
        DYNAMIC-FUNCTION('AssignBezeichnung':U IN hAktionen, 'PREV'  , xString) NO-ERROR.
        xString = DYNAMIC-FUNCTION('getMeldung':U, 7993, 1) NO-ERROR.
        DYNAMIC-FUNCTION('AssignBezeichnung':U IN hAktionen, 'NEXT' , xString) NO-ERROR.
        xString = DYNAMIC-FUNCTION('getMeldung':U, 7994, 1) NO-ERROR.
        DYNAMIC-FUNCTION('AssignBezeichnung':U IN hAktionen, 'LAST' , xString) NO-ERROR.

        RUN setButtons  IN hAktionen ( INPUT 'Initial-TableIo':U ) NO-ERROR.
        LEAVE.
    END.

    RUN selectPage ( 1 ).