On-Value Request Event

Question

Hi All,
I have used 'ON VALUE-REQUEST' event for a variable S_CNTRY in the select-options.
SELECT-OPTIONS: S_CNTRY FOR ADRC-REGION OBLIGATORY.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_CNTRY-LOW.
  PERFORM SEARCH_HELP_REGION CHANGING S_CNTRY.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_CNTRY-HIGH.
  PERFORM SEARCH_HELP_REGION CHANGING S_CNTRY.
Is the above declaration Ok ? Can I declare in one statement rather than using two separate as 'LOW' and 'HIGH' reapectively.
Further to this , if I want to write a select statement which will take the values of S_CNTRY from 'S_CNTRY-LOW' to 'S_CNTRY-HIGH' , how shall I do that ??
SELECT X Y Z FROM Z-TAB INTO
ITAB WHERE VAR IN ('S_CNTRY-LOW' TO 'S_CNTRY-HIGH').
Is it fine ?
Kindly help....
Thx...
Paul

Answer 1

Hi Paul,
<b>1</b>.
The way U have done is Excellent.You dont need to declare one .This is right way.
<b>2</b>.
Have a look at the below Sample further to get values into ur S_CNTRY-LOW,S_CNTRY-HIGH.
REPORT zvenkat_head MESSAGE-ID zmsg .
TABLES:ekko.
SELECT-OPTIONS :s_bsart  FOR ekko-bsart.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_bsart-low.
  PERFORM f4_values_restricted USING s_bsart-low.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_bsart-high.
  PERFORM f4_values_restricted USING s_bsart-high.
*&      Form  f4_values_restricted
FORM f4_values_restricted USING bsart.
  DATA: BEGIN OF i_t161 OCCURS 0,
          bstyp TYPE t161-bstyp,
          bsart TYPE t161-bsart,
          batxt TYPE t161t-batxt,
        END OF i_t161.
  CLEAR i_t161[].
  CLEAR i_t161.
  DATA: w_progname LIKE sy-repid,
        w_scr_num LIKE sy-dynnr .
  DATA: return_values LIKE ddshretval OCCURS 0 WITH HEADER LINE.
  DATA: itab_dynpfields LIKE dynpread OCCURS 0 WITH HEADER LINE,
        t_dynpfields LIKE dynpread.
  DATA: t_dyname LIKE d020s-prog,
        t_dynumb LIKE d020s-dnum.
  SELECT abstyp absart b~batxt
   FROM t161 AS a INNER JOIN t161t AS b ON abstyp = bbstyp
                                      AND  absart = bbsart
   INTO TABLE i_t161
   WHERE a~bstyp = 'F'
     AND b~spras = sy-langu.
  IF sy-subrc = 0.
    CALL FUNCTION <b>'F4IF_INT_TABLE_VALUE_REQUEST'</b>
      EXPORTING
        retfield        = 'BSART'
        dynpprog        = w_progname
        dynpnr          = w_scr_num
        dynprofield     = 'EKPO-BSART'
        value_org       = 'S'
      TABLES
        value_tab       = i_t161
        return_tab      = return_values
      EXCEPTIONS
        parameter_error = 1
        no_values_found = 2
        OTHERS          = 3.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ELSE .
      bsart = return_values-fieldval.
    ENDIF.
  ENDIF.
ENDFORM.                    " f4_values_restricted
I think that it helps u.
<b>Thanks,
Venkat.O</b>