Urgent : can help me in my search program( mofication of my program)

Question

Requirements:
<u>Selection-Screen</u>:
Parameter: String field to enter a text
Select-option: to enter program names (value help shall be available)
<u>Program</u>:
The user shall enter a text and select one or serveral program names. (Search help for the pro-gram names.)
The coding of the selected programs than are searched for the entered string (text).
(nice to have, but not necessary: if the user makes a double click on a line of the result list (see below) it is jump into the ABAP editor an the coding is displayed in display mode).
Output:
Display in a ABAP list OR in a ALV list the program name, the line number and the coding / text auf the line, where the search term as found.
<u>My Program coding</u>
TABLES: trdir,rs38m.
PARAMETER      : pa_text(30) type c.
SELECT-OPTIONS : so_name FOR trdir-name MATCHCODE OBJECT ZSH_EXAMPLE.
data:   begin of jtab occurs 0,
        line(300),
        end of jtab.
data  : wa like jtab.
DATA : rata LIKE trdir OCCURS 0 WITH HEADER LINE.
DATA : repid type sy-repid.
DATA : fval type trdir-name.
DATA : cnt type n.
DATA : off type n.
SELECT name FROM trdir INTO rata WHERE name IN so_name.
append rata.
ENDSELECT.
WRITE: /02 'PrgName', 53 'Text',95 'Line No'.
uline.
LOOP AT rata.
read report rata-name into jtab.
jtab-line = rata-name.
  append jtab.
  search jtab for pa_text.
  if sy-subrc = 0.
  WRITE : /02  rata-name, 50 pa_text,90 sy-tabix.
  endif.
ENDLOOP.
*LOOP AT jtab.
*ENDLOOP.
AT LINE-SELECTION ******************
AT LINE-SELECTION.
get cursor value fval.
Set parameter id 'RID' field  rata-name.
EDITOR-CALL FOR REPORT fval DISPLAY-MODE.
*read
*find
*search
The problem is that i can display the list of program which contains the given string....
but when I double click on the program name... its not displaying  the code of particular particular program .
so anyone help me to modify my program or send me a new code

Answer 1

REPORT  ZSEARCH_HELP
DATADEKLARATION *****
TYPE-POOLS: slis.
TABLES: tadir.
Tables
DATA: gt_output TYPE TABLE OF zstruct_output.  (here create a search help in se11)
Structures
DATA: gs_output TYPE zstruct_output.
Fields
DATA: gv_mess TYPE text60.
Constants
CONSTANTS: gc_s TYPE msgty VALUE 'S',
           gc_r3tr TYPE pgmid VALUE 'R3TR',
           gc_prog TYPE trobjtype VALUE 'PROG'.
SELECTION SCREEN *****
SELECTION-SCREEN: BEGIN OF BLOCK sel WITH FRAME TITLE sel_txt.
SELECT-OPTIONS: s_repid FOR tadir-obj_name.
PARAMETERS: p_seatxt TYPE string.
SELECTION-SCREEN: END OF BLOCK sel.
SELECTION SCREEN VALUE HELP *****
REPID_LOW
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_repid-low.
call search help
  PERFORM prog_search_help CHANGING s_repid-low.
REPID_HIGH
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_repid-high.
call search help
  PERFORM prog_search_help CHANGING s_repid-high.
AT LINE-SELECTION *****
AT LINE-SELECTION.
line selection -> double click functionality
  PERFORM jump_into_coding USING gs_output-prog gs_output-line.
INITIALIZATION ******
INITIALIZATION.
  sel_txt = 'Date selection'(001).
s_repid-sign = 'I'.
s_repid-option = 'CP'.
s_repid-low = 'Z*'.
APPEND s_repid.
START-OF-SELECTION ******
START-OF-SELECTION.
  CLEAR: gt_output[],
         gs_output,
         gv_mess.
select data and determine where search string is used
  PERFORM select_progs CHANGING gt_output.
END-OF-SELECTION.
  IF NOT gt_output[] IS INITIAL.  "found data
display the found data
    PERFORM display_data CHANGING gt_output.
  ELSE. "no data was found
    gv_mess = 'No data was found'(003).
    MESSAGE gv_mess TYPE gc_s.
  ENDIF.
SUB-ROUTINES *****
*&      Form  select_progs
      Determine programs where the search string is used
-->  pt_output   Output data
FORM select_progs CHANGING pt_output LIKE gt_output.
  DATA: BEGIN OF ls_progs,
         prog TYPE programm,
        END OF ls_progs.
  DATA: lt_progs LIKE TABLE OF ls_progs.
select all progams into a internal table
  SELECT obj_name
    FROM tadir
    INTO TABLE lt_progs
    WHERE pgmid = gc_r3tr AND
          object = gc_prog AND
          obj_name IN s_repid.
  IF sy-subrc = 0.  "selection was successful
    LOOP AT lt_progs INTO ls_progs.
search coding of the programms for the search string
      PERFORM search_coding USING ls_progs-prog
                            CHANGING pt_output.
    ENDLOOP.
  ELSE.   "selection was not successful -> error message
    gv_mess = 'Search string not found in selected programs'(002).
    MESSAGE gv_mess TYPE gc_s.
  ENDIF.
ENDFORM.                    " select_progs
*&      Form  search_coding
      search every selected program for the search string
     -->PS_PROGS   Program name
     <--PT_OUTPUT  output data
