Thursday, August 2, 2007

Finding User Exit or Badis

*-----------------------------------------------------------------------
* P R O G R A M H E A D E R
*-----------------------------------------------------------------------
* Version : 1.0
* SAP Version : R/3 System
* Program Name : ZVGENHANCE
* Created on : 20070802
* Program Type : Report
* Description : Program to find User Exits and Badis
*-----------------------------------------------------------------------
REPORT zvgenhance NO STANDARD PAGE HEADING LINE-SIZE 133 LINE-COUNT 80.
*-----------------------------------------------------------------------
* TABLES
*-----------------------------------------------------------------------
TABLES :tstc,
tadir,
modsapt,
modact,
trdir,
tfdir,
enlfdir,
sxs_attrt ,
tstct.
*-----------------------------------------------------------------------
* INTERNAL TABLES
*-----------------------------------------------------------------------
DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.
*-----------------------------------------------------------------------
* WORK AREA
*-----------------------------------------------------------------------
DATA : wa_tadir TYPE tadir.
*-----------------------------------------------------------------------
* VARIABLES
*-----------------------------------------------------------------------
DATA : field1(30).
DATA : v_devclass LIKE tadir-devclass.
*-----------------------------------------------------------------------
* SELECTION SCREEN
*-----------------------------------------------------------------------
SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME TITLE g_text01,
BEGIN OF LINE,
COMMENT 3(20) g_t01 FOR FIELD p_tcode.
PARAMETERS : p_tcode LIKE tstc-tcode.
SELECTION-SCREEN:END OF LINE,
BEGIN OF LINE,
COMMENT 3(20) g_t02 FOR FIELD p_pgmna.
PARAMETERS : p_pgmna LIKE tstc-pgmna .
SELECTION-SCREEN:END OF LINE,
END OF BLOCK b1.
*-----------------------------------------------------------------------
* INITIALIZATION
*-----------------------------------------------------------------------
INITIALIZATION.
g_text01 = 'Input Details'.
g_t01 = 'TCode'.
g_t02 = 'Program name'.
*-----------------------------------------------------------------------
* START OF SELECTION
*-----------------------------------------------------------------------
START-OF-SELECTION.
IF NOT p_tcode IS INITIAL.
SELECT SINGLE * FROM tstc WHERE tcode EQ p_tcode.
ELSEIF NOT p_pgmna IS INITIAL.
tstc-pgmna = p_pgmna.
ENDIF.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM tadir
WHERE pgmid = 'R3TR'
AND object = 'PROG'
AND obj_name = tstc-pgmna.
MOVE : tadir-devclass TO v_devclass.
IF sy-subrc NE 0.
SELECT SINGLE * FROM trdir
WHERE name = tstc-pgmna.
IF trdir-subc EQ 'F'.
SELECT SINGLE * FROM tfdir
WHERE pname = tstc-pgmna.
SELECT SINGLE * FROM enlfdir
WHERE funcname = tfdir-funcname.
SELECT SINGLE * FROM tadir
WHERE pgmid = 'R3TR'
AND object = 'FUGR'
AND obj_name EQ enlfdir-area.
MOVE : tadir-devclass TO v_devclass.
ENDIF.
ENDIF.
SELECT * FROM tadir INTO TABLE jtab
WHERE pgmid = 'R3TR'
AND object IN ('SMOD', 'SXSD')
AND devclass = v_devclass.
SELECT SINGLE * FROM tstct
WHERE sprsl EQ sy-langu
AND tcode EQ p_tcode.
FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
WRITE:/(19) 'Transaction Code - ',
20(20) p_tcode,
45(50) tstct-ttext.
SKIP.
IF NOT jtab[] IS INITIAL.
WRITE:/(105) sy-uline.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
SORT jtab BY object.
DATA : wf_txt(60) TYPE c,
wf_smod TYPE i ,
wf_badi TYPE i ,
wf_object2(30) TYPE c.
CLEAR : wf_smod, wf_badi , wf_object2.
LOOP AT jtab INTO wa_tadir.
AT FIRST.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
WRITE:/1 sy-vline,
2 'Enhancement/ Business Add-in',
41 sy-vline ,
42 'Description',
105 sy-vline.
WRITE:/(105) sy-uline.
ENDAT.
CLEAR wf_txt.
AT NEW object.
IF wa_tadir-object = 'SMOD'.
wf_object2 = 'Enhancement' .
ELSEIF wa_tadir-object = 'SXSD'.
wf_object2 = ' Business Add-in'.
ENDIF.
FORMAT COLOR COL_GROUP INTENSIFIED ON.
WRITE:/1 sy-vline,
2 wf_object2,
105 sy-vline.
ENDAT.
CASE wa_tadir-object.
WHEN 'SMOD'.
wf_smod = wf_smod + 1.
SELECT SINGLE modtext INTO wf_txt
FROM modsapt
WHERE sprsl = sy-langu
AND name = wa_tadir-obj_name.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
WHEN 'SXSD'.
* For BADis
wf_badi = wf_badi + 1 .
SELECT SINGLE text INTO wf_txt
FROM sxs_attrt
WHERE sprsl = sy-langu
AND exit_name = wa_tadir-obj_name.
FORMAT COLOR COL_NORMAL INTENSIFIED ON.
ENDCASE.
WRITE:/1 sy-vline,
2 wa_tadir-obj_name HOTSPOT ON,
41 sy-vline ,
42 wf_txt,
105 sy-vline.
AT END OF object.
WRITE : /(105) sy-uline.
ENDAT.
ENDLOOP.
WRITE:/(105) sy-uline.
SKIP.
FORMAT COLOR COL_TOTAL INTENSIFIED ON.
WRITE:/ 'No.of Exits:' , wf_smod.
WRITE:/ 'No.of BADis:' , wf_badi.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(105) 'No userexits or BADis exist'.
ENDIF.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(105) 'Transaction does not exist'.
ENDIF.
AT LINE-SELECTION.
DATA : wf_object TYPE tadir-object.
CLEAR wf_object.
GET CURSOR FIELD field1.
CHECK field1(8) EQ 'WA_TADIR'.
READ TABLE jtab WITH KEY obj_name = sy-lisel+1(20).
MOVE jtab-object TO wf_object.
CASE wf_object.
WHEN 'SMOD'.
SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).
CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.
WHEN 'SXSD'.
SET PARAMETER ID 'EXN' FIELD sy-lisel+1(20).
CALL TRANSACTION 'SE18' AND SKIP FIRST SCREEN.
ENDCASE.
*-----------------------------------------------------------------------
* END OF SELECTION
*-----------------------------------------------------------------------

