有关特性值的F4帮助

parameters:     p_matcat   like ausp-atwrt .
parameters:     p_concat   like cawn-atwrt .

在selection 中设置

at selection-screen on value-request for p_matcat.
  perform frm_f4_for_matcat using 'N_MATERIAL_CAT' 'p_matcat'.
at selection-screen on value-request for p_concat.
  perform frm_f4_for_matcat using 'N_TECH_CONTROL' 'p_concat'.

 

Form的具体实现

 FORM frm_f4_for_matcat USING iv_var TYPE api_vali-atwrt
                                                      iv_dynfield.
  DATA: ls_features LIKE klvmera,
        lt_features LIKE TABLE OF klvmera,
        ls_values   LIKE api_vali,
        lt_values   LIKE TABLE OF api_vali.

  CALL FUNCTION 'CLME_FEATURE_ATTR_OF_CLASS_ALL'
    EXPORTING
      class             = 'N_QA_CLASS'    class的名字  
      classtype         = '001'           clastype 这两个参数根据实际确定
      language          = sy-langu
      key_date          = sy-datum
      with_values       = 'X'
      i_sorted_by_class = 'X'
    TABLES
      tfeatures         = lt_features
      tvalues           = lt_values
    EXCEPTIONS
      class_not_found   = 1
      no_authority      = 2
      OTHERS            = 3.
  IF sy-subrc <> 0.
    ...
  ENDIF.
** About F4 help
  DATA: BEGIN OF ls_f4tab,
*        atnam like cabn-atnam,
          atwrt LIKE cawn-atwrt,
          atwtb LIKE cawnt-atwtb,
        END OF ls_f4tab,
        lt_f4    LIKE TABLE OF ls_f4tab.

  DATA : lt_f4tab LIKE lt_f4.
  CLEAR: lt_f4, lt_f4[].
  LOOP AT lt_values INTO ls_values
                    WHERE atnam = iv_var.
*      ls_f4tab-atnam = ls_values-atnam.
    ls_f4tab-atwrt = ls_values-atwrt.
    ls_f4tab-atwtb = ls_values-atwtb.
    APPEND ls_f4tab TO lt_f4.
    CLEAR: ls_f4tab, ls_values.
  ENDLOOP.
***display F4 values
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'ATWRT'
      dynpprog        = sy-repid
      dynpnr          = sy-dynnr
      dynprofield     = iv_dynfield
      value_org       = 'S'
    TABLES
      value_tab       = lt_f4
    EXCEPTIONS
      parameter_error = 0
      no_values_found = 0
      OTHERS          = 0.
ENDFORM.                    "frm_f4_for_matcat

 

 

 

 

另一个途径利用已有的searchhelp

 

SELECT-OPTIONS:s_zzrank FOR qmel-zzrank,   "ranking
                            s_posid FOR z06pmt0141-posid   MATCHCODE OBJECT prpm,  "WBS
                            s_ctgry FOR qmel-zzctgry. "Category

 

 平时的search HELP

 

 

*&---------------------------------------------------------------------*
*&           自建搜索帮助
*&           函数：HELP_VALUES_GET_WITH_TABLE
*&
*&---------------------------------------------------------------------*
TABLES: t001w.
DATA: lc_werks      LIKE t001w-werks,

      ltab_fields LIKE help_value OCCURS 0 WITH HEADER LINE,

      BEGIN OF ltab_values OCCURS 0,
         feld(40) TYPE c,
      END OF ltab_values.

PARAMETERS: werks(4) TYPE C .
AT SELECTION-SCREEN ON VALUE-REQUEST FOR werks.
  PERFORM get_werks USING werks text-006.
INITIALIZATION .

*-- Set up fields to retrieve data
  ltab_fields-tabname    = 'T001W'.
  ltab_fields-fieldname  = 'WERKS'.
  ltab_fields-selectflag = 'X'.
  APPEND ltab_fields.
  ltab_fields-tabname    = 'T001W'.
  ltab_fields-fieldname  = 'NAME1'.
  ltab_fields-selectflag = space.
  APPEND ltab_fields.

*-- Fill values
  SELECT * FROM t001w.
    ltab_values-feld = t001w-werks.
    APPEND ltab_values.
    ltab_values-feld = t001w-name1.
    APPEND ltab_values.
  ENDSELECT.  

*&---------------------------------------------------------------------*
*&      Form  get_werks
*&---------------------------------------------------------------------*
*       text
*&---------------------------------------------------------------------*
form get_werks  using    p_werks
                         p_text_006.
  CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'
    EXPORTING
      fieldname                 = 'WERKS'
      tabname                   = 'T001W'
      title_in_values_list      = 'Select a value'
    IMPORTING
      select_value              = p_werks
    TABLES
      fields                    = ltab_fields
      valuetab                  = ltab_values
    EXCEPTIONS
      field_not_in_ddic         = 01
      more_then_one_selectfield = 02
      no_selectfield            = 03.

endform.                    " get_werks