Populate description in seacrh help

Question

Hi All,
I have a requirement wherein i have 2 parameter fields on the selection screen, Matnr and Maktx.
Both these fields have search help attached to it.
I have to select a value through a search help for Matnr field, which i have completed.
Now in the secrh help of Maktx i should get the Matnr value selected and its corresponding Desciption only. The search help of Maktx should not show any other values and descriptions at all except for the Value selected in Matnr.
The Database table and the search help used is of Z type.
How do i go about doing this? I am posting how much of the code i have written.
******Data Declaration
DATA: return TYPE TABLE OF ddshretval WITH HEADER LINE.
******Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK block0 WITH FRAME TITLE text-000.
PARAMETERS: v_matnr TYPE matnr.
PARAMETERS: v_maktx TYPE maktx.
SELECTION-SCREEN END OF BLOCK block0.
******At Selection-screen on value-request.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR v_matnr.
  CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
   EXPORTING
     tabname                   = 'ZMAT_DESC'
     fieldname                 = 'MATNR'
     searchhelp                 = 'ZDESC1'
     dynpprog                   = sy-repid
     dynpnr                     = sy-dynnr
     dynprofield                = 'V_MATNR'
    callback_program           = sy-repid
   TABLES
     return_tab                 = return
  EXCEPTIONS
     field_not_found           = 1
     no_help_for_field         = 2
     inconsistent_help         = 3
    no_values_found           = 4
     OTHERS                    = 5.
Regards,
Darpana.

Answer 1

hi
try this
Code:
PARAMETERS: p_ccgrp LIKE rkpln-ksgru. "Cost Center Group
*Input help for Cost Center Group
AT SELECTION-SCREEN ON VALUE-REQUEST   FOR p_ccgrp.
TYPES: BEGIN OF ty_ccenter_group,
setname TYPE setnamenew,
descript TYPE settext,
END OF ty_ccenter_group.
DATA: it_ccenter_group TYPE TABLE OF ty_ccenter_group.
CLEAR it_ccenter_group.
SELECT a~setname
b~descript
INTO TABLE it_ccenter_group
FROM setheader AS a INNER JOIN
setheadert AS b ON
asubclass EQ bsubclass AND
asetname EQ bsetname
WHERE a~setclass EQ '0101' AND
b~langu EQ sy-langu.
CALL FUNCTION 
'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
ret field        =  'SETNAME'
dynpprog     =  v_repid
dynpnr         =    SY-DYNR
dynprofield = 'P_CCGRP'
value_org    = 'S'
TABLES
value_tab   = it_ccenter_group.
F4IF_FIELD_VALUE_REQUEST:
This FM is used to display value help or input from ABAP dictionary. We have to pass the name of the structure or table (TABNAME) along with the field name (FIELDNAME). The selection can be returned to the specified screen field if three
parameters DYNPNR, DYNPPROG, DYNPROFIELD are also specified or to a table if RETRN_TAB is specified.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
TABNAME = table/structure
FIELDNAME = 'field name'
DYNPPROG = SY-CPROG
DYNPNR = SY-DYNR
DYNPROFIELD = 'screen field'
IMPORTING
RETURN_TAB = table of type DYNPREAD
Getting F4 help based on other  field  .
Suppose  if there  are  2 fields on selection screen  user name and Purchasing Document  and  the case is getting values of  Purchasing Document Number  based on  user name
Code:
TYPES:   BEGIN OF ty_match_nast,
                objky TYPE na_objkey,
                END OF ty_match_nast.
Data: it_match_nast   TYPE STANDARD TABLE OF ty_match_nast.
Data: it_dypr_val   TYPE STANDARD TABLE OF dynpread.
DATA: wa_dypr_val  TYPE dynpread.
DATA: it_return TYPE STANDARD TABLE OF ddshretval.
Case when only username value is entered.
       SELECT objky
        FROM   nast
        INTO  TABLE it_match_nast
         WHERE kappl  = c_ef
         AND   kschl = c_neu
         AND   usnam = wa_dypr_val-fieldvalue.
      ENDIF.
*Read User name  on  selection screen field value
  CLEAR wa_dypr_val.
  REFRESH it_dypr_val.
  wa_dypr_val-fieldname = 'P_UNAME'.      "User name
  APPEND wa_dypr_val TO it_dypr_val.
*FM to get the value
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname             = sy-repid
      dynumb             = sy-dynnr
      translate_to_upper = 'X'
    TABLES
      dynpfields         = it_dypr_val_h.
*Pass the values to f4 table
   CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
      EXPORTING
        retfield     = u2018OBJKY'
        dynpprog    = sy-repid
        dynpnr      = sy-dynnr
        dynprofield = 'P_EBELN'
        value_org   = 'P'
     TABLES
        value_tab   = it_match_nast
        return_tab  = it_return.