您的位置:首页 > 编程语言 > PHP开发

How to use the CONVERSION_EXIT_PARVW_INPUT and CONVERSION_EXIT_PARVW_OUTPUT

2009-08-18 00:17 1086 查看
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.
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: