How to display our own selected data in a search help using a exit

Question

Hello,
I had created a Search Help Exit to restrict the values to be displayed in the search help. This code was written under the event 'DISP' in the exit. But it is not giving the desired result. So I want to replace the RECORD_TAB of the exit with my own selected data. For this I had written code for selection under the event 'SELECT'. But when I try to overwrite RECORD_TAB with this, this create errors.
What should I do to overwrite the values of the RECORD_TAB field with my own values?
Regards,
Abijith

Answer 1

Hi,
This is how we implemented the code modify the values in search help exit.
Check if display process button is pressed
  IF callcontrol-step = 'DISP'.
Read the parameter ID for company code.
    GET PARAMETER ID 'BUK' FIELD lv_bukrs.
    IF sy-subrc EQ 0.
      lwa_bukrs-sign   = 'I'.
      lwa_bukrs-option = 'EQ'.
      lwa_bukrs-low    = lv_bukrs.
      APPEND lwa_bukrs TO lr_bukrs.
    ENDIF.
  Check if any entry is made in Test account/Testity account name
    LOOP AT shlp-selopt INTO lwa_selopt.
      CASE lwa_selopt-shlpfield.
        WHEN  'ZZTEST'.
          lwa_roy-sign = lwa_selopt-sign.
          lwa_roy-option = lwa_selopt-option.
          lwa_roy-low = lwa_selopt-low.
          APPEND lwa_roy TO lr_roy.
        WHEN 'ZZTEST_NAME'.
          lwa_roy_name-sign = lwa_selopt-sign.
          lwa_roy_name-option = lwa_selopt-option.
          lwa_roy_name-low = lwa_selopt-low.
          APPEND lwa_roy_name TO lr_roy_name.
      ENDCASE.
    ENDLOOP.
  Get customer in entered for a company code
    SELECT kunnr
           bukrs
      FROM knb1
      INTO TABLE lt_knb1
      WHERE kunnr IN lr_roy
        AND bukrs IN lr_bukrs.
    IF sy-subrc EQ 0.
      SORT lt_knb1 BY kunnr.
    Get customer name for  the customer.
      SELECT kunnr
             name1
        FROM kna1
        INTO TABLE lt_kna1
        FOR ALL ENTRIES IN lt_knb1
        WHERE kunnr EQ lt_knb1-kunnr
          AND mcod1   IN  lr_roy_name.
      IF sy-subrc EQ 0.
        SORT lt_kna1 BY kunnr.
      ENDIF.
    ENDIF.
  Get Values for Testty account selected by standard search help
    CALL FUNCTION 'F4UT_PARAMETER_VALUE_GET'
      EXPORTING
        parameter   = 'Ztest'
        fieldname   = 'Ztest'                                    " Reference to search help parameter
      TABLES
        shlp_tab    = shlp_tab                                    " Reference to field of Seatinfo
        record_tab  = record_tab
        results_tab = lt_test_help
      CHANGING
        shlp        = shlp
        callcontrol = callcontrol.
  Get Values for Testty account Name selected by standard search help
    CALL FUNCTION 'F4UT_PARAMETER_VALUE_GET'
      EXPORTING
        parameter   = 'Ztest1'
        fieldname   = 'Ztest1'                                    " Reference to search help parameter
      TABLES
        shlp_tab    = shlp_tab                                    " Reference to field of Seatinfo
        record_tab  = record_tab
        results_tab = lt_roy_help
      CHANGING
        shlp        = shlp
        callcontrol = callcontrol.
    LOOP AT lt_knb1 INTO lwa_knb1.
      CLEAR lwa_kna1.
      READ TABLE lt_kna1
            INTO lwa_kna1
            WITH KEY kunnr = lwa_knb1-kunnr
            BINARY SEARCH.
      IF sy-subrc EQ 0.
        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            input  = lwa_kna1-kunnr
          IMPORTING
            output = lv_kunnr.
        lwa_roy_help-ztest1 = lv_kunnr.
        lwa_roy_help-ztest = lwa_kna1-name1.
        APPEND lwa_roy_help TO lt_roy_help .
      ENDIF.
    ENDLOOP.
    SORT lt_ztest_help.
    DELETE ADJACENT DUPLICATES FROM lt_roy_help COMPARING ZTEST1.
Finally transport the computed numbers into the search help data.
    CALL FUNCTION 'F4UT_PARAMETER_RESULTS_PUT'
      EXPORTING
        parameter   = 'ZTEST1'
        fieldname   = 'ZTEST1'" Reference to search help parameter
      TABLES
        shlp_tab    = shlp_tab                                    " Reference to field of Seatinfo
        record_tab  = record_tab
        source_tab  = lt_roy_help
      CHANGING
        shlp        = shlp
        callcontrol = callcontrol.
Finally transport the computed numbers into the search help data.
    CALL FUNCTION 'F4UT_PARAMETER_RESULTS_PUT'
      EXPORTING
        parameter   = 'ZTEST''
        fieldname   = 'ZTEST''                                  " Reference to search help parameter
      TABLES
        shlp_tab    = shlp_tab                                    " Reference to field of Seatinfo
        record_tab  = record_tab
        source_tab  = lt_roy_help
      CHANGING
        shlp        = shlp
        callcontrol = callcontrol.
  ENDIF.
Nabheet