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.
*"----------------------------------------------------------------------
*"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.
相关文章推荐
- How to use the Security Configuration and Analysis tool
- The robot API &&How to add and use sensor.
- How To Use the ODBC .NET Managed Provider in Visual C# .NET and Connection Strings
- How To Use the Windows Phone 8.1 GridView and ListView Controls
- [Android]:Setting up a Library Project and how to use the library (工程引用和dll引用)
- How to Use JSONKit for iOS and the Rotten Tomatoes API
- How To Use the ADO FetchProgress and FetchComplete Events
- jooq使用自定义策略生成代码(How to use a custom strategy with the jOOQ code-generator and Maven?)
- the command 'vim' and how to use it
- How to Access and Use the Windows Hosts File in Windows 7 and Vista
- Input and Output(easy to use)
- How to register and use the native Kentico jQuery library
- How to use the Erase Data and Disable Handheld command
- 802.11 WDS how does it work, when to use it and what are the limitations
- how to use a SQLite database in a standalone program with an HTML interface and VBScript as the programming language
- FolderSync :The various features and how to use them
- How to Create and Use the DLL
- 如何使用OpenCV的处理图像,文字变得锐利和清晰?(How to use OpenCV to process image so that the text become sharp and clea
- How to create fully custom Role, User, Event, Resource classes for use with the Security and Scheduler modules
- How to use the System Restore API to save and to restore system data in Visual C++