F4IF_INT_TABLE_VALUE_REQUEST -Restrictions dialog box

Question

Hi,
I am using the function module F4IF_INT_TABLE_VALUE_REQUEST in screens, to implement a search help in my program , but instead of directly displaying the hit list , i want the restrictions screen to be displayed first with some default values, and the list should be displayed only based on the valuies entered in thius restrictions screen. How can i do this using this function module.
To be more precise,
i need the restrictions dialog box to be displayed and this will have 6 fields. i have to pass values to 2 fields from my program, the first field need not be filled and teh remaining fields should be left for the user to enter.
how do i achieve this?
Please help.

Answer 1

Check the sample code. Using the Event PROCEE ON VALUE-REQUEST we can get the F4 Help.
PROGRAM  ztest_duplica.
DATA: kunnr1(10),
           kunnr2(10).
*&      Module  USER_COMMAND_0100  INPUT
*       text
MODULE user_command_0100 INPUT.
  CASE sy-ucomm.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0200  INPUT
*&      Module  get_help  INPUT
*       text
MODULE get_help INPUT.
  DATA:i_retab TYPE TABLE OF  ddshretval,
       wa_ret TYPE ddshretval.
  TYPES: BEGIN OF x_itab,
  kunnr TYPE kunnr,    "it should be type to some standard data element
  END OF x_itab.
  FIELD-SYMBOLS: <fs> TYPE ANY.
  CLEAR : kunnr1, kunnr2.
  DATA: dynfield  TYPE help_info-dynprofld,
        wa_itab TYPE x_itab,
        i_tab LIKE TABLE OF wa_itab WITH HEADER LINE.
  CLEAR  dynfield.
  IF sy-dynnr = '0100'.
    dynfield = 'KUNNR1'.
  ELSE.
    dynfield = 'KUNNR2'.
  ENDIF.
  SELECT kunnr FROM kna1
      INTO TABLE i_tab
      UP TO 20 ROWS.
  "retfield we will pass the column name we are going to get from f4
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield    = 'KUNNR'   "<---Return field column name
      dynpprog    = sy-repid
      dynpnr      = sy-dynnr
      dynprofield = dynfield
      value_org   = 'S'
    TABLES
      value_tab   = i_tab
      return_tab  = i_retab.
  IF sy-subrc EQ 0.
    READ TABLE i_retab INTO wa_ret INDEX 1.
    ASSIGN (dynfield) TO <fs> .
    <fs> = wa_ret-fieldval .
    UNASSIGN <fs>.
  ENDIF.
ENDMODULE.                 " get_help  INPUT
Flow logic for 100 screen
screen consists of Input field pointing to KUNNR1
PROCESS BEFORE OUTPUT.
* MODULE STATUS_0100.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
process on value-request.
field kunnr1 module get_help.
Create a Tcode and Intitial screen 100. and check it .
Regards
Vijay Babu Dudla