26 comments:

Anonymous said...

Heya i am for the first time here. I came across this board and I find It really useful
& it helped me out a lot. I hope to give something back and help others like you helped me.


Here is my webpage - http://near2us.com/blogs/426/520/what-do-adult-photographers-thin
Also see my website :: See more

Anonymous said...

Your style is very unique in comparison to other people I have read stuff from.
Thanks for posting when you have the opportunity, Guess I'll just book mark this blog.

Feel free to surf to my webpage: click here

Anonymous said...

Howdy! Do you use Twitter? I'd like to follow you if that would be okay. I'm undoubtedly enjoying your blog and look forward to new updates.


Also visit my site - see more

Anonymous said...

Hi to all, as I am genuinely keen of reading this webpage's post to be updated regularly. It consists of pleasant material.

Take a look at my website http://vintagewifemovies.com
My site - visit

Anonymous said...

It's not my first time to visit this site, i am browsing this web site dailly and get good information from here all the time.

Here is my weblog :: HTTP://Ilovemallu.com/BellBingh

Anonymous said...

This info is priceless. How can I find out more?

Take a look at my website - At porn photo

Anonymous said...

What's up to every one, because I am genuinely keen of reading this weblog's post to be updated
on a regular basis. It contains fastidious data.

Feel free to visit my web-site :: http://hotmilf.ws/index.php?own=2499145
My page: http: //hotmilf.ws/index.php?own=2477790

Anonymous said...

I know this web site presents quality based posts and other material, is there any
other web site which gives such data in quality?


Here is my weblog - http://amateursfucking.info/?q=amateur+anal&F=m

Anonymous said...

hi!,I really like your writing very much! share we keep up a correspondence extra about your post on AOL?
I need an expert on this space to solve my problem.
May be that's you! Having a look forward to peer you.

