F4IF_INT_TABLE_VALUE_REQUEST search help返回多个值_SAP刘梦_新浪博客

TYPES : shlp_descr_t  TYPE shlp_descr  . 
DATA :  BEGIN  OF itab  OCCURS  0  , 
        matnr  LIKE mara -matnr  , 
        maktx  LIKE makt -maktx  , 
       END  OF itab . 
DATA : return_tab  TYPE ddshretval  OCCURS  0  . 
PARAMETERS : p_matnr  LIKE itab -matnr  , 
            p_maktx  LIKE itab -maktx   . 

INITIALIZATION . 
   SELECT matnr maktx  INTO  TABLE itab  FROM makt  UP  TO  20  ROWS 
     WHERE spras  =  '1' . 

AT  SELECTION-SCREEN  ON  VALUE-REQUEST  FOR p_matnr  . 
   PERFORM f4 . 

*&---------------------------------------------------------------------* 
*&      Form  f4 
*&---------------------------------------------------------------------* 
FORM f4 . 
   CALL  FUNCTION  'F4IF_INT_TABLE_VALUE_REQUEST' 
     EXPORTING 
      retfield          =  'MATNR' 
      dynpprog          = sy -repid 
      dynpnr            = sy -dynnr 
      dynprofield       =  'P_MATNR' 
      value_org         =  'S' 
      callback_program  = sy -repid 
      callback_form     =  'CB_FORM' 
     TABLES 
      value_tab         = itab 
      return_tab        = return_tab 
     EXCEPTIONS 
      parameter_error   =  1 
      no_values_found   =  2 
       OTHERS            =  3 . 
ENDFORM .                     "f4 

*&---------------------------------------------------------------------* 
*&      Form  cb_form 
*&---------------------------------------------------------------------* 
FORM cb_form  TABLES record_tab  STRUCTURE seahlpres 
               CHANGING shlp  TYPE shlp_descr_t