ABAP 搜索帮助的建立F4IF_INT_TABLE_VALUE_REQUEST

为screen上的输入框增加F4搜查功能

定义内表：

data :LT_ZFI_FJZD1  type   table   of  ZFI_FJZD1  with   header   line .

1`在screen的 PAI  上code:

PROCESS AFTER  INPUT.
  process  on  value-request.   "输入字段的响应
     field COBL-ZZFI01  module f4_help_for_ZZFI01.

2`编写MODULE   F4_HELP_FOR_ZZFI01.

module F4_HELP_FOR_ZZFI01  input.

  data:lt_ZFI_FJZD1  type  table  of ZFI_FJZD1  with  header  line.

  select *  into  table lt_ZFI_FJZD1
    from zfi_fjzd1.

  CALL  FUNCTION  'F4IF_INT_TABLE_VALUE_REQUEST'
       EXPORTING
        retfield =  'COBL-ZZFI01'           "大写,可选值内表的字段名
        value_org =  'S'                 "     就写'S'
        dynpprog = SY-REPID         "返回的输入框所在的main program
        dynpnr = SY-DYNNR            "返回的输入框所在屏幕
        dynprofield =  'COBL-ZZFI01'     "返回的输入框名
       TABLES
        value_tab = lt_ZFI_FJZD1       " 可选值的内表
       EXCEPTIONS
        parameter_error =  1
        no_values_found =  2
         others =  3.
     IF SY-SUBRC <>  0.
       MESSAGE  ID SY-MSGID  TYPE SY-MSGTY  NUMBER SY-MSGNO
       WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
     ENDIF.

endmodule.                  " F4_HELP_FOR_ZZFI01  INPUT

  该function是将 lt_ZFI_FJZD1 : value_tab的retfield列显示在屏幕上以供选择,

 

  并返回到 dynpprog-dynpnr-dynprofield 框中.