Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

Finding all programs having particualr string in its Text symbols...

Former Member

‎04-09-2008 12:07 AM

0 Kudos

Hello Gurus,

If I want to search the string in ABAP code , I know I can use program RPR_ABAP_SOURCE_SCAN.

But I want to find all SAP programs in which the text-symbols is defined by a particular string. How can I do that ?

Please help....

3 REPLIES 3

Former Member

‎04-09-2008 1:39 AM

0 Kudos

Hi,

For that there is no standard program available in SAP, but you can create your own small program and in it use READ TEXTPOOL.

Regards,

Atish

Former Member
In response to Former Member

‎04-09-2008 7:57 PM

0 Kudos

Is there a table where SAP stores all the text-symbols along with its string value ?

This is urgent...

uwe_schieferstein
Active Contributor

‎04-09-2008 9:04 PM

Hello Rajesh

A function module which provides you will all text elements of a single report is RPY_PROGRAM_READ.

Given this fm it is quite simple to write a report for your requirement:


*&---------------------------------------------------------------------*
*& Report  ZUS_SDN_READ_TEXT_ELEMENTS
*&
*&---------------------------------------------------------------------*
*& Thread: Finding all programs having particualr string in its Text symbols...
*& <a class="jive_macro jive_macro_thread" href="" __jive_macro_name="thread" modifiedtitle="true" __default_attr="814207"></a>
*&---------------------------------------------------------------------*

REPORT  zus_sdn_read_text_elements.


TABLES: trdir.


TYPES: BEGIN OF ty_s_outtab.
TYPES: name   TYPE trdir-name.
INCLUDE TYPE textpool     AS text.
TYPES: END OF ty_s_outtab.
TYPES: ty_t_outtab  TYPE STANDARD TABLE OF ty_s_outtab
                    WITH DEFAULT KEY.

DATA: gt_outtab     TYPE ty_t_outtab,
      gs_outtab     TYPE ty_s_outtab,
      gt_fcat       TYPE lvc_t_fcat.


DATA: gt_trdir      TYPE STANDARD TABLE OF trdir,
      gs_trdir      TYPE trdir.

DATA: gt_textpool   TYPE STANDARD TABLE OF textpool.

DATA: gd_count      TYPE i,
      gd_perc       TYPE i,
      gd_text(50)   TYPE c.


SELECT-OPTIONS:
  o_report    FOR trdir-name.

START-OF-SELECTION.

  IF ( o_report[] IS INITIAL ).
  ELSE.
    SELECT * FROM  trdir INTO TABLE gt_trdir
           WHERE  name  IN o_report.
  ENDIF.
  CHECK ( gt_trdir IS NOT INITIAL ).

  DESCRIBE TABLE gt_trdir.
  gd_count = syst-tfill.


  LOOP AT gt_trdir INTO gs_trdir.
    gd_perc = ( syst-tabix * 100 ) / gd_count.
    gd_text = gs_trdir-name.

    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
        percentage = gd_perc
        text       = gd_text.


    REFRESH: gt_textpool.
    CALL FUNCTION 'RPY_PROGRAM_READ'
      EXPORTING
*         LANGUAGE                  = SY-LANGU
        program_name              = gs_trdir-name
        with_includelist          = ' '
*         ONLY_SOURCE               = ' '
        only_texts                = 'X'
*         READ_LATEST_VERSION       = ' '
*         WITH_LOWERCASE            = ' '
*       IMPORTING
*         PROG_INF                  =
      TABLES
*         INCLUDE_TAB               =
*         SOURCE                    =
*         SOURCE_EXTENDED           =
        textelements              = gt_textpool
      EXCEPTIONS
        cancelled                 = 1
        not_found                 = 2
        permission_error          = 3
        OTHERS                    = 4.
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    DELETE gt_textpool WHERE ( id NE 'I ' ).  " keep only text elements

    CLEAR: gs_outtab.
    gs_outtab-name = gs_trdir-name.
    LOOP AT gt_textpool INTO gs_outtab-text.
      APPEND gs_outtab TO gt_outtab.
    ENDLOOP.

  ENDLOOP.

  PERFORM build_fieldcatalog.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
*       I_INTERFACE_CHECK                 = ' '
*       I_BYPASSING_BUFFER                =
*       I_BUFFER_ACTIVE                   =
*       I_CALLBACK_PROGRAM                = ' '
*       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_LVC                     =
        it_fieldcat_lvc                   = gt_fcat
*       IT_EXCLUDING                      =
*       IT_SPECIAL_GROUPS_LVC             =
*       IT_SORT_LVC                       =
*       IT_FILTER_LVC                     =
*       IT_HYPERLINK                      =
*       IS_SEL_HIDE                       =
*       I_DEFAULT                         = 'X'
*       I_SAVE                            = ' '
*       IS_VARIANT                        =
    TABLES
      t_outtab                          = gt_outtab
    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.



END-OF-SELECTION.
*&---------------------------------------------------------------------*
*&      Form  BUILD_FIELDCATALOG
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM build_fieldcatalog .
* define local data
  DATA: ls_fcat   TYPE lvc_s_fcat,
        lt_fcat   TYPE lvc_t_fcat.

  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
*     I_BUFFER_ACTIVE              =
      i_structure_name             = 'TRDIR'
*     I_CLIENT_NEVER_DISPLAY       = 'X'
*     I_BYPASSING_BUFFER           =
*     I_INTERNAL_TABNAME           =
    CHANGING
      ct_fieldcat                  = gt_fcat
    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.

  DELETE gt_fcat WHERE ( fieldname NE 'NAME' ).

  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
  EXPORTING
*     I_BUFFER_ACTIVE              =
    i_structure_name             = 'TEXTPOOL'
*     I_CLIENT_NEVER_DISPLAY       = 'X'
*     I_BYPASSING_BUFFER           =
*     I_INTERNAL_TABNAME           =
  CHANGING
    ct_fieldcat                  = gt_fcat
  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.

  LOOP AT gt_fcat INTO ls_fcat.
    ls_fcat-col_pos = syst-tabix.
    MODIFY gt_fcat FROM ls_fcat INDEX syst-tabix.
  ENDLOOP.

ENDFORM.                    " BUILD_FIELDCATALOG

Regards

Uwe