How to get search help for 2nd parameter based on the 1st parameter value

Question

Hi all!
   I have 2 parameters (material no, revision level). I have created a search help for revision level. It has an importing parameter :material no. and one exporting parameter : revision level.When I checked it, it's giving the revision values only for the specified.
In my report , I have kept these 2 materials in my selection screen.For revision level , I have added the matchcode object which I have created. When I  pressed F4 for revision level, it's giving all the values irrespective of the material no. in the first parameter. How to solve it? Please suggest.

Answer 1

Hi,
Try this code filling internal table fields,
DATA: BEGIN OF values,
        OID TYPE ZCL_OBJECT-OBJECTID,
        ODEC TYPE ZCL_OBJECT-OBJECT_DESC,
       END OF values,
       W_FIELD(10).
DATA: ZCL_PROJECT-PROJECTID type zcl_project-projectid,
      ZCL_OBJECT-OBJECTID(5).
DATA: progname TYPE sy-repid,
      dynnum   TYPE sy-dynnr,
      dynpro_values TYPE TABLE OF dynpread,
      field_value LIKE LINE OF dynpro_values,
      values_tab LIKE TABLE OF values.
CALL SCREEN 100.
*&      Module  VALUE_PROJECTID  INPUT
      text
*MODULE VALUE_PROJECTID INPUT.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
      EXPORTING
           tabname     = 'ZCL_PROJECT'
           fieldname   = 'PROJECTID'
           dynpprog    = progname
           dynpnr      = dynnum
           dynprofield = 'ZCL_PROJECT-PROJECTID'.
*ENDMODULE.                 " VALUE_PROJECTID  INPUT
*&      Module  VALUE_OBJECTID  INPUT
      text
MODULE VALUE_OBJECTID INPUT.
   CALL FUNCTION 'DYNP_VALUES_READ'
       EXPORTING
            dyname             = progname
            dynumb             = dynnum
            translate_to_upper = 'X'
       TABLES
            dynpfields         = dynpro_values.
  READ TABLE dynpro_values INDEX 1 INTO field_value.
W_FIELD = FIELD_VALUE-FIELDVALUE.
  SELECT  OBJECTID
          OBJECT_DESC
    FROM  ZCL_OBJECT
    INTO  (VALUES-OID,
           VALUES-ODEC)
WHERE PROJECTID = FIELD_VALUE-FIELDVALUE.
   APPEND VALUES TO VALUES_TAB.
ENDSELECT.
   CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
       EXPORTING
            retfield    = 'OID'
            dynpprog    = progname
            dynpnr      = dynnum
            dynprofield = 'ZCL_OBJECT-OBJECTID'
            value_org   = 'S'
       TABLES
            value_tab   = values_tab.
ENDMODULE.                 " VALUE_OBJECTID  INPUT
*&      Module  INIT  OUTPUT
      text
MODULE INIT OUTPUT.
  progname = sy-repid.
  dynnum   = sy-dynnr.
  CLEAR: field_value, dynpro_values.
  field_value-fieldname = 'ZCL_PROJECT-PROJECTID'.
  APPEND field_value TO dynpro_values.
  IF SY-UCOMM = 'BACK'.
    LEAVE program.
ENDIF.
IF SY-UCOMM = 'ANS'.
   LEAVE  TO SCREEN  '0'.
ENDIF.
ENDMODULE.                 " INIT  OUTPUT
START-OF-SELECTION.
WRITE: / field_value-fieldvalue,
         W_FIELD.
  LOOP AT VALUES_TAB INTO VALUES.
    WRITE / VALUES.
  ENDLOOP.
  if sy-subrc <> 0.
    WRITE / field_value-fieldvalue.
  endif.
Plzz reward points if it helps