Code: Alles auswählen.
TRANSLATE feld USING '§ '.
Code: Alles auswählen.
TYPES: BEGIN OF TY_ITAB,
FELD1(17) TYPE C,
FELD2(16) TYPE C,
FELD3(8) TYPE C,
FILLER(165) TYPE c,
END OF TY_ITAB.
DATA: ITAB TYPE STANDARD TABLE OF ITAB WITH NON_UNIQUE DEFAULT KEY.
Code: Alles auswählen.
TYPES:
BEGIN OF ts_vtxt_key,
matnr TYPE matnr,
vkorg TYPE vkorg,
vtweg TYPE vtweg,
END OF ts_vtxt_key.
DATA:
l_tdname TYPE tdobname. "STXH-TDNAME
FIELD-SYMBOLS:
<ls_tdname> TYPE ts_vtxt_key.
* Feldsymbol auf L_TDNAME legen
ASSIGN l_tdname TO <ls_tdname> CASTING. "CASTING ist wichtig
* jetzt kann man mittels des FS die Daten sauber befüllen
<ls_tdname>-matnr = mvke-matnr.
<ls_tdname>-vkorg = mvke-vkorg.
<ls_tdname>-vtweg = mvke-vtweg.
* etc.
Code: Alles auswählen.
DATA:
ls_tdname TYPE ts_vtxt_key.
ls_tdname-matnr = mvke-matnr.
ls_tdname-vkorg = mvke-vkorg.
ls_tdname-vtweg = mvke-vtweg.
l_tdname = ls_tdname. "umkopieren
Code: Alles auswählen.
CALL FUNCTION 'DELETE_TEXT'
EXPORTING
* CLIENT = SY-MANDT
id = '0001'
language = sy-langu
name = l_tdname "Typ muss TDBONAME o.Ä. sein
object = 'MVKE'
savemode_direct = 'X'
* TEXTMEMORY_ONLY = ' '
* LOCAL_CAT = ' '
EXCEPTIONS
not_found = 1
OTHERS = 2.