Report to search ABAP code in Enhancement implementations

[Joris]

With SAP Standard report RS_ABAP_SOURCE_SCAN or the SAP Code Inspector (transaction SCI) it is not possible to do text based searches through Enhancement Implementations

Inspired by the archived discussion here, I put together below little ABAP code scanner for Enhancement implementations.

Features

• Full Text search in ABAP code inside implicit- and explicit Enhancement implementations/spots.


• Limit search range by Development Package


• Simple list output with matching enhancements & line of code where hit occurred


• No further fancy stuff.

Enjoy

*&---------------------------------------------------------------------*

*& Report Z_SCAN_ENHANCEMENTS

*&---------------------------------------------------------------------*

*& Search enhencement implementation code for given string.

*& Joris Bots - July 2018

*&---------------------------------------------------------------------*

REPORT z_scan_enhancements.

DATA lv_percentage TYPE i.

DATA lv_old_percentage TYPE i.

DATA lv_text TYPE c LENGTH 150.

DATA ls_enhincinx TYPE enhincinx.

DATA lt_enhincinx TYPE STANDARD TABLE OF enhincinx.

DATA lt_source TYPE abaptxt255_tab.

DATA lt_results TYPE match_result_tab.



PARAMETERS p_srch TYPE string.

PARAMETERS p_class TYPE devclass.



START-OF-SELECTION.



"Accept wildcards for dev class || set wildcard for all

IF p_class IS INITIAL.

  p_class = '%'.

ELSE.

  REPLACE ALL OCCURRENCES OF '*' IN p_class WITH '%'.

ENDIF.



"Get all enhancement spots that are in the selected dev class

SELECT e~* FROM

  enhincinx AS e

    INNER JOIN tadir AS t ON 'R3TR' = t~pgmid

                         AND 'ENHO' = t~object

                         AND e~enhname = t~obj_name

  WHERE t~devclass LIKE @p_class

  INTO TABLE @lt_enhincinx.





LOOP AT lt_enhincinx ASSIGNING FIELD-SYMBOL(<ls_enhincinx>).



  "Talk to the user

  lv_percentage = sy-tabix * 100 / lines( lt_enhincinx ).

  lv_text = |Searching Enhancements ({ sy-tabix }/{ lines( lt_enhincinx ) })...|.

  IF lv_old_percentage <> lv_percentage.

    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

      EXPORTING

        percentage = lv_percentage

        text       = lv_text.

    lv_old_percentage = lv_percentage.

  ENDIF.



  READ REPORT <ls_enhincinx>-enhinclude INTO lt_source.



  CLEAR lt_results.

  FIND ALL OCCURRENCES OF p_srch IN TABLE lt_source

  IN CHARACTER MODE

  IGNORING CASE

  RESULTS lt_results.



  IF lt_results IS NOT INITIAL.

    SKIP.

    WRITE: / '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'.

    WRITE: / |{ <ls_enhincinx>-programname } / { <ls_enhincinx>-full_name } / { <ls_enhincinx>-enhname }:|.

  ENDIF.

  LOOP AT lt_results ASSIGNING FIELD-SYMBOL(<ls_result>).

    WRITE 😕 lt_source[ <ls_result>-line ]-line.

  ENDLOOP.

ENDLOOP.