Genarate BADI Reports

Hi All,
Can any one pls explain on Genarating BADI Reports.
Thanks.
Moderator message - Welcome to SCN.
But please make sure you ask a specific question and search both the forum and the internet for answers.
Please also make sure you read Please read "The Forum Rules of Engagement" before posting! HOT NEWS!! and How to post code in SCN, and some things NOT to do... before posting - thread locked
Edited by: Rob Burbank on Mar 18, 2010 2:36 PM

Hi,
This is a beginners question,but still you can check the below links.
BAdis:
Regarding Enhancements/User-Exits in ABAP
http://help.sap.com/saphelp_nw04/helpdata/en/c8/1975cc43b111d1896f0000e8322d00/content.htm
http://help.sap.com/saphelp_nw04/helpdata/en/ee/a1d548892b11d295d60000e82de14a/content.htm
http://sap.ittoolbox.com/groups/technical-functional/sap-r3-dev/779183#
FM:
http://help.sap.com/saphelp_nw70/helpdata/en/9f/db988735c111d1829f0000e829fbfe/content.htm
Reports:
http://it.toolbox.com/wiki/index.php/How_many_types_of_reports_are_there_in_ABAP_and_what_is_the_difference_between_them%3F
Regards,
saurabh

Similar Messages

Bad reporting performance after compressing infocubes

Hi,
as I learned, we should compress requests in our infocubes. And since we're using Oracle 9.2.0.7 as database, we can use partitioning on the E-facttable to still increase reporting performance. So far all theory...
After getting complaints about worse reporting performance we tested this theory. I created four InfoCubes (same datamodel):
A - no compression
B - compression, but no partitioning
C - compression, one partition for each year
D - compression, one partition for each month
After loading 135 requests and compressing the cubes, we get this amount of data:
15.6 million records in each cube
Cube A: 135 partitions (one per request)
Cube B: 1 partition
Cube C: 8 partitions
Cube D: 62 partitions
Now I copied one query on each cube and with this I tested the performance (transaction rsrt, without aggregates and cache, comparing the database time QTIMEDB and DMTDBBASIC). In the query I selected always one month, some hierarchy nodes and one branch.
With this selection on each cube, I expected that cube D would be fastest, since we only have one (small) partition with relevant data. But reality shows some different picture:
Cube A is fastest with an avg. time of 8.15, followed by cube B (8.75, +8%), cube C (10.14, +24%) and finally cube D (26.75, +228%).
Does anyone have an idea what's going wrong? Are there same db-parameters to "activate" the partitioning for the optimizer? Or do we have to do some other customizing?
Thanks for your replies,
Knut

Hi Björn,
thanks for your hints.
1. after compressing the cubes I refreshed the statistics in the infocube administration.
2. cube C ist partitioned using 0CALMONTH, cube D ist partitioned using 0FISCPER.
3. here we are: alle queries are filtered using 0FISCPER. Therefor I could increase the performance on cube C, but still not on D. I will change the query on cube C and do a retest at the end of this week.
4. loaded data is joined from 10 months. The records are nearly equally distributed over this 10 months.
5. partitioning was done for the period 01.2005 - 14.2009 (01.2005 - 12.2009 on cube C). So I have 5 years - 8 partitions on cube C are the result of a slight miscalculation on my side: 5 years + 1 partion before + 1 partition after => I set max. no. of partitions on 7, not thinking of BI, which always adds one partition for the data after the requested period... So each partition on cube C does not contain one full year but something about 8 months.
6. since I tested the cubes one after another without much time between, the system load should be nearly the same (on top: it was a friday afternoon...). Our BI is clustered with several other SAP installations on a big unix server, so I cannot see the overall system load. But I did several runs with each query and the mentioned times are average times over all runs - and the average shows the same picture as the single runs (cube A is always fastest, cube D always the worst).
Any further ideas?
Greets,
Knut

Useing Excel table genarate the report in bi publisher 11g

Hi All,
Can anyone share your ideas pls...
Using Excel files we upload the data into data set excel but could't generate the reports in Bi-Publisher 11g...we are getting the error :"Null".
We are using open office...is this could be a problem..?
Rgds..DCB
Edited by: DCB on Dec 30, 2010 5:30 AM