Take a look at my blog post :: click here

Anonymous said...

If some one needs expert view concerning running a blog afterward i suggest him/her to visit this website,
Keep up the fastidious work.

My web blog - more

Anonymous said...

Thanks in support of sharing such a pleasant thinking, piece of writing is fastidious,
thats why i have read it completely

my site: was Petite Gangbangs

Anonymous said...

Excellent article. I'm dealing with many of these issues as well..

Also visit my web site: a sex vids

Anonymous said...

My spouse and I absolutely love your blog and find most of
your post's to be just what I'm looking for. Would you offer guest writers
to write content for you personally? I wouldn't mind composing a post or elaborating on most of the subjects you write in relation to here. Again, awesome weblog!

Also visit my blog post ... see more

Anonymous said...

Howdy! This blog post could not be written much better!
Reading through this post reminds me of my previous roommate!
He constantly kept preaching about this. I'll send this information to him. Fairly certain he's going
to have a good read. Thank you for sharing!

my web-site ... amber shows off her perfect body 3312006

Anonymous said...

Hey just wanted to give you a quick heads up and let you
know a few of the pictures aren't loading correctly. I'm not sure why but I think its a linking issue.

I've tried it in two different web browsers and both show the same results.

Feel free to surf to my web page: http://www.thigalas.in/blogs/user/RachelleMc

Anonymous said...

Thank you for the good writeup. It in fact was a
amusement account it. Look advanced to far added agreeable from you!
By the way, how can we communicate?

Also visit my web site: three girls fingering

Anonymous said...

It's the best time to make some plans for the future and it's time
to be happy. I have read this post and if I could I wish to suggest you some interesting things or tips.
Perhaps you can write next articles referring to this
article. I desire to read even more things about it!


my web page - in porn photo

Anonymous said...

Hi Dear, are you truly visiting this web page regularly, if
so then you will absolutely obtain nice knowledge.



Also visit my homepage; http://pornharvest.com/index.php?m=2136924

Anonymous said...

Pretty nice post. I just stumbled upon your blog and wanted to say that I have really
enjoyed browsing your blog posts. In any case I will be subscribing to your feed and I hope you
write again very soon!

my web page :: http://multicultural.forumkultur.org.pl/forum/profile.php?id=20090

Anonymous said...

I always used to read paragraph in news papers but now as I am a user of web so from now I am using net for articles,
thanks to web.

Here is my weblog :: http://pornharvest.com/index.php?m=2327330

Anonymous said...

Hello! I could have sworn I've visited this website before but after looking at some of the posts I realized it's new to me.
Anyhow, I'm definitely delighted I discovered it and I'll
be bookmarking it and checking back frequently!


Feel free to visit my web blog; http://pornharvest.com/index.php?m=2339709

Anonymous said...

Link exchange is nothing else except it is only placing the other person's webpage link on your page at proper place and other person will also do similar in favor of you.

Feel free to surf to my web page :: brunette Pleasing herself

Anonymous said...

WOW just what I was looking for. Came here by searching for word tattoos and picture tattoos

Here is my blog post - http://pornharvest.com/index.php?q=nubiles+jenna&f=a&p=s

Anonymous said...

hey there and thank you for your information – I have definitely picked up anything new from
right here. I did however expertise several technical points using this site, as I experienced to reload the website lots of times previous to I could get it to load properly.
I had been wondering if your hosting is OK?
Not that I'm complaining, but sluggish loading instances times will sometimes affect your placement in google and can damage your high-quality score if ads and marketing with Adwords. Well I'm adding this RSS to my email and could
look out for a lot more of your respective fascinating content.

Ensure that you update this again very soon.

My weblog: Http://Pornharvest.Com/Index.Php?M=2137059

Anonymous said...

I always spent my half an hour to read this blog's posts every day along with a mug of coffee.

Also visit my weblog ... the sex vids

Anonymous said...

Just want to say your article is as astonishing.
The clarity in your publish is simply great and
i could think you are knowledgeable in this subject. Fine
along with your permission allow me to seize your feed to keep up to date
with forthcoming post. Thank you 1,000,000 and please continue
the rewarding work.

Review my web site visit