F4_hlep_exit

change:

SHLP TYPE SHLP_DESCR_T                       屏幕，當前錶行索引
CALLCONTROL LIKE DDSHF4CTRL                       具有搜索幫助出口的 F4 處理控制結構

tables:

SHLP_TAB TYPE SHLP_DESCR_TAB_T                                                                               
RECORD_TAB LIKE SEAHLPRES 搜索幫助的結果結構

golb data:LZFUCTOP

 FUNCTION-POOL ZFUC.                         "MESSAGE-ID ..
DATA:INPUT(20)  TYPE C,
     OUTPUT(20) TYPE C.
*--> Typen Bedarfsplanung
TYPE-POOLS:
  MRP,
  M61X,
  SHLP.                  "Typgruppe für F4 Suchhilfe Exit

source code:

 FUNCTION Z_ZWEI_HELP.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  TABLES
*"      SHLP_TAB TYPE  SHLP_DESCR_TAB_T
*"      RECORD_TAB STRUCTURE  SEAHLPRES
*"  CHANGING
*"     REFERENCE(SHLP) TYPE  SHLP_DESCR_T
*"     REFERENCE(CALLCONTROL) LIKE  DDSHF4CTRL STRUCTURE  DDSHF4CTRL
*"----------------------------------------------------------------------
  DATA:SELOPT   TYPE SELOPT OCCURS 0 WITH HEADER LINE.
  TYPES:BEGIN OF L_SELOPT,
          SHLPNAME(30) TYPE C,
          SHLPFIELD(30) TYPE C,
          SIGN   TYPE SELOPT-SIGN,
          OPTION TYPE SELOPT-OPTION,
          LOW    TYPE SELOPT-LOW,
          HIGH   TYPE SELOPT-HIGH,
        END OF L_SELOPT.
  DATA:L_SELOPT1 TYPE L_SELOPT.
  DATA:T_SELOPT1 TYPE L_SELOPT OCCURS 0.
LOOP AT SHLP_TAB WHERE SHLPNAME = 'ZWEI_HELP'.

    L_SELOPT1-SHLPNAME  = 'ZWEI_HELP'.
    L_SELOPT1-SHLPFIELD = 'BSART'.
    L_SELOPT1-SIGN      = 'I'.
    L_SELOPT1-OPTION    = 'EQ'.
    L_SELOPT1-LOW       = 'NB'.
    L_SELOPT1-HIGH      = ''.
    APPEND L_SELOPT1 TO T_SELOPT1.

    L_SELOPT1-SHLPNAME  = 'ZWEI_HELP'.
    L_SELOPT1-SHLPFIELD = 'BSART'.
    L_SELOPT1-SIGN      = 'I'.
    L_SELOPT1-OPTION    = 'EQ'.
    L_SELOPT1-LOW       = 'SN'.
    L_SELOPT1-HIGH      = ''.
    APPEND L_SELOPT1 TO T_SELOPT1.
    SHLP_TAB-SELOPT = T_SELOPT1.

    MODIFY SHLP_TAB.
ENDLOOP.
BREAK-POINT.

BREAK-POINT.

ENDFUNCTION.