check the below
http://www.oracle.com/webfolder/technetwork/tutorials/obe/fmw/bi//bip/advancedbip/advancedbip.htm#t3
http://www.youtube.com/watch?v=NPbKRnSkDVM
using rtf template
http://bipconsulting.blogspot.com/2010/02/drill-down-to-detail-or-another-report.html

How to see the SQL running in back ground when we genarate a report.

Hi All,
I am new to Oracle Reports Builder toll and I would like to see the SQL query/script running in back ground when we run any perticular report using Reports Builder 10g.
Please help me with this query, Thank You Very much for your help in Adv.
Thanks,

Hi,
well the only option you can try is enabling trace from Builder (Program --> Tracing --> ALL) and then from the OS keep checking the trace file being created when the report is running. Something like the following will be recorded.
example
10:14:18 APP .. ( Repeating Frame R_G_EMPNO
10:14:18 APP ... ( Group G_EMPNO Local Break: 0 Global Break: 0
10:14:18 APP .... ( Query Q_1
10:14:18 SQL EXECUTE QUERY : select * from emp where deptno=:x
Bind Variable Value
X 10
10:14:18 APP .... ) Query Q_1
10:14:18 APP ... ) Group G_EMPNO
10:14:18 APP ... ( Text Field F_DEPTNO
Hope this helps
Roberto

[SCCM 2012 R2] Windows Update Agent do not scan correctly thus SCCM has bad reports

Hi All,
My colleagues reported that after manual download and installation of update Office 2010 SP2 ... SCCM still do not report as Installed:
https://support.microsoft.com/en-us/kb/2687455
KB2687455 update on SCCM is reported as:
Update ID: 9c5e43a3-3ae9-434d-b105-a9d7902d5f9f
Update Title: Service Pack 2 for Microsoft Office 2010 (KB2687455) 32-Bit Edition
Test Computer:
After investigation I found out that Windows Update Agent (verbose logging) is reporting that this update is really not installed: Agent Update {9C5E43A3-3AE9-434D-B105-A9D7902D5F9F} is deployed for scan, and is installable. It will be reported
as installable.
Update KB2687455 is shown in Programs and Features/Installed Updates as installed on this computer.
Question:
This update is MSP (not standard update) so it cannot be queried by win32_quickfixengineering WMI class. How to query all installed updates on system (registry, API, ...)?
How WUA query ALL installed updates?
Thank you in advance.
Regards,

Hi,
You could check the version number. The version number of Office 2010 SP2 is greater than or equal to
14.0.7015.1000.
The script in the blog below could get List of installed Windows / office Updates.
http://www.blackforce.co.uk/2013/01/27/get-list-of-installed-windows-office-updates-command-line
The sample in the following article can be used to determine if a critical security update is installed on a computer. If the update isn't installed, the user can ensure that the update is downloaded and installed. The user can also ensure that
they are notified about the status of the installation.
https://msdn.microsoft.com/en-us/library/windows/desktop/aa387101(v=vs.85).aspx
Note: Microsoft provides third-party contact information to help you find technical support. This contact information may change without notice. Microsoft
does not guarantee the accuracy of this third-party contact information.
Best Regards,
Joyce
Please remember to mark the replies as answers if they help and unmark them if they provide no help. If you have feedback for TechNet Subscriber Support, contact [email protected]

I have an early 2008 mac should i upgrade to mavericks have heard some bad reports

i have an early 2008 mac should i upgrade to mavericks have heard some bad reports

I have an early 2008 iMac running Yosemite and I am not experiencing any real difficulties. I did upgrade to 6 GB of RAM, which has helped.
I purchased the RAM from OWC.
Other World Computing

How to genarate reports

hi
i know the little bit about jasper Report .u sing with ireport
Designer i genarate the reports.
i want know the information about some peroid of time , a spcific table or a spsific schema. how can i proced .
any one can help this.

Raghava
Sorry, I don't understand the question. Could you rephrase it... being a tad more careful with your spelling and grammar.

Task list Report Generation

Hi ,
Please let me know if the following are feasible while generating the tasklist report.
1. Can we Generate the tasklist report from the system by scenario . Is there any workaround to get this reoport from backend tables ?
2. Task list report shows stats for every user who belong to the selected group. Can we limit this view so the report summarizes by the group instead of individual user.
Thanks & Regards,
Vijaya Koppolu

Hi,
I think you posted in wrong place. Please post in Planning and Budgeting forum to get a better answer.
To answer your question, I was trying to genarate Workflow reports from Backend. But I could not get the usernames from Backend tables as it is not saved for MSAD users. For MSAD users planning schema saves a URL instead of username.

Crystal Report with text(csv) data file, can we set it as input parameter?

Hi,
I am a new user of Crystal Reports 2008.
I have created a report with charts in it. The input data comes from a csv text file.
Can I set the name of this text file as an input parameter?
as I need to generate 44 similar reports with different text filenames(and data)?
Thank you.
Regards

Brian,
Thanks much.
I did exactly what you said.
Just to see any change, I first gave a bad report file name just to see if I am accidentally pointing to a different file,
but I got an error saying report not found.
Then I renamed my original datafile name and generated a report and it still generated one without giving an error.
Then I also gave a junk name to the logoninfo and printed that name, the new name was assigned to logoninfo, but the code did not error out.
It ended up generating the report.
Now here is what I think is happening,
1) The save data in report option seems to be still on even though I have turned it off in 2 locations
a) file -> Report Options
b) file -> Options -> Reporting tab.
2) For some reason the logoninfo is getting ignored as well.
Since I did not see any answers yesterday I posted a link to this thread on the .Net forum
Crystal Report with text(csv) data file, can we set it as input param? C#
and Ludek Uher says that I am connecting to the text file via a DAO database engine and so need to use the same code for changing the text file as for changing an Access database.
But the link he gave me tells me to try the same thing that we have been trying..
Here is my plan,
1) I will first try and find out why my save data with report option is still on ( but it shows off in Crystal ).
2) why is LogonInfo getting ignored.
Meanwhile any suggestions from anyone are welcome.

