FUNCTION CONVERSION_EXIT_PARVW_INPUT.
*"----------------------------------------------------------------------
*"Lokale Schnittstelle:
*" IMPORTING
*" INPUT
*" EXPORTING
*" OUTPUT
*"----------------------------------------------------------------------
READ TABLE S WITH KEY SY-LANGU.
IF SY-SUBRC NE 0.
SELECT * FROM TPAUM APPENDING TABLE XTPAUM WHERE SPRAS = SY-LANGU.
SORT XTPAUM BY SPRAS PARVW.
S-SPRAS = SY-LANGU. APPEND S.
ENDIF.
CLEAR OUTPUT.
LOOP AT XTPAUM WHERE SPRAS = SY-LANGU AND PABEZ = INPUT.
OUTPUT = XTPAUM-PARVW.
EXIT.
ENDLOOP.
IF OUTPUT = ' '. OUTPUT = INPUT. ENDIF.
ENDFUNCTION.
FUNCTION CONVERSION_EXIT_PARVW_OUTPUT.
*"----------------------------------------------------------------------
*"Lokale Schnittstelle:
*" IMPORTING
*" INPUT
*" EXPORTING
*" OUTPUT
*"----------------------------------------------------------------------
READ TABLE S WITH KEY SY-LANGU.
IF SY-SUBRC NE 0.
SELECT * FROM TPAUM APPENDING TABLE XTPAUM WHERE SPRAS = SY-LANGU.
SORT XTPAUM BY SPRAS PARVW.
S-SPRAS = SY-LANGU. APPEND S.
ENDIF.
TPAUM_KEY-MANDT = SY-MANDT.
TPAUM_KEY-SPRAS = SY-LANGU.
TPAUM_KEY-PARVW = INPUT.
READ TABLE XTPAUM WITH KEY TPAUM_KEY BINARY SEARCH.
IF SY-SUBRC = 0.
OUTPUT = XTPAUM-PABEZ.
ELSE.
OUTPUT = INPUT.
ENDIF.
ENDFUNCTION.