I have used F4IF_FIELD_VALUE_REQUEST function module.but i am not getting t

Question

Hi friends,
I have 2 screen fields EQUNR & EQKTX.i have attached custom help to EQUNR.when i select value from f4 help  then i want corresponding value from search help should get populated in the EQKTX field.
I have used F4IF_FIELD_VALUE_REQUEST function module.but i am not getting the result.
DATA: lt_return_tab      TYPE TABLE OF ddshretval.
  DATA: lw_return_tab      TYPE ddshretval.
  DATA: lv_equnr LIKE eqkt-equnr,
        lv_eqktx LIKE eqkt-eqktx.
  CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
    EXPORTING
      tabname                   = 'EQKT'
      fieldname                 = 'EQUNR'
      searchhelp                = 'Z_EQKT'
      SHLPPARAM                 = ' '
     dynpprog                  = sy-repid
       dynpnr                    = sy-dynnr
     dynprofield               = 'GW_SCREEN-WPTXT'
      STEPL                     = 0
      VALUE                     = ' '
      MULTIPLE_CHOICE           = 'X'
      DISPLAY                   = ' '
      SUPPRESS_RECORDLIST       = ' '
      CALLBACK_PROGRAM          = ' '
      CALLBACK_FORM             = ' '
      SELECTION_SCREEN          = ' '
    IMPORTING
      USER_RESET                =
   TABLES
     return_tab                = lt_return_tab
    EXCEPTIONS
      FIELD_NOT_FOUND           = 1
      NO_HELP_FOR_FIELD         = 2
      INCONSISTENT_HELP         = 3
      NO_VALUES_FOUND           = 4
      OTHERS                    = 5
  IF sy-subrc = 0.
    READ TABLE lt_return_tab INTO lw_return_tab INDEX 1.
    IF sy-subrc = 0.
     MOVE lw_return_tab-fieldval TO lv_equnr.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = lw_return_tab-fieldval
        IMPORTING
          output = lv_equnr.
      SELECT SINGLE eqktx
        INTO lv_eqktx
        FROM eqkt
        WHERE equnr = lv_equnr AND
              spras = sy-langu.
      IF sy-subrc = 0.
        gw_screen-wptxt = lv_eqktx.
        gw_screen-equnr = lv_equnr.
      ENDIF.
    ENDIF.
  ENDIF.
Please provide the solution.

Answer 1

I have written the same code as you said but still its not giving me the equnr value.
DATA :  lt_dynpread1        TYPE STANDARD TABLE OF dynpread,
          lt_dynpread11       TYPE STANDARD TABLE OF dynpread,
          lw_dynpread1        LIKE LINE  OF lt_dynpread1,
          lw_dynpread11       LIKE LINE  OF lt_dynpread11,
          lt_return_tab1      TYPE TABLE OF ddshretval,
          lw_return_tab1      TYPE ddshretval,
          lv_equnr1           LIKE eqkt-equnr,
          lv_eqktx1           LIKE eqkt-eqktx,
         lt_eqkt            TYPE STANDARD TABLE OF eqkt,
          li_dselc       TYPE STANDARD TABLE OF dselc,
           lwa_dselc      TYPE dselc.
  TYPES: BEGIN OF lty_eqkt,
        equnr TYPE eqkt-equnr,
        eqktx TYPE eqkt-eqktx,
        END OF lty_eqkt.
  DATA: lt_eqkt TYPE TABLE OF lty_eqkt,
        li_dynpread    TYPE STANDARD TABLE OF dynpread,
        lwa_dynpread   TYPE dynpread.
  DATA:
        lg_condition    TYPE string.
  TYPES: BEGIN OF lty_eqktx,
           sign(1)   TYPE c,
           option(2) TYPE c,
           low       TYPE eqkt-eqktx,
           high      TYPE eqkt-eqktx,
          END OF lty_eqktx.
  DATA: lt_eqktx TYPE STANDARD TABLE OF lty_eqktx.
  DATA:lw_eqktx TYPE lty_eqktx.
  lwa_dynpread-fieldname = 'GW_SCREEN-WPTXT'.
  APPEND lwa_dynpread TO li_dynpread.
  CLEAR lwa_dynpread.
Read Screen Field Values.
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname     = sy-repid
      dynumb     = sy-dynnr
    TABLES
      dynpfields = li_dynpread.
Read the first record as only one record will be present
  READ TABLE li_dynpread INTO lwa_dynpread INDEX 1.
  gw_screen-wptxt = lwa_dynpread-fieldvalue.
  CLEAR lw_eqktx.
  lw_eqktx-sign = 'I'.
  lw_eqktx-option = 'CP'.
  lw_eqktx-low = gw_screen-wptxt.
  APPEND lw_eqktx TO lt_eqktx.
  CLEAR lw_eqktx.
  IF gw_screen-wptxt IS INITIAL.
    SELECT equnr eqktx
         INTO TABLE lt_eqkt
         FROM eqkt.
  ELSE.
   MOVE 'EQKTX CP GW_SCREEN-WPTXT' TO lg_condition.
*lg_condition = GW_SCREEN-WPTXT.
    SELECT  equnr eqktx
         INTO TABLE lt_eqkt
         FROM eqkt
      WHERE eqktx IN lt_eqktx.
  ENDIF.
  lwa_dselc-fldname = 'F0002'.
  lwa_dselc-dyfldname = 'GW_SCREEN-WPTXT'.
  APPEND lwa_dselc TO li_dselc.
  CLEAR lwa_dselc.
  lwa_dselc-fldname = 'F0003'.
  lwa_dselc-dyfldname = 'GW_SCREEN-EQUNR'.
  APPEND lwa_dselc TO li_dselc.
  CLEAR lwa_dselc.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
  DDIC_STRUCTURE         = ' '
      retfield               = 'GW_SCREEN-WPTXT'
  PVALKEY                = ' '
      dynpprog          = sy-repid
      dynpnr            = sy-dynnr
      dynprofield            = 'GW_SCREEN-WPTXT'
  STEPL                  = 0
  WINDOW_TITLE           =
  VALUE                  = ' '
      value_org              = 'S'
  MULTIPLE_CHOICE        = ' '
  DISPLAY                = ' '
  CALLBACK_PROGRAM       = ' '
  CALLBACK_FORM          = ' '
  MARK_TAB               =
IMPORTING
  USER_RESET             =
    TABLES
      value_tab              = lt_eqkt
  FIELD_TAB              =
      return_tab             = lt_return_tab1
      dynpfld_mapping        = li_dselc
EXCEPTIONS
   parameter_error        = 1
   no_values_found        = 2
   OTHERS                 = 3