SAP基本搜索帮助及增强出口详解编程语言

*"*"本地接口： 
*"  TABLES 
*"      SHLP_TAB TYPE  SHLP_DESCT 
*"      RECORD_TAB STRUCTURE  SEAHLPRES 
*"  CHANGING 
*"     VALUE(SHLP) TYPE  SHLP_DESCR 
*"     VALUE(CALLCONTROL) LIKE  DDSHF4CTRL STRUCTURE  DDSHF4CTRL 
*"---------------------------------------------------------------------- 
* EXIT immediately, if you do not want to handle this step 
IF callcontrol-step <> 'SELONE' AND 
callcontrol-step <> 'SELECT' AND 
" AND SO ON 
callcontrol-step <> 'DISP'. 
EXIT. 
ENDIF. 
*"---------------------------------------------------------------------- 
* STEP SELONE  (Select one of the elementary searchhelps) 
*"---------------------------------------------------------------------- 
* This step is only called for collective searchhelps. It may be used 
* to reduce the amount of elementary searchhelps given in SHLP_TAB. 
* The compound searchhelp is given in SHLP. 
* If you do not change CALLCONTROL-STEP, the next step is the 
* dialog, to select one of the elementary searchhelps. 
* If you want to skip this dialog, you have to return the selected 
* elementary searchhelp in SHLP and to change CALLCONTROL-STEP to 
* either to 'PRESEL' or to 'SELECT'. 
IF callcontrol-step = 'SELONE'. 
*   PERFORM SELONE ......... 
EXIT. 
ENDIF. 
*"---------------------------------------------------------------------- 
* STEP PRESEL  (Enter selection conditions) 
*"---------------------------------------------------------------------- 
* This step allows you, to influence the selection conditions either 
* before they are displayed or in order to skip the dialog completely. 
* If you want to skip the dialog, you should change CALLCONTROL-STEP 
* to 'SELECT'. 
* Normaly only SHLP-SELOPT should be changed in this step. 
IF callcontrol-step = 'PRESEL'. 
*   PERFORM PRESEL .......... 
EXIT. 
ENDIF. 
*"---------------------------------------------------------------------- 
* STEP SELECT    (Select values) 
*"---------------------------------------------------------------------- 
* This step may be used to overtake the data selection completely. 
* To skip the standard seletion, you should return 'DISP' as following 
* step in CALLCONTROL-STEP. 
* Normally RECORD_TAB should be filled after this step. 
* Standard function module F4UT_RESULTS_MAP may be very helpfull in this 
* step. 
IF callcontrol-step = 'SELECT'. 
IF sy-uname = 'PLM-SEAN'. 
BREAK-POINT. 
ENDIF. 
"RECORD_TAB表的string字段里边包含了三位的空位及按照搜索帮助输出字段位置lpos顺序排列的各个输出字段的合并 
SELECT FROM t001l 
FIELDS concat( concat(  concat( mandt ,werks ), lgort ),lgobe ) AS string INTO TABLE @record_tab. 
SELECT 
* 
FROM t001l 
INTO TABLE @DATA(lt_t001l). 
"也可以使用系统标准函数F4UT_RESULTS_MAP将源数据绑定到recordtab 
CALL FUNCTION 'F4UT_RESULTS_MAP' 
*        EXPORTING 
*          SOURCE_STRUCTURE         = 
*          APPLY_RESTRICTIONS       = ' ' 
TABLES 
shlp_tab    = shlp_tab 
record_tab  = record_tab 
source_tab  = lt_t001l 
CHANGING 
shlp        = shlp 
callcontrol = callcontrol 
*        EXCEPTIONS 
*       ILLEGAL_STRUCTURE        = 1 
*       OTHERS      = 2 
      . 
IF sy-subrc <> 0. 
* Implement suitable error handling here 
ENDIF. 
callcontrol-step = 'DISP'. 
*   IF RC = 0. 
*     CALLCONTROL-STEP = 'DISP'. 
*   ELSE. 
*     CALLCONTROL-STEP = 'EXIT'. 
*   ENDIF. 
EXIT. "Don't process STEP DISP additionally in this call. 
ENDIF. 
*"---------------------------------------------------------------------- 
* STEP DISP     (Display values) 
*"---------------------------------------------------------------------- 
* This step is called, before the selected data is displayed. 
* You can e.g. modify or reduce the data in RECORD_TAB 
* according to the users authority. 
* If you want to get the standard display dialog afterwards, you 
* should not change CALLCONTROL-STEP. 
* If you want to overtake the dialog on you own, you must return 
* the following values in CALLCONTROL-STEP: 
* - "RETURN" if one line was selected. The selected line must be 
*   the only record left in RECORD_TAB. The corresponding fields of 
*   this line are entered into the screen. 
* - "EXIT" if the values request should be aborted 
* - "PRESEL" if you want to return to the selection dialog 
* Standard function modules F4UT_PARAMETER_VALUE_GET and 
* F4UT_PARAMETER_RESULTS_PUT may be very helpfull in this step. 
IF callcontrol-step = 'DISP'. 
*   PERFORM AUTHORITY_CHECK TABLES RECORD_TAB SHLP_TAB 
*                           CHANGING SHLP CALLCONTROL. 
EXIT. 
ENDIF.