FORM search_coding  USING    pv_prog TYPE any
                    CHANGING pt_output LIKE gt_output.
  DATA: lt_coding TYPE TABLE OF string,
        lv_coding TYPE string.
  CLEAR gs_output.
read coding into internal table
  READ REPORT pv_prog INTO lt_coding.
  IF sy-subrc = 0.  "Coding was read
move program name
    gs_output-prog = pv_prog.
search for search text
    LOOP AT lt_coding INTO lv_coding.
      SEARCH lv_coding FOR p_seatxt.
      IF sy-subrc = 0.
move found line
        gs_output-line = sy-tabix.
        gs_output-text = lv_coding.
        APPEND gs_output TO pt_output.
      ENDIF.
    ENDLOOP.
  ENDIF.
ENDFORM.                    " search_coding
*&      Form  display_data
      display the result data
     <--PT_OUTPUT  result data
FORM display_data CHANGING pt_output LIKE gt_output.
  LOOP AT pt_output INTO gs_output.
    WRITE: / gs_output-prog LEFT-JUSTIFIED NO-GAP,
             gs_output-line,
             gs_output-text.
    HIDE: gs_output-prog, gs_output-line.
  ENDLOOP.
DATA: lt_fieldcat TYPE TABLE OF slis_fieldcat_alv.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
  EXPORTING
    i_program_name               = sy-repid
    i_internal_tabname           = 'GT_OUTPUT'
   I_STRUCTURE_NAME             = 'ZSTMP_SEARCH_PROG'
   I_CLIENT_NEVER_DISPLAY       = 'X'
   I_INCLNAME                   =
   I_BYPASSING_BUFFER           =
   I_BUFFER_ACTIVE              =
   CHANGING
     ct_fieldcat                  = lt_fieldcat
EXCEPTIONS
   inconsistent_interface       = 1
   program_error                = 2
   OTHERS                       = 3
IF sy-subrc <> 0.
   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
  I_INTERFACE_CHECK                 = ' '
  I_BYPASSING_BUFFER                = ' '
  I_BUFFER_ACTIVE                   = ' '
   I_CALLBACK_PROGRAM                = sy-repid
  I_CALLBACK_PF_STATUS_SET          = ' '
   I_CALLBACK_USER_COMMAND           = ' '
  I_CALLBACK_TOP_OF_PAGE            = ' '
  I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
  I_CALLBACK_HTML_END_OF_LIST       = ' '
  I_STRUCTURE_NAME                  =
  I_BACKGROUND_ID                   = ' '
  I_GRID_TITLE                      =
  I_GRID_SETTINGS                   =
  IS_LAYOUT                         =
     it_fieldcat                       = lt_fieldcat
  IT_EXCLUDING                      =
  IT_SPECIAL_GROUPS                 =
  IT_SORT                           =
  IT_FILTER                         =
  IS_SEL_HIDE                       =
  I_DEFAULT                         = 'X'
  I_SAVE                            = ' '
  IS_VARIANT                        =
  IT_EVENTS                         =
  IT_EVENT_EXIT                     =
  IS_PRINT                          =
  IS_REPREP_ID                      =
  I_SCREEN_START_COLUMN             = 0
  I_SCREEN_START_LINE               = 0
  I_SCREEN_END_COLUMN               = 0
  I_SCREEN_END_LINE                 = 0
  I_HTML_HEIGHT_TOP                 = 0
  I_HTML_HEIGHT_END                 = 0
  IT_ALV_GRAPHICS                   =
  IT_HYPERLINK                      =
  IT_ADD_FIELDCAT                   =
  IT_EXCEPT_QINFO                   =
  IR_SALV_FULLSCREEN_ADAPTER        =
IMPORTING
  E_EXIT_CAUSED_BY_CALLER           =
  ES_EXIT_CAUSED_BY_USER            =
   TABLES
     t_outtab                          = pt_output
  EXCEPTIONS
    program_error                     = 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.                    " display_data
*&      Form  prog_search_help
      search help for program field
-->  pv_repid  program name
<--  p2        text
FORM prog_search_help CHANGING pv_repid TYPE any.
use standard function module
  CALL FUNCTION 'REPOSITORY_INFO_SYSTEM_F4'
    EXPORTING
      object_type                     = 'PROG'
      object_name                     = pv_repid
    ENCLOSING_OBJECT                =
    SUPPRESS_SELECTION              = 'X'
    VARIANT                         = ' '
    LIST_VARIANT                    = ' '
    DISPLAY_FIELD                   =
    MULTIPLE_SELECTION              =
    SELECT_ALL_FIELDS               = ' '
     WITHOUT_PERSONAL_LIST           = ' '
    PACKAGE                         = ' '
      use_alv_grid                    = ' '
   IMPORTING
     object_name_selected            = pv_repid
    ENCLOSING_OBJECT_SELECTED       =
    STRUCINF                        =
  TABLES
    OBJECTS_SELECTED                =
    RECORD_TAB                      =
   EXCEPTIONS
     cancel                          = 1
     wrong_type                      = 2
     OTHERS                          = 3
  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.                    " prog_search_help
*&      Form  jump_into_coding
      jump into the coding
     -->P_GS_OUTPUT_PROG  text
     -->P_GS_OUTPUT_LINE  text
FORM jump_into_coding USING pv_prog TYPE program
                            pv_line TYPE any.
  EDITOR-CALL FOR REPORT pv_prog DISPLAY-MODE.
ENDFORM.                    " jump_into_coding