F4 help for select-options

************************************************************************
*                      TYPES DECLARATION
************************************************************************


Types: begin of ty_sercd,
         venture_cd type zri_series-venture_cd,
         series_cd  type zri_series-series_cd,       "RI: Series Code
       end of ty_sercd.

data : gt_sercd     type standard table of ty_sercd.  "Internal Table

         

         

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECT-OPTIONS: s_sercd  for  zri_series-series_cd,               
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN END OF BLOCK b1.


**---------------------------------------------------------------------*
**     AT SELECTION-SCREEN ON VALUE-REQUEST
**---------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_sercd-low.
  PERFORM f4_help_sercd.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_sercd-HIGH.
  PERFORM f4_help_sercd.

*&---------------------------------------------------------------------*

*&      Form  F4_HELP_SERCD

*&---------------------------------------------------------------------*

*       F4 Help for Series Code

*----------------------------------------------------------------------*

FORM f4_help_sercd .

  REFRESH : GT_SERCD.

  SELECT  venture_cd  series_cd

         FROM zri_series

         INTO CORRESPONDING FIELDS OF TABLE gt_sercd.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

    EXPORTING

      retfield    = 'SERIES_CD'

      dynpprog    = sy-repid

      dynpnr      = SY-DYNNR

      dynprofield = 'S_SERCD'

      value_org   = 'S'

    TABLES

      value_tab   = gt_sercd

    EXCEPTIONS

      OTHERS      = 0.

ENDFORM.