Crystal Reports Slow on BOXI 3.1 Universes

Our Universes are extremely slow in returning results (Crystal Reports).
Some Facts:
Data Warehouse tables Oracle, 26 million rows, indexed by fiscal year. Report parameters include Fiscal year and Accounting Month.
We watched the SQL from the Oracle side when running a report. It appears that the Universe is not passing the FY parameters from Crystal Reports to utilize the indexing in the data tables, thus is build a massive temp file which is consuming resources and taking a great deal of time to process.
Are we correct in the way this is functioning? What can we do to optimize processing time? How may we pass the FY parameter to the SQL to utilize table indexing?
Barry

Barry,
If this was glaringly obvious to all but our Universe Designers, then the kindness of a response would have been appreciated, otherwise what use is a forum?
Well first off, congrats on running the rabbit trails to solve your problem, and thank you for reposting your "thinking out louds" for the benefit of others who are running into or may in the future run into the same problem.
In regards to Universe Designers and their ability to "see ahead", this is hit or miss, and now that your Universe Designers have a couple of more notches on their belts they may "see more" ahead next time. Experience grows in exponential ways, so I'd say "be patient". On this same thread, the approach of any good Universe Designer is to always think in terms of SQL when setting things up. For example, applying a join between two relations requires the knowledge of inner or outer (or left outer or right outer) joins. Without knowing the proper relation, you'll have bad joins. In terms of displaying the data, any manipulation that is applied to a column may affect performance, so the Universe Designer may need to work with the Database Administrator to see if a new column can be constructed that dresses up the data as it's staged to the repository versus dressing it up on the fly. How does a Universe Designer come to know all of this? By experience, and sometimes by experimenting. And also, being ready to make adjustments when things go awry. If you have a bad reporting day, then that can be understood, however, many bad reporting days is symptomatic of not understanding a principle along the way. Anyhow, thanks for letting me ramble a bit, but I encourage you to continue making contributions to the forum as it will benefit lots of folks along the way, even you sometimes.
Thanks,
John

How to Display PDF File on Oracle Report 10g

