Selection Screen F4 using Function Module F4IF_INT_TABLE_VALUE_REQUEST

SELECT-OPTIONSs_saknr FOR skb1saknr.

“””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_saknrlow.
PERFORM f4_saknr CHANGING s_saknrlow.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_saknrhigh.
PERFORM f4_saknr CHANGING s_saknrhigh.

“””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””

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 sysubrc 0.
READ TABLE gt_ret_f4 INTO gs_ret_f4 INDEX 1.
cp_val gs_ret_f4fieldval.
ENDIF.
ENDFORM.