Code: Alles auswählen.
TYPES: BEGIN OF ty_xx.
INCLUDE STRUCTURE zxx.
INCLUDE STRUCTURE vimflagtab.
TYPES: END OF ty_xx.
DATA lt_xx TYPE STANDARD TABLE OF ty_xx.
DATA ls_xx TYPE ty_xx.
START-OF-SELECTION.
ls_xx-mandt = sy-mandt.
ls_xx-feld1 = 'NEU1'.
ls_xx-action = 'N'.
APPEND ls_xx TO lt_xx.
CALL FUNCTION 'VIEW_MAINTENANCE_GIVEN_DATA'
EXPORTING
action = 'U'
generate_maint_tool_if_missing = 'X'
view_name = 'ZXX'
TABLES
data = lt_gj
EXCEPTIONS
OTHERS = 13.
Code: Alles auswählen.
DATA: wa_t001w TYPE t001w,
it_werks TYPE TABLE OF t001w,
lt_tabix TYPE sytabix.
SELECT * FROM t001w INTO TABLE it_werks.
LOOP AT it_upload INTO wa_upload.
lt_tabix = sy-tabix.
READ TABLE it_werks INTO wa_t001w WITH KEY werks = wa_upload-werks_d.
IF sy-subrc <> 0.
PERFORM write_protocoll " Error ausgeben und Protokoll anzeigen
ENDIF.