How to limit results in search help CV01 (incl. COM_SE_F4_HELP_EXIT)

Question

Hi experts,
in transaction CV03N I want to limit the result list (table RECORD_TAB) of the search help CV01 using authority check. The user should not even see the document shorttext (from table DRAT) of some TOP SECRET documents in the F4-help result ... Actual solution: no user has rights for CV03N ... :-P
I found out, that the search help for the dynpro field DRAW-DOKNR is CV01,
including following search helps:
CV01T
CV01O
CV01C
CV01B
CV_TREX
Also there is a search help exit (function modul) COM_SE_F4_HELP_EXIT for CV01.
I tried to enhance the search help exit using the prepared BADI COM_SE_F4_RESULT_ITEMS, but after i did a short test with the relevant method, i found that there is something not working as i expected ...
Problem:
in the function modul COM_SE_F4_HELP_EXIT there is a step prepared called STEP SELECT.
* STEP SELECT    (Select values)
* This step may be used to overtake the data selection completely.
* To skip the standard seletion, you should return 'DISP' as following
* step in CALLCONTROL-STEP.
* Normally RECORD_TAB should be filled after this step.
* Standard function module F4UT_RESULTS_MAP may be very helpfull in this
* step.
  IF CALLCONTROL-STEP =  'SELECT'.                 "here i put Session BREAK-POINT
    PERFORM STEP_SELECT
              TABLES   SHLP_TAB
                       RECORD_TAB
              CHANGING SHLP
                       CALLCONTROL.
*                                      Don't process additional STEP. ..
    RETURN.
  ENDIF.
But after i put a BREAK-POINT and than start CV03N, searching a document via F4 + press ENTER, no debugging (!).
I have to mention that the search help proceeded was CV01T.
Question:
can anyone explain why STEP SELECT is not proceeded in FM COM_SE_F4_HELP_EXIT using F4-help in transaction CV03N?
I appreciate any hint in my "search help combat"
regards
Jörg
Edited by: Thomas Zloch on Apr 26, 2011 10:11 PM - please do not promise "re-ward"

Answer 1

INCLUDE with FORM
***INCLUDE LZCV_SHLPF01 .
* nach dem Muster der Suchhilfe SAPBC_GLOBAL_F4_SFLIGHT
* ausführlich Doku siehe dort und in den einz. incl. FB Dokus
*&      Form  AUTHORITY_CHECK
*       text
*      -->P_RECORD_TAB  text
*      -->P_SHLP_TAB  text
*      <--P_SHLP  text
*      <--P_CALLCONTROL  text
FORM authority_check
       TABLES   shlp_tab    TYPE      shlp_desct            "#EC NEEDED
                record_tab  STRUCTURE seahlpres
       CHANGING shlp        TYPE      shlp_descr
                callcontrol TYPE      ddshf4ctrl.
* Ablauf:
* 1. GET Inhalte der Suchilfe Parameter (siehe SE11, CV01T)
* 2. Feldinhalte in interner Tabelle anpassen (--> no Authority)
* 3. PUT neue Inhalte der Suchhilfe Parameter an Ergebisliste übergeben
* Teil 1
* ¯¯¯¯¯¯
  CALL FUNCTION 'F4UT_PARAMETER_VALUE_GET'   "Inhalte Parameter DOKAR holen
    EXPORTING
      parameter               = 'DOKAR'                     "CV01T
      fieldname               = 'DOKAR'  "it_drat
    TABLES
      shlp_tab                = shlp_tab
      record_tab              = record_tab
      results_tab             = it_drat
    CHANGING
      shlp                    = shlp
      callcontrol             = callcontrol.
  CALL FUNCTION 'F4UT_PARAMETER_VALUE_GET'   "Inhalte Parameter DKTXT holen
    EXPORTING
      parameter               = 'DKTXT'                     "CV01T
      fieldname               = 'DKTXT'  "it_drat
    TABLES
      shlp_tab                = shlp_tab
      record_tab              = record_tab
      results_tab             = it_drat
    CHANGING
      shlp                    = shlp
      callcontrol             = callcontrol.
* Teil 2
* ¯¯¯¯¯¯
  LOOP AT it_drat.
    AUTHORITY-CHECK                             " here prepare the change of Paramaters
             OBJECT 'C_DRAW_DOK'
                 ID 'DOKAR'
              FIELD it_drat-dokar.
    IF sy-subrc NE 0.
      it_drat-dktxt = text-001.
*     [!]Text ausgeblendet...Auth.Check(DOKAR)
      MODIFY it_drat.
    ENDIF.
  ENDLOOP.
* Teil 3
* ¯¯¯¯¯¯
  CALL FUNCTION 'F4UT_PARAMETER_RESULTS_PUT'
    EXPORTING
      parameter               = 'DKTXT'                     "CV01T
      fieldname               = 'DKTXT'  "it_drat
    TABLES
      shlp_tab                = shlp_tab
      record_tab              = record_tab
      source_tab              = it_drat
    CHANGING
      shlp                    = shlp
      callcontrol             = callcontrol
*     EXCEPTIONS
*       PARAMETER_UNKNOWN       = 1
*       OTHERS                  = 2
  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.                    " AUTHORITY_CHECK