An SAP Consultant

REPORT ztest_program MESSAGE-ID zmsg .
TABLES :marc.
TYPES:
    BEGIN OF t_t001w,
      werks       TYPE t001w-werks,
      name1       TYPE t001w-name1,
    END OF t_t001w,
    t_return_tab  TYPE ddshretval.
DATA:
    w_t001w      TYPE t_t001w,
    w_return_tab TYPE t_return_tab.
DATA:
    i_t001w      TYPE STANDARD TABLE OF t_t001w,
    i_return_tab TYPE STANDARD TABLE OF t_return_tab.
*&---------------------------------------------------------------------*
*&      SELECTION-SCREEN
*&---------------------------------------------------------------------*

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
SELECT-OPTIONS : s_werks FOR marc-werks.
SELECTION-SCREEN END OF BLOCK b1.

*&---------------------------------------------------------------------*
*&      AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_werks
*&---------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_werks-low.
  PERFORM f4_help_for_palant USING 'S_WERKS-LOW'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_werks-high.
  PERFORM f4_help_for_palant USING 'S_WERKS-HIGH'.
*&---------------------------------------------------------------------*
*&      Form  f4_help_for_palant
*&---------------------------------------------------------------------*
FORM f4_help_for_palant USING l_dynprofield.


  SELECT werks name1
  FROM t001w
  INTO TABLE i_t001w.


  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
  EXPORTING
*   DDIC_STRUCTURE         = ' '
  retfield               = 'WERKS'
*   PVALKEY                = ' '
  dynpprog               = sy-repid
  dynpnr                 = sy-dynnr
  dynprofield            = l_dynprofield
*   STEPL                  = 0
*   WINDOW_TITLE           =
*   VALUE                  = ' '
  value_org              = 'S'
*   MULTIPLE_CHOICE        = ' '
*   DISPLAY                = ' '
*   CALLBACK_PROGRAM       = ' '
*   CALLBACK_FORM          = ' '
*   MARK_TAB               =
* IMPORTING
*   USER_RESET             =
  TABLES
  value_tab              = i_t001w
*   FIELD_TAB              =
  return_tab             = i_return_tab
*   DYNPFLD_MAPPING        =
 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.
  ENDIF.
ENDFORM.                    " f4_help_for_palant