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