Dears,
i have a PDF File on the server,
also i need to display this file into rdf report.(Embed the PDF file into Report)
Regards

Dear Inol,
I have the same problem I want to embded a PDF, word Doc OR Image in report 10g.
And I put the read from file property YES and File Format OLE2
and it doesnt work by run_web_report by repport server. while in run report layout it works.
And my report server on the same Pc "The file path on the same server". or you can say that im working on the server where the path of the file exists and it doesnt work also.
So what do you think that i have to do to solve this problem.\
by the way i try to Genarate the report to a file in spacefic path then open it. and it didnt work also.
any help will be apreciated.
thanks in advance.
Ashraf

Have a big problem with report. Very urgent please help

I have a report rep1. When I run the report via batch thru command rwclient to create a file it failed. I got the follwoing error message:
REP-0177: Error while running in remote server
Job 1413 is terminated due to connection timeout.
It does not even try for few seconds before gives this message. I ran some other batch reports whihc took 15 minutes and they were fine.
So, I stopped running the bad report for the day thinking the report is still not dead. I ran the same rep1 next day I still get the same error message. But this time when I ran I looked at the appserver showjobs (which lists the reports that were running and that already ran). The job number is different But still it fails in 3 seconds with the job number 1413 and connection time out. Can any one tell what might be the problem.
Any number of times I run this job I get the same job number with same error (all this is only if I run it as batch using rwclient). If I run this as online by calling it from a form it returns the results without any problems.
Please help. Very urgent.
Thanks in advance.
Asha

You might want to delete the report server .dat file and restart the server and try
his also could be one of the issues we had seen and fixed in 9.0.2.3. Please ensure you have the latest patch applied
Thanks
The Oracle Reports team

BRS Report for un cleared items

Hi Developers,
I have a requirement in FI Module. I want a BRS Report. Can any one help me on that because I have no idea what a BRS Report is. Any one having sample code please post.
Regards,
Bibhu

BRS - Bad Report Specification? Seriously, go back to your FI/CO wizard and ask what he/she means by "BRS".

Where can I find the BADI

Hi Gurus,
i am new to concept of BADI. Can any one present application/Use of BADI with an example . Can anyone tell me in which table or under which Tcode can I find the list of abailable BADI's ?
Regards,
NewAbaper

Hi Abaper user,
This will give the clear idea about the badi.
Go through this info.
just run this report u get badi
REPORT ZNEGI16 .
TABLES : TSTC,
TADIR,
MODSAPT,
MODACT,
TRDIR,
TFDIR,
ENLFDIR,
SXS_ATTRT ,
TSTCT.
DATA : JTAB LIKE TADIR OCCURS 0 WITH HEADER LINE.
DATA : FIELD1(30).
DATA : V_DEVCLASS LIKE TADIR-DEVCLASS.
PARAMETERS : P_TCODE LIKE TSTC-TCODE,
P_PGMNA LIKE TSTC-PGMNA .
DATA wa_tadir type tadir.
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.
Sorting the internal Table
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.
Get the total SMOD.
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.
DEFINING THE BADI
1) execute Tcode SE18.
2) Specify a definition Name : ZBADI_SPFLI
3) Press create
4) Choose the attribute tab. Specify short desc for badi.. and specify the type :
multiple use.
5) Choose the interface tab
6) Specify interface name: ZIF_EX_BADI_SPFLI and save.
7) Dbl clk on interface name to start class builder . specify a method name (name,
level, desc).
Method level desc
Linese;ection instance methos some desc
8) place the cursor on the method name desc its parameters to define the interface.
Parameter type refe field desc
I_carrid import spfli-carrid some
I_connid import spefi-connid some
9) save , check and activateadapter class proposed by system is
ZCL_IM_IM_LINESEL is genereated.
IMPLEMENTATION OF BADI DEFINITION
1) EXECUTE tcode se18.choose menuitem create from the implementation menubar.
2) Specify aname for implementation ZIM_LINESEL
3) Specify short desc.
4) Choose interface tab. System proposes a name fo the implementation class.
ZCL_IM_IMLINESEL which is already generarted.
5) Specify short desc for method
6) Dbl clk on method to insert code..(check the code in AAA).
7) Save , check and activate the code.
Some useful URL
http://www.esnips.com/doc/e06e4171-29df-462f-b857-54fac19a9d8e/ppt-on-badis.ppt
http://www.esnips.com/doc/10016c34-55a7-4b13-8f5f-bf720422d265/BADIs.pdf
http://www.esnips.com/doc/43a58f51-5d92-4213-913a-de05e9faac0d/Business-Addin.doc
http://www.esnips.com/doc/1e10392e-64d8-4181-b2a5-5f04d8f87839/badi.doc
www.sapgenie.com/publications/saptips/022006%20-%20Zaidi%20BADI.pdf
http://www.sapdevelopment.co.uk/enhance/enhance_badi.htm
http://help.sap.com/saphelp_nw04/helpdata/en/04/f3683c05ea4464e10000000a114084/content.htm
http://help.sap.com/saphelp_nw04/helpdata/en/e6/d54d3c596f0b26e10000000a11402f/content.htm
http://help.sap.com/saphelp_nw2004s/helpdata/en/c2/eab541c5b63031e10000000a155106/frameset.htm
Now write a sample program to use this badi method..
Look for BBB sample program.
AAA
data : wa_flights type sflight,
it_flights type table of sflight.
format color col_heading.
write:/ 'Flight info of:', i_carrid, i_connid.
format color col_normal.
select * from sflight
into corresponding fields of table it_flights
where carrid = i_carrid
and connid = i_connid.
loop at it_flights into wa_flights.
write:/ wa_flights-fldate,
wa_flights-planetype,
wa_flights-price currency wa_flights-currency,
wa_flights-seatsmax,
wa_flights-seatsocc.
endloop.
BBB
*& Report ZBADI_TEST *
REPORT ZBADI_TEST .
tables: spfli.
data: wa_spfli type spfli,
it_spfli type table of spfli with key carrid connid.
*Initialise the object of the interface.
data: exit_ref type ref to ZCL_IM_IM_LINESEL,
exit_ref1 type ref to ZIF_EX_BADISPFLI1.
selection-screen begin of block b1.
select-options: s_carr for spfli-carrid.
selection-screen end of block b1.
start-of-selection.
select * from spfli into corresponding fields of table it_spfli
where carrid in s_carr.
end-of-selection.
loop at it_spfli into wa_spfli.
write:/ wa_spfli-carrid,
wa_spfli-connid,
wa_spfli-cityfrom,
wa_spfli-deptime,
wa_spfli-arrtime.
hide: wa_spfli-carrid, wa_spfli-connid.
endloop.
at line-selection.
check not wa_spfli-carrid is initial.
create object exit_ref.
exit_ref1 = exit_ref.
call method exit_ref1->lineselection
EXPORTING
i_carrid = wa_spfli-carrid
i_connid = wa_spfli-connid.
clear wa_spfli.
Rewards somw points if it is helpful,
P.Nag
Rgds,

ME22n-item overview userexit/badi

HI experts,
i need to add some Validations in the ME22n screen for the item overview screen.
could u give me any solution for the above,is there any userexit or badi to do,
thanx in advance
regards,
PPP

run this program and give the tcod..u will get all the user exits and BADIs
*& Report Z_FIND_BADI
REPORT Z_FIND_BADI .
TABLES : TSTC,
TADIR,
MODSAPT,
MODACT,
TRDIR,
TFDIR,
ENLFDIR,
SXS_ATTRT ,
TSTCT.
DATA : JTAB LIKE TADIR OCCURS 0 WITH HEADER LINE.
DATA : FIELD1(30).
DATA : V_DEVCLASS LIKE TADIR-DEVCLASS.
PARAMETERS : P_TCODE LIKE TSTC-TCODE,
P_PGMNA LIKE TSTC-PGMNA .
DATA wa_tadir type tadir.
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.
* Sorting the internal Table
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.
* Get the total SMOD.
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.
do 2 times.
enddo.
Please Close this thread.. when u r problem is solved
Reward if Helpful
Regards
Naresh Reddy K

Genarate BADI Reports

Similar Messages

Maybe you are looking for