topic Re: how implement the WHERE-USED LIST functionality in program ??? in Application Development and Automation Discussions

how implement the WHERE-USED LIST functionality in program ???

ankur_sharma16 — Fri, 06 Jul 2012 12:51:01 GMT

Hello Experts,

I am trying to implement the WHERE-USED LIST's functionality in my program, i got few FMs also while debugging the where-used list. But i want that if i enter say name of data element then program checks in database where this data element is used. And i want this without any screen or pop-up like its happening in background.

Please give me suggestion, i need to implement this in program.

Thanks and Regards,

Ankur Sharma

Re: how implement the WHERE-USED LIST functionality in program ???

former_member186491 — Fri, 06 Jul 2012 13:45:34 GMT

Hi Ankur,

You may check FM RS_EU_CROSSREF and go through the Documentation for that same as it contains one example.

Hope this may be helpful.

Thanks.

Kumar Saurav.

Re: how implement the WHERE-USED LIST functionality in program ???

ShyamPindiproli — Fri, 06 Jul 2012 13:49:36 GMT

Check out this function module ..

CALL FUNCTION 'RS_TOOL_ACCESS'.
EXPORTING
OPERATION = 'CROSSREF'
OBJECT_NAME = prog_name
OBJECT_TYPE = 'INCL'

Regards,

Shyam

Re: how implement the WHERE-USED LIST functionality in program ???

ankur_sharma16 — Mon, 09 Jul 2012 05:21:27 GMT

Thanks Kumar Saurav and Subrahmanya Pindiproli for the reply and suggestions.

I know these FMs and am trying to find solution with it, but the problem is that pop up screen are coming asking what to find or where to find. I do not want any screens or pop-ups.

Please suggest me something.

Re: how implement the WHERE-USED LIST functionality in program ???

kesavadas_thekkillath — Mon, 09 Jul 2012 05:37:14 GMT

Refer program RSHDCF00 and also go through this wiki post SAP Community Network Wiki - ABAP Development - ABAP program to read where-used lists

If you are using RS_EU_CROSSREF, pass option no_dialog = X for no popup's.

Re: how implement the WHERE-USED LIST functionality in program ???

SharathYaralkattimath — Mon, 09 Jul 2012 05:46:12 GMT

Hi Ankur,

I have written a program which may serve your purpose, You can implement the code from that.

Please find the attached code for your reference.

Regards,

Sharath

Re: how implement the WHERE-USED LIST functionality in program ???

ankur_sharma16 — Mon, 09 Jul 2012 05:50:49 GMT

Thanks Kesavadas Thekkillath for reply. but even this program is using 'RS_EU_CROSSREF' which is being used to find domain. And still pop up is coming.

Any suggestions???

Re: how implement the WHERE-USED LIST functionality in program ???

kesavadas_thekkillath — Mon, 09 Jul 2012 06:09:07 GMT

Pass parameter no_dialog = X

Re: how implement the WHERE-USED LIST functionality in program ???

ankur_sharma16 — Mon, 09 Jul 2012 08:38:51 GMT

Thanks Kesavadas and Sharath, i got the info of where the data element is being use, can you help me in one more thing?

how to rename the data element in the programs found in It ?

according to me: while looping at IT to WA i can use FM to scan the prog and apply fuzzy logic to change the name in prog.

Any suggestions on that?

Please help me.

Re: how implement the WHERE-USED LIST functionality in program ???

kesavadas_thekkillath — Mon, 09 Jul 2012 09:26:08 GMT

You can read the f1 help on "Replace in table". But after this you have to save & activate the changed program programatically. It goes on

Re: how implement the WHERE-USED LIST functionality in program ???

ankur_sharma16 — Mon, 09 Jul 2012 09:38:32 GMT

Kesavadas Thekkillath, I found two FM, but not getting how to use it as per my need.

I am sharing with you, see if you can give nay idea.

FMs : FM RS_FIND_REPLACE_GLOBAL and RS_EDTR_SEARCH.

Re: how implement the WHERE-USED LIST functionality in program ???

kesavadas_thekkillath — Mon, 09 Jul 2012 09:47:59 GMT

Hope this helps

CALL FUNCTION 'RS_FIND_REPLACE_GLOBAL'

EXPORTING

objecttype = Pass R/M/O/U/E/Y/T/F/G

findstring = Search string ... for ex data element name

findstring_length = Length of DE name

exact_spelling = 'X'

replacestring = SPACE "Text to be replaced newly

i_find_or_replace = 'FIND'" Check what has to be passed for REPLACE from the FM code

IMPORTING

actual_incl_modified = " s38e-buf_varied

actual_changed_min = " sy-tabix

actual_changed_max = " sy-tabix

TABLES

objecttab = pass the object names to be scanned

EXCEPTIONS

NOT_FOUND = 2

Please search for the where used list of the FM.

Re: how implement the WHERE-USED LIST functionality in program ???

ankur_sharma16 — Mon, 09 Jul 2012 09:59:59 GMT

i am trying to test run this FM from past half an hour but all time i get is 'No occurences found'.

pls suggest.

Re: how implement the WHERE-USED LIST functionality in program ???

kesavadas_thekkillath — Mon, 09 Jul 2012 10:43:25 GMT

Here it is... I am replacing the word MATNR with EBELN in program YREPLACE. It displays a popup in which you have hit the button to replace everything. You can refer the program RSAGLSYM for help.

data:  OBJECT_TYPE(3) type c,
        KFIND(79) type c,
              FINDSTRINGLEN type SY-FDPOS,
       REPLACESTRINGLEN type SY-FDPOS,
         KREPLACE type  RSEUR-TDREPLACE.
 types: BEGIN OF ty,
           MARK(1) type c,
           PROGRAM type SY-REPID,
           NAME(61) type c,
           DYNNR(4)  type c,
           PROGTYPE(1)  type c,
           OBJ_STATE(1)  type c,
         END OF ty.
 data:it type table of ty,
      wa type ty.
 wa-MARK = wa-PROGTYPE  = 'X'.
 wa-PROGRAM = 'YREPLACE'.
 append wa to it.
 OBJECT_TYPE = 'R'.
 kfind = 'MATNR'.
 FINDSTRINGLEN = '5'.
 KREPLACE = 'EBELN'.
 REPLACESTRINGLEN = '5'.
 LOOP AT it into wa.
   CALL FUNCTION 'RS_ACCESS_PERMISSION'
     EXPORTING
       MODE         = 'FREE'
       OBJECT       = wa-PROGRAM
       OBJECT_CLASS = 'ABAP'.
 ENDLOOP.
 CALL FUNCTION 'RS_FIND_REPLACE_GLOBAL'
   EXPORTING
     OBJECTTYPE           = OBJECT_TYPE
     FINDSTRING           = KFIND
     FINDSTRING_LENGTH    = FINDSTRINGLEN
     METHOD               = 'STRING'
     EXACT_SPELLING       = 'X'
     REPLACESTRING        = KREPLACE
     REPLACESTRING_LENGTH = REPLACESTRINGLEN
     I_FIND_OR_REPLACE    = 'REPLACE'
     MONITOR_ACTIVATION   = 'X'
   TABLES
     OBJECTTAB            = it
   EXCEPTIONS
     NOT_FOUND            = 01
     NOT_EXECUTED         = 04.

Re: how implement the WHERE-USED LIST functionality in program ???

ankur_sharma16 — Mon, 09 Jul 2012 11:39:53 GMT

Kesavadas Thekkillath, This FM is not finding the name of data element which i have defined min my program.

My objective is to find the name of data element in program and replace it with new name.

SO what should i do now, pls suggest.

Re: how implement the WHERE-USED LIST functionality in program ???

kesavadas_thekkillath — Mon, 09 Jul 2012 11:47:29 GMT

I tested my program and is working fine. What type of program are you using report, module pool etc. ?

Instead of checking it from SE37, try writing two sample programs and check it once. Might be the problem of case sensitivity.

Did you try executing my code ? In the second program YREPLACE just put some declarations related to MATNR.

Please note that the program to be changed must be is disabled mode and not in editable mode.

Re: how implement the WHERE-USED LIST functionality in program ???

ankur_sharma16 — Mon, 09 Jul 2012 14:20:49 GMT

Kesavadas Thekkillath, Thanksfor help .

This is what i did. I just changed the program name and data element name.

DATA: OBJECT_TYPE(3) TYPE C,

KFIND(79) TYPE C,

FINDSTRINGLEN TYPE SY-FDPOS,

REPLACESTRINGLEN TYPE SY-FDPOS,

KREPLACE TYPE RSEUR-TDREPLACE.

TYPES: BEGIN OF TY,

MARK(1) TYPE C,

PROGRAM TYPE SY-REPID,

NAME(61) TYPE C,

DYNNR(4) TYPE C,

PROGTYPE(1) TYPE C,

OBJ_STATE(1) TYPE C,

END OF TY.

DATA:IT TYPE TABLE OF TY,

WA TYPE TY.

WA-MARK = WA-PROGTYPE = 'X'.

WA-PROGRAM = 'Y_WARERR22'.

APPEND WA TO IT.

OBJECT_TYPE = 'R'.

KFIND = 'ULINE'.

FINDSTRINGLEN = '6'.

KREPLACE = 'ABC'.

REPLACESTRINGLEN = '3'.

LOOP AT IT INTO WA.

CALL FUNCTION 'RS_ACCESS_PERMISSION'

EXPORTING

MODE = 'FREE'

OBJECT = WA-PROGRAM

OBJECT_CLASS = 'ABAP'.

ENDLOOP.

CALL FUNCTION 'RS_FIND_REPLACE_GLOBAL'

EXPORTING

OBJECTTYPE = OBJECT_TYPE

FINDSTRING = KFIND

FINDSTRING_LENGTH = FINDSTRINGLEN

METHOD = 'STRING'

EXACT_SPELLING = 'X'

REPLACESTRING = KREPLACE

REPLACESTRING_LENGTH = REPLACESTRINGLEN

I_FIND_OR_REPLACE = 'REPLACE'

MONITOR_ACTIVATION = 'X'

TABLES

OBJECTTAB = IT

EXCEPTIONS

NOT_FOUND = 01

NOT_EXECUTED = 04.

IF SY-SUBRC EQ 0.

WRITE:'SUCCESS.'.

ENDIF.

Re: how implement the WHERE-USED LIST functionality in program ???

kesavadas_thekkillath — Tue, 10 Jul 2012 04:43:07 GMT

Pass FINDSTRINGLEN = '5'.

Re: how implement the WHERE-USED LIST functionality in program ???

ankur_sharma16 — Tue, 10 Jul 2012 05:19:28 GMT

Hi Kesavadas, the problem was i was giving the program which is in some other package. It searches in same package only.

But anyway, for now its ok for me.

Thanks All If i get problem in this i will ask in NEW POST.

Re: how implement the WHERE-USED LIST functionality in program ???

ankur_sharma16 — Tue, 10 Jul 2012 05:32:25 GMT

Special Thanks to Kesavadas for replying me quickly everytime.