Search help for a particular value

Question

Hi ABAP gurus,
Suppose i have 2 fields in Selection-screen i.e Plant and Material, Plant have 3 values say 1000,2000,3000.Whenever user enter 1000 and Press f4 in Material field then all the material values related to plant 1000 should be displayed,Similarly with value 2000 & 3000.
Thanks in advance
Sumit Kumar Sharma

Answer 1

hi sumit.
in report if you want search help based on another selection screen field value then you need to one function module to capture selection screen field value. i.e DYNP_VALUES_READ.
the following is the example program please go though for this no need of enter.
*Structure declaration
TYPES: BEGIN OF ty_posnr,
       vbeln TYPE vbeln,
       posnr TYPE vbap-posnr,
       END OF ty_posnr.
*internal table creatioin
DATA:t_posnr TYPE STANDARD TABLE OF ty_posnr INITIAL SIZE 0.
DATA: t_dyn TYPE TABLE OF dynpread,
      w_dyn TYPE dynpread.
DATA: g_vbeln TYPE likp-vbeln,
      g_posnr LIKE vbap-posnr.
*Selection screen
SELECTION-SCREEN BEGIN OF BLOCK b1.
SELECT-OPTIONS: s_vbeln FOR g_vbeln NO INTERVALS NO-EXTENSION ,
s_posnr FOR g_posnr NO INTERVALS NO-EXTENSION .
SELECTION-SCREEN END OF BLOCK b1.
*At selection screen on event
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_posnr-low.
  PERFORM f4_help.
*&      Form  f4_help
*       text
FORM f4_help .
  w_dyn-fieldname = 'S_VBELN-LOW'.
  APPEND w_dyn TO t_dyn.
  CALL FUNCTION 'DYNP_VALUES_READ'
     EXPORTING
       dyname                               = sy-repid
       dynumb                               = '1000'
*   translate_to_upper                   = 'X'
*   REQUEST                              = ' '
*   PERFORM_CONVERSION_EXITS             = 'X'
*   PERFORM_INPUT_CONVERSION             = 'X'
*   DETERMINE_LOOP_INDEX                 = ' '
*   START_SEARCH_IN_CURRENT_SCREEN       = ' '
*   START_SEARCH_IN_MAIN_SCREEN          = ' '
*   START_SEARCH_IN_STACKED_SCREEN       = ' '
*   START_SEARCH_ON_SCR_STACKPOS         = ' '
*   SEARCH_OWN_SUBSCREENS_FIRST          = ' '
*   SEARCHPATH_OF_SUBSCREEN_AREAS        = ' '
     TABLES
       dynpfields                           = t_dyn
EXCEPTIONS
   invalid_abapworkarea                 = 1
   invalid_dynprofield                  = 2
   invalid_dynproname                   = 3
   invalid_dynpronummer                 = 4
   invalid_request                      = 5
   no_fielddescription                  = 6
   invalid_parameter                    = 7
   undefind_error                       = 8
   double_conversion                    = 9
   stepl_not_found                      = 10
   OTHERS                               = 11
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  CLEAR w_dyn.
  READ TABLE t_dyn INTO w_dyn WITH KEY fieldname = 'S_VBELN-LOW' .
  IF sy-subrc = 0.
    SELECT vbeln
           posnr
           FROM vbap
           INTO TABLE t_posnr
           WHERE vbeln = w_dyn-fieldvalue.
  ENDIF.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
*            DDIC_STRUCTURE         = ' '
            retfield               = 'POSNR'
*            pvalkey                = ''
            dynpprog               = sy-repid
            dynpnr                 = '1000'
            dynprofield            = 'S_POSNR-LOW'
*            STEPL                  = 0
*            WINDOW_TITLE           =
*            VALUE                  = ' '
            value_org              = 'S'
*            MULTIPLE_CHOICE        = ' '
*            DISPLAY                = ' '
*            CALLBACK_PROGRAM       = ' '
*            CALLBACK_FORM          = ' '
*            MARK_TAB               =
*          IMPORTING
*            USER_RESET             =
    TABLES
      value_tab              = t_posnr
*            FIELD_TAB              =
*            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
It will work fine. If you satisfied give points.
regards.
laxman