Steh aufm Schlauf - ITAB Feld updaten

Code: Alles auswählen.

    WHEN 'SAVE'.
*     Lokale Datendeklaration
      DATA l_subrc TYPE sy-subrc.

      l_subrc = sy-subrc.

*     Stelle die Daten aus interner Tabelle bereit
      LOOP AT gt_adresse INTO g_wa_adresse
        WHERE id IS initial.

*       Ziehe eine Nummer aus einem Nummernkreis für die ID
        CALL FUNCTION 'NUMBER_GET_NEXT'
          EXPORTING
            nr_range_nr                   = '01'
            object                        = 'ZMBE_ADRES'
*       QUANTITY                      = '1'
*       SUBOBJECT                     = ' '
*       TOYEAR                        = '0000'
*       IGNORE_BUFFER                 = ' '
          IMPORTING
            number                        = g_wa_adresse-id
*       QUANTITY                      =
*       RETURNCODE                    =
         EXCEPTIONS
           interval_not_found            = 1
           number_range_not_intern       = 2
           object_not_found              = 3
           quantity_is_0                 = 4
           quantity_is_not_1             = 5
           interval_overflow             = 6
           buffer_overflow               = 7
           OTHERS                        = 8.

*       Füge das Feld ID in die Interne Tabelle ein
[color=red]        MODIFY gt_adresse FROM g_wa_adresse.[/color]
*       Mache einen Commit
        PERFORM commit_work USING l_subrc
                            CHANGING g_cl_msg.
[color=red]      ENDLOOP.[/color]
      IF g_cl_msg IS INITIAL.

*       Füge die ID in Datenbanktabelle ein
        MODIFY zmbe_adressdaten FROM g_wa_adresse.
*       Mache einen Commit
        PERFORM commit_work USING l_subrc
                            CHANGING g_cl_msg.

      ENDIF.