Code: Alles auswählen.
*[...] hier irrelevant
LOOP AT ZT_ZBED ASSIGNING FIELD-SYMBOL(<zeile>).
CALL FUNCTION 'FI_F4_ZTERM'
EXPORTING
I_KOART = 'K'
I_ZTERM = <zeile>-zterm
I_XSHOW = ''
I_ZTYPE = ''
I_NO_POPUP = 'X'
IMPORTING
E_ZTERM = v_langtext
EXCEPTIONS
NOTHING_FOUND = 1
OTHERS = 2.
WRITE v_langtext TO <zeile>-Z_LANGTEXT.
*[...]
Folgende Benutzer bedankten sich beim Autor PeterPaletti für den Beitrag:
Accetron
Code: Alles auswählen.
DATA: lt_zterm TYPE tzterm.
DATA: ls_zterm TYPE szterm.
CALL FUNCTION 'FI_F4_ZTERM'
EXPORTING
* I_KOART = ' '
* I_ZTERM = ' '
* I_XSHOW = ' '
* I_ZTYPE = ' '
i_no_popup = 'X'
IMPORTING
* E_ZTERM =
et_zterm = lt_zterm
EXCEPTIONS
nothing_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
LOOP AT lt_zbed ASSIGNING FIELD-SYMBOL(<zeile>).
READ TABLE lt_zterm INTO ls_zterm
WITH KEY zterm = <zeile>-zterm.
IF sy-subrc EQ 0.
WRITE ls_zterm-ztext TO <zeile>-langtext.
ENDIF.
ENDLOOP.
Folgende Benutzer bedankten sich beim Autor PeterPaletti für den Beitrag:
Accetron
Code: Alles auswählen.
LOOP AT lt_zbed ASSIGNING FIELD-SYMBOL(<zeile>).
<zeile>-langtext = VALUE #( lt_zterm[ zterm = <zeile>-zterm ]-ztext OPTIONAL ).
ENDLOOP.