SELECT-OPTIONS: s_saknr FOR skb1–saknr.
“””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_saknr–low.
PERFORM f4_saknr CHANGING s_saknr–low.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_saknr–high.
PERFORM f4_saknr CHANGING s_saknr–high.
“””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””
FORM f4_saknr CHANGING cp_val.
DATA gt_ret_f4 TYPE STANDARD TABLE OF ddshretval.
DATA gs_ret_f4 LIKE LINE OF gt_ret_f4.
SELECT
bukrs
saknr
mitkz
INTO TABLE gt_gl_f4
FROM skb1
WHERE bukrs = p_bukrs
AND mitkz IN ( ‘K’,’D’ ).
CALL FUNCTION ‘F4IF_INT_TABLE_VALUE_REQUEST’
EXPORTING
* DDIC_STRUCTURE = ‘ ‘
retfield = ‘SAKNR’
* PVALKEY = ‘ ‘
* DYNPPROG = ‘ ‘
* DYNPNR = ‘ ‘
* DYNPROFIELD = ‘ ‘
* STEPL = 0
* WINDOW_TITLE =
* VALUE = ‘ ‘
value_org = ‘S’
* MULTIPLE_CHOICE = ‘ ‘
* DISPLAY = ‘ ‘
* CALLBACK_PROGRAM = ‘ ‘
* CALLBACK_FORM = ‘ ‘
* CALLBACK_METHOD =
* MARK_TAB =
* IMPORTING
* USER_RESET =
TABLES
value_tab = gt_gl_f4
* FIELD_TAB =
return_tab = gt_ret_f4
* DYNPFLD_MAPPING =
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF sy–subrc = 0.
READ TABLE gt_ret_f4 INTO gs_ret_f4 INDEX 1.
cp_val = gs_ret_f4–fieldval.
ENDIF.
ENDFORM.
