在标准程序中增加两个parameters
parameters: p_matcat like ausp-atwrt .
parameters: p_concat like cawn-atwrt .
然后在initialization后加入
at selection-screen on value-request for p_matcat.
perform f4_for_matcat using 'N_MATERIAL_CAT'.
at selection-screen on value-request for p_concat.
perform f4_for_matcat using 'N_TECH_CONTROL'.
接下来的form
form f4_for_matcat using iv_var type api_vali-atnam .
" f4 help material category control catagory
data: gs_features like klvmera,
gt_features like table of klvmera,
gs_values like api_vali,
gt_values like table of api_vali.
call function 'CLME_FEATURE_ATTR_OF_CLASS_ALL'
exporting
class = 'N_QA_CLASS'
classtype = '001'
language = sy-langu
key_date = sy-datum
with_values = 'X'
i_sorted_by_class = 'X'
tables
tfeatures = gt_features
tvalues = gt_values
exceptions
class_not_found = 1
no_authority = 2
others = 3.
if sy-subrc <> 0.
...
endif.
** About F4 help
data: begin of gs_f4tab,
atnam like cabn-atnam,
atwrt like cawn-atwrt,
atwtb like cawnt-atwtb,
end of gs_f4tab,
gt_f4 like table of gs_f4tab.
clear: gt_f4, gt_f4[].
loop at gt_values into gs_values
where atnam = iv_var.
gs_f4tab-atnam = gs_values-atnam.
gs_f4tab-atwrt = gs_values-atwrt.
gs_f4tab-atwtb = gs_values-atwtb.
append gs_f4tab to gt_f4.
clear: gs_f4tab, gs_values.
endloop.
call function 'F4IF_INT_TABLE_VALUE_REQUEST'
exporting
retfield = 'ATWRT'
dynpprog = sy-repid
dynpnr = sy-dynnr
value_org = 'S'
tables
value_tab = gt_f4
exceptions
parameter_error = 0
no_values_found = 0
others = 0.
endform.
还有一种做法就是在se11里面建立search help 这个网上比较常见一些