GC taking long time when using Concurrent Mark Sweep GC with Sun JDK 150_12

We are having problem of Garbage collection taking too long. We are using Weblogic 9.2 and Sun JDK 150_12
Below are the memory arguments we are using. We are using Concurrent Mark Sweep GC. What we are observing is Young Generation is getting filled up and consequent tenured generation also hangs with long pauses.
Below are the JVM arguments we are using
-Xms2560M -Xmx2560M -Xloggc:${LOGDIR}/gc.log -XX:+PrintGCTimeStamps -XX:+PrintGCDetails -XX:+UseParNewGC -XX:+UseConcMarkSweepGC -XX:+CMSParallelRemarkEnabled -XX:SurvivorRatio=128 -XX:MaxTenuringThreshold=0 -XX:CMSInitiatingOccupancyFraction=60 -XX:NewSize=512m -XX:MaxNewSize=512m -XX:MaxPermSize=256m
I have seen many forums where there are many reported issues with Concurrent Mark Sweep garbage collection with Sun JDK, but with different recommendations. But did not find any defnite recommendation. Please advice.
- - Tarun

Similar Messages

Rag: Query performence - Report taking long time when drill down a Char.

Hi All,
After executing the report when we try to Drilldown PO Char, then the report used to take long time nearly 60 to 90 minutes and thorough an errors that "An error is occurred during loading" or "Connection Timed Out".
The report is created on Multiprovider which is build on 7 infocubes and the data for the PO char is coming from all the 7 cubes.
So we have created Aggregates on the 5 Infocubes based on system proposal.
Then,
We checked in RSRT, the data is coming from all 5 Aggregates and also when we drill down the PO also the data is coming from 5 Aggregates itself.
But,
The report is running fine and also when we drilldown the PO to show all the PO values, then the report showing all the POu2019s details by taking nearly 15 mins only.
Here our concern is why the report is taking 15 mins when we drill a PO char.
Could any one give suggestions please.
Thanks in Adv.
Raju. E

Hi,
please check this list for query performance:
http://sapbwneelam.blogspot.com/2007/10/checklist-for-query-performance.html
Regards
Erwin

Performance issue: stmt.execute() takes a long time when using Oracle objs

Folks,
I have a PL/SQL API that returns a REF CURSOR over an Oracle object that contains other objects. In the JDBC layer, when I do a stmt.execute(), it takes about 1.2s for this statement to run while the execution of the PL/SQL API in the database takes only about 100ms or so. When I connect to a database that is physically located really far away, the delta here increases (perhaps due to the network latency).
I believe it is not as efficient to use Oracle ADTs in conjunction with JDBC. However, not using an Oracle object and replacing that with a bunch of linear arrays is not really an option for me considering the amount of change involved and what a maintenance nightware that would be. At the same time, I need to get this to perform better. Any thoughts?
I suspect that there are a number of network round trips with Oracle objects are involved. If that is infact true, what are my options?
I use Oracle 10g, and the Oracle JDBC thin driver. Thanks.

I have an Oracle object that has say 3 fields - number, number and number_table (indexed table of numbers). Right now, I return a REF CURSOR and do a getObject() in the java layer. But, I want to try and change this so that I return linear arrays (meaning, all these fields are not embedded in an Oracle object). Dont know if that would make things quicker but wanted to check to see if there were other alternatives.
Also, can I define a procedure that returns an OUT parameter which is an indexed table, and then do a registerOutParameter(<index>, OracleTypes.ARRAY)? I tried that but it gives me a PLS-00306 error (wrong number of types of arguments).

How many tabs can I open at a time when using Firefox 3.0.5 with Windows Xp?

I tried to open 25 tabs in one window using firefox 3.0.5 with windows xp. It would only let me open 10. Tabs I added after 10 were added, but tabs at the begining were erased. What do I have to do to open all the tabs that I may need without changing the firefox or windows version? Do I need to open a new browser window for every 10 tabs?

Start Firefox in [[Safe Mode]] to check if one of your add-ons is causing your problem (switch to the DEFAULT theme: Tools > Add-ons > Themes). 
See [[Troubleshooting extensions and themes]] and [[Troubleshooting plugins]] 
 
If it does work in Safe-mode then disable all your extensions and then try to find which is causing it by enabling one at a time until the problem reappears. 
You can use "Disable all add-ons" on the [[Safe mode]] start window to disable all extensions. 
You have to close and restart Firefox after each change via "File > Exit" (Mac: "Firefox > Quit"; Linux: "File > Quit")

Video files taking longer time when uploading using java sdk

Hi,
I am using java APIs for uploading image/video files to azure blob storage.And i see that video files take
much time to get uploaded.On average a 25 MB file takes more than 2 minutes...Is it expected with Java API?Is there any way with azure java APIs to reduce the upload time?
Thanks!

Hi,
>>On average a 25 MB file takes more than 2 minutes
I think the internet connection is a factor, please test the upload speed at:
http://www.azurespeed.com/Azure/Upload
If you want to reduce the upload time, you could try to use the chunk size and concurrent threads.
Best Regards,
Jambor
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.

SSRS Reports taking long time to load

Hello,
Problem : SSRS Reports taking long time to load
My System environment : Visual Studio 2008 SP1 and SQL Server 2008 R2
Production Environment : Visual Studio 2008 SP1 and SQL Server 2008 R2
I have created a Parameterized report (6 parameters), it will fetch data from 1 table. table has 1 year and 6 months data,      I am selecting parameters for only 1 month (about 2500 records). It is taking almost 2 minutes and 30 seconds
to load the report.
This report running efficiently in my system (report load takes only 5 to 6 seconds) but in
production it is taking 2 minutes 30 seconds.
I have checked the Execution log from production so I found the timing for
Data retrieval (approx~)    Processing (approx~)           Rendering (approx~)
10 second                                  15 sec
        2 mins and 5 sec.
But Confusing point is that , if I run the same report at different time overall output time is same (approx) 2 min 30 sec but
Data retrieval (approx~)       Processing (approx~)                Rendering (approx~)
more than 1 min                            15 sec
more than 1 min
so 1 question why timings are different ?
My doubts are
1) If query(procedure to retrieve the data) is the problem then it should take more time always,
2) If Report structure is problem then rendering will also take same time (long time)
for this (2nd point) I checked on blog that Rendering depends on environment structure e.g. Network bandwidth, RAM, CPU Usage , Number of users accessing same report at a time.
So I did testing of report when no other user working on any report But failed (same result output is 2 min 30 sec)
From network team I got the result is that there is no issue or overload in CPU usage or RAM also No issue in Network bandwidth.
Production Database Server and Report server are different (but in same network).
I checked that database server the SQL Server is using almost Full RAM (23 GB out of 24 GB)
I tried to allocate the memory to less amount up to 2GB (Trial solution I got from Blogs) but this on also failed.
one hint I got from colleague that , change the allocated memory setting from static memory to dynamic to SQL Server
(I guess above point is the same) I could not find that option Static and Dynamic memory setting.
I did below steps
Connected to SQL Server Instance
Right click on Instance go to properties, Go to Memory Tab
I found three options 1) Server Memory   2) Other memory   3) Section for "Configured values and Running values"
Then I tried to reduce Maximum Server memory up to 2 GB (As mentioned above)
All trials failed, this issue I could not find the roots for this issue.
Can anyone please help (it's bit urgent).

Hi UdayKGR,
According to your description, your report takes too long to load on your production environment. Right?
In this scenario, since the report runs quickly in developing environment, we initially think it supposed to be the issue on data retrieval. However, based on the information in execution log, it takes longest time on rendering part. So we suggest you optimize
the report itself to reduce the time for rendering. Please refer to the link below:
My report takes too long to render
Here is another article about overall performance optimization for Reporting Services:
Reporting Services Performance and Optimization
If you have any question, please feel free to ask.
Best Regards,
Simon Hou

Update ztable is taking long time

Hi All,
i have run the 5 jobs with the same program at a time but when we check the db trace
zs01 is taking long time as shown below.here zs01 is having small amount of data.
in the below dbtrace for updating zs01 is taking 2,315,485 seconds .how to reduce this?
HH:MM:SS.MS Duration     Program   ObjectName Op.   Curs   Array   Rec     RC     Conn
2:36:15 AM     2,315,485     SAPLZS01 ZS01       FETCH 294     1     1     0     R/3
The code as shown below
you can check the code in the program SAPLZS01 include LZS01F01.
FORM UPDATE_ZS01.
IF ZS02-STATUS = '3'.
    IF Z_ZS02_STATUS = '3'.            "previous status is ERROR
      EXIT.
    ELSE.
      SELECT SINGLE FOR UPDATE * FROM ZS01
             WHERE PROC_NUM    = ZS02-PROC_NUM.
      CHECK SY-SUBRC = 0.
      ADD ZS02-MF_AMT TO ZS01-ERR_AMT.
      ADD 1           TO ZS01-ERR_INVOI.
      UPDATE ZS01.
    ENDIF.
ENDIF.
my question is when updating the ztable why it is taking such long time,
how to reduce the time or how to make faster to update the ztable .
Thanks in advance,
regards
Suni

Try the code like this..
data: wa_zs01 type zs01.
FORM UPDATE_ZS01.
IF ZS02-STATUS = '3'.
    IF Z_ZS02_STATUS = '3'.            "previous status is ERROR
      EXIT.
    ELSE.
      SELECT SINGLE FOR UPDATE * FROM ZS01
             WHERE PROC_NUM    = ZS02-PROC_NUM.
-- change
CHECK SY-SUBRC = 0.
      ADD ZS02-MF_AMT TO wa_ZS01-ERR_AMT.
      ADD 1           TO wa_ZS01-ERR_INVOI.
      UPDATE ZS01 from wa_zs01.
    ENDIF.
ENDIF.
And i think this Select query for ZS01 is inside the ZS02 SELECT statement,
This might also make slow process.
If you want to make database access always use Workarea/Internal table to fetch the data
and work with that.
Accessing database like this or with Select.... endselect is an inefficient programming.

Retry recovery action is taking long time to complete

Hi,
I am in the process of testing error handling for my BPEL process.
As part of it, I have given the default recover action in the fault policy of the process as retry with a retry count of 3 times with retry interval as 2.
To test this, i have changed the target end point uri of the target service to some invalid url and ran the process.
First I was not able to find the BPEL process instance at all in the console.
Later I was able to find the instance after half an hour. When I saw the instance, if retry had happened or not.
I found that the retry happened for 3 times, but it took 30 mins for the first retry to complete and start the second retry.
Can anyone please let me know why the retry is taking long time although the retry interval I gave is only 2 seconds.
THanks in advance!!!!

Hi,
Please find below the fault policy file:
<?xml version="1.0" encoding="UTF-8"?>
<faultPolicy version="2.0.1" id="TestFaultPolicy" xmlns:env="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns="http://schemas.oracle.com/bpel/faultpolicy" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
 <Conditions>
 <faultName>
 <condition>
 <action ref="aia-ora-retry"/>
 </condition>
 </faultName>
 </Conditions>
 <Actions>
 <Action id="aia-ora-retry">
 <retry>
 <retryCount>3</retryCount>
 <retryInterval>2</retryInterval>
 <exponentialBackoff/>
 <retryFailureAction ref="aia-ora-java"/>
 <retrySuccessAction ref="aia-ora-java"/>
 </retry>
 </Action>
 
 <Action id="ora-replay-scope">
 <replayScope/>
 </Action>
 
 <Action id="ora-rethrow-fault">
 <rethrowFault/>
 </Action>
 
 <Action id="ora-human-intervention">
 <humanIntervention/>
 </Action>
 
 <Action id="ora-terminate">
 <abort/>
 </Action>
 <Action id="aia-ora-java">
 <javaAction className="oracle.apps.aia.core.eh.BPELJavaAction" defaultAction="ora-rethrow-fault">
 <returnValue value="REPLAY" ref="ora-terminate"/>
 <returnValue value="RETRHOW" ref="ora-rethrow-fault"/>
 <returnValue value="ABORT" ref="ora-terminate"/>
 <returnValue value="RETRY" ref="aia-ora-retry"/>
 <returnValue value="MANUAL" ref="ora-human-intervention"/>
 </javaAction>
</Action>
 </Actions>
</faultPolicy>

Master Dataload is taking long time to complete

Hi
In last couple of weeks, we are experience the delay for master dataload job. These dataload should take 5-8 minute to complete but it is taking more then 5 hour to complete. here we are using process chain for master dataload.
Any idea? We don't understand where to start to check the root cause of this problem.
Regards
Amar

Hi Freinds
Some update of our master dataload. Still not resolved.
Seem to me, our problem is related to Hierarchy in BW server.It is taking long time to update the hierarchy in BW server. As i told you, problem occur only when loading master dataload. For transaction dataload, no IDOC get stuck in R/3 (NPR) server. There are enough resources in both R/3 and BW server for trfc.
There are total 9 hierarchy in the master dataload that is delaying in the process for update. If you have seen this type of problem for the following hierarchy, pls update me.
A     0ACCOUNT (InfoSource)
     Hierarchy
1     Fin statement vers FSV5
2     Cost Element by fun area
B     0COSTCENTER (InfoSource)
     Hierarchy
3     Mitel Network
4     NA MNS Total
5     CEO
6     Global Support Cost center
C     0COORDER (infosource)
     Hierarchy
7     Total R&D (Ron Wellard)
8     RD YRD1
9     RD YRD2
Regards
Amarjit

This part of query is taking long time to run, its about 40 minutes. Can anyone help wit it.

------Load Dataset into Temp table---------------
SELECT
z.SYSTEMNAME
--,Case when ZXC.[Subsystem Name] <> 'NULL' Then zxc.[SubSystem Name]
--else NULL
--End AS SubSystemName
, CASE
WHEN z.PROV_TAX_ID IN
(SELECT DISTINCT zxc.TIN
FROM dbo.SQS_Provider_Tracking zxc
WHERE zxc.[SubSystem Name] <> 'NULL'
THEN
(SELECT DISTINCT [Subsystem Name]
FROM dbo.SQS_Provider_Tracking zxc
WHERE z.PROV_TAX_ID = zxc.TIN)
End As SubSYSTEMNAME
,z.PROVIDERNAME
,z.STATECODE
,z.PROV_TAX_ID
,z.SRC_PAR_CD
,SUM(z.SEQUEST_AMT) Actual_Sequestered_Amt
, CASE
WHEN z.SRC_PAR_CD IN ('E','O','S','W')
THEN 'Nonpar Waiver'
--**Amendment Mailed**
--WHEN z.PROV_TAX_ID IN
When EXISTS
(SELECT DISTINCT b.PROV_TIN
FROM dbo.SQS_Mailed_TINs_010614 b WITH (NOLOCK )
where not exists (select * from dbo.sqs_objector_TINs t where b.PROV_TIN = t.prov_tin))
THEN
(SELECT DISTINCT b.Mailing
FROM dbo.SQS_Mailed_TINs_010614 b WITH (NOLOCK )
WHERE z.PROV_TAX_ID = b.PROV_TIN
-- --**Amendment Mailed Wave 3 and 4**
--WHEN z.PROV_TAX_ID In
When EXISTS
(SELECT
qz.PROV_TIN
FROM
[SQS_Mailed_TINs] qz WITH (NOLOCK )
where qz.Mailing = 'Amendment Mailed (3rd Wave)'
and not exists (select * from dbo.sqs_objector_TINs t WITH (NOLOCK ) where qz.PROV_TIN = t.prov_tin))
THEN 'Amendment Mailed (3rd Wave)'
WHEN EXISTS
(SELECT
qz.PROV_TIN
FROM
[SQS_Mailed_TINs] qz WITH (NOLOCK )
where qz.Mailing = 'Amendment Mailed (4th Wave)'
and not exists (select * from dbo.sqs_objector_TINs t WITH (NOLOCK ) where qz.PROV_TIN = t.prov_tin))
THEN 'Amendment Mailed (4th Wave)'
-- --Is Puerto Rico of Lifesynch
WHEN EXISTS
(SELECT DISTINCT a.PROV_TAX_ID
FROM PACT.dbo.SQS_NonPar_PR_LS_TINs a WITH (NOLOCK )
WHERE a.Bucket <> 'Nonpar'
THEN
(SELECT DISTINCT a.Bucket
FROM PACT.dbo.SQS_NonPar_PR_LS_TINs a WITH (NOLOCK )
WHERE a.PROV_TAX_ID = z.PROV_TAX_ID)
-- --**Top Objecting Systems**
WHEN z.SYSTEMNAME IN
('ADVENTIST HEALTH SYSTEM','ASCENSION HEALTH ALLIANCE','AULTMAN HEALTH FOUNDATION','BANNER HEALTH SYSTEM','BERT FISH MEDICAL CENTER','BETHESDA MEMORIAL HOSPITAL','BJC HEALTHCARE','BLOUNT MEMORIAL HOSPITAL','BOCA RATON REGIONAL HOSPITAL','CAROMONT HEALTH SYSTEM','CATHOLIC HEALTH INITIATIVES','CATHOLIC HEALTHCARE PARTNERS','CHRISTUS HEALTH',/*'CLEVELAND CLINIC HEALTH SYSTEM',*/'COLUMBUS REGIONAL HEALTHCARE SYSTEM','COMMUNITY HEALTH SYSTEMS, INC','COXHEALTH','HCA','HEALTH MANAGEMENT ASSOCIATES','HUNTSVILLE HOSPITAL HEALTH SYSTEM','INTEGRIS HEALTH','JUPITER MEDICAL CENTER','LEE MEMORIAL HEALTH SYSTEM','MARTIN MEMORIAL HEALTH SYSTEM','MERCY','MT SINAI MEDICAL CENTER (MIAMI)','MUNROE REGIONAL MEDICAL CENTER','NORMAN REGIONAL HEALTH SYSTEM','NORTHSIDE HEALTH SYSTEM','SHANDS HEALTHCARE','SISTERS OF MERCY - SPRINGFIELD, MO','SSM HEALTH CARE','ST LUKES HEALTH SYSTEM','SUMMA HEALTH SYSTEM','SUSQUEHANNA HEALTH SYSTEM','TBD -- TRINITY HEALTH - CATHOLIC HEALTH EAST','UNIVERSITY OF MISSOURI HEALTH SYSTEM','UNIVERSITY OF NEW MEXICO HOSPITALS','UNIVERSITY OF UTAH HEALTH CARE')
THEN 'Top Objecting Systems'
WHEN EXISTS
(SELECT
h.PROV_TAX_ID
FROM
#HIHO_Records h
INNER JOIN SQS_Provider_Tracking obj WITH (NOLOCK )
ON h.PROV_TAX_ID = obj.TIN
AND obj.[Objector?] = 'Top Objector'
WHERE z.PROV_TAX_ID = h.PROV_TAX_ID
OR h.SMG_ID IS NOT NULL
)and z.LCLM_RSTMT_TREND_CAT_CD IN ('HO','HI')
THEN 'Top Objecting Systems'
-- --**Other Objecting Hospitals**
WHEN EXISTS
(SELECT
h.PROV_TAX_ID
FROM
#HIHO_Records h
INNER JOIN SQS_Provider_Tracking obj WITH (NOLOCK )
ON h.PROV_TAX_ID = obj.TIN
AND obj.[Objector?] = 'Objector'
WHERE z.PROV_TAX_ID = h.PROV_TAX_ID
OR h.SMG_ID IS NOT NULL
)and z.LCLM_RSTMT_TREND_CAT_CD IN ('HO','HI')
THEN 'Other Objecting Hospitals'
-- --**Objecting Physicians**
WHEN EXISTS
(SELECT z.PROV_TAX_ID
FROM SQS_EDW_Source z WITH (NOLOCK)
WHERE EXISTS
(SELECT DISTINCT
obj.TIN
FROM SQS_Provider_Tracking obj WITH (NOLOCK )
WHERE obj.[Objector?] in ('Objector','Top Objector')
and z.PROV_TAX_ID = obj.TIN
and z.LCLM_RSTMT_TREND_CAT_CD not IN ('HO','HI')
THEN 'Objecting Physicians'
--****Rejecting Hospitals****
WHEN EXISTS
(SELECT
h.PROV_TAX_ID
FROM
#HIHO_Records h
INNER JOIN SQS_Provider_Tracking obj WITH (NOLOCK )
ON h.PROV_TAX_ID = obj.TIN
AND obj.[Objector?] = 'Rejector'
WHERE z.PROV_TAX_ID = h.PROV_TAX_ID
OR h.SMG_ID IS NOT NULL
)and z.LCLM_RSTMT_TREND_CAT_CD IN ('HO','HI')
THEN 'Rejecting Hospitals'
--****Rejecting Physciains****
WHEN EXISTS
(SELECT obj.TIN
FROM SQS_Provider_Tracking obj WITH (NOLOCK )
WHERE z.PROV_TAX_ID = obj.TIN
AND obj.[Objector?] = 'Rejector')
and z.LCLM_RSTMT_TREND_CAT_CD NOT IN ('HO','HI')
THEN 'REjecting Physicians'
----**********ALL OBJECTORS SHOULD HAVE BEEN BUCKETED AT THIS POINT IN THE QUERY**********
-- --**Non-Objecting Hospitals**
WHEN EXISTS
(SELECT DISTINCT
h.PROV_TAX_ID
FROM
#HIHO_Records h WITH (NOLOCK )
WHERE
(z.PROV_TAX_ID = h.PROV_TAX_ID)
OR h.SMG_ID IS NOT NULL
)and z.LCLM_RSTMT_TREND_CAT_CD IN ('HO','HI')
THEN 'Non-Objecting Hospitals'
-- **Outstanding Contracts for Review**
WHEN EXISTS
(SELECT qz.PROV_TIN
FROM
[PACT].[HUMAD\ARS3766].[SQS_Mailed_TINs] qz WITH (NOLOCK )
where qz.Mailing = 'Non-Objecting Bilateral Physicians'
AND z.PROV_TAX_ID = qz.PROV_TIN)
Then 'Non-Objecting Bilateral Physicians'
When EXISTS
(select
p.prov_tax_id
from dbo.SQS_CoC_Potential_Mail_List p WITH (NOLOCK )
where p.amendmentrights <> 'Unilateral'
AND z.prov_tax_id = p.prov_tax_id)
THEN 'Non-Objecting Bilateral Physicians'
WHEN EXISTS
(SELECT
qz.PROV_TIN
FROM
[SQS_Mailed_TINs] qz WITH (NOLOCK )
where qz.Mailing = 'More Research Needed'
AND qz.PROV_TIN = z.PROV_TAX_ID)
THEN 'More Research Needed'
WHEN EXISTS (SELECT qz.PROV_TIN FROM [SQS_Mailed_TINs] qz WITH (NOLOCK ) where qz.Mailing = 'Objector' AND qz.PROV_TIN = z.PROV_TAX_ID)
THEN 'ERROR'
else 'Market Review/Preparing to Mail'
END AS [Updated Bucket]
,COALESCE(q.INDdesc, f.IND_desc) AS INDdesc
,f.Time_Period_for_Dispute
,f.Renew_Term_Ind
,f.Renewal_Date
,z.SMG_ID
,'' AS OrderedRank
INTO SQS_Bucketed_Details_SMG_on_SMGXXX
From #SQS_EDW_SOURCE_WithSMG z
left join #F f ON f.PROV_TAX_ID = z.PROV_TAX_ID
AND z.SYSTEMNAME = f.SYSTEM_NAME
AND z.PROVIDERNAME = f.Provider
Left join #Q q ON z.PROV_TAX_ID = q.TIN
GROUP BY z.SYSTEMNAME
--,Z.[SubsystemName]
,z.PROVIDERNAME
,z.STATECODE
,z.PROV_TAX_ID
,z.SRC_PAR_CD
,q.INDdesc
,f.IND_Desc
,f.Time_Period_for_Dispute
,f.Renew_Term_Ind
,f.Renewal_Date
,z.SMG_ID
,z.LCLM_RSTMT_TREND_CAT_CD
As I am a developer I do not have the access to Sql profiler or tuning agent to optimize my query, I have used some joins over the temp table #HIHO which indeed pulling the records from table EDW_Source which has 5 million records, I also added Non clustered
indexes on prov_ID, SMG_ID and Incurred month for this table, but still it is taking longer time. Need help

Hi, It needs some more tweaks but pls try this one
USE
Go
--****Create sqs_objector_TINs (Objections and Rejections)****
--Drop table .dbo.sqs_objector_TINs
select distinct a.TIN as Prov_TIN
Into #sqs_objector_TINs
from .dbo.sqs_provider_tracking as a with (nolock)
where a.[Objector?] in ('Top Objector','Objector','Rejector')
/*********** Query for SQS_TINtoSyst***********/
--DROP TABLE .dbo.SQS_TINtoSystem
select distinct
b.SRC_PROV_ID
--,case
-- when a.SYSTEM_NAME is null
-- then
-- case
-- when a.CTRCT_GRP_NAME is null
-- then a.PROV_SMG_NAME
-- else a.CTRCT_GRP_NAME
-- end
-- else a.SYSTEM_NAME
--end as SYSTEM_NAME
,COALESCE(a.SYSTEM_NAME, a.CTRCT_GRP_NAME, a.PROV_SMG_NAME) AS SYSTEM_NAME
INTO #SQS_TINtoSystem
from
PARE.dbo.EDW_PROD_HOSPITAL_MASTER a with (nolock)
Inner Join PARE.dbo.EDW_PROD_HOSPITAL_ID_XREF b with (nolock)
on a.SMG_ID = b.SMG_ID
-- Inner Join .dbo.SQS_EDW_Source q
--on b.SRC_PROV_ID = q.PROV_TAX_ID
where b.SRC_PLATFORM_CD = 'TX'
and exists
select
SMG_ID
from PARE.dbo.EDW_PROD_HOSPITAL_ID_XREF as t1 with (nolock)
where SRC_PLATFORM_CD = 'TX'
and exists (select q.PROV_TAX_ID from .dbo.SQS_EDW_Source q with (nolock) where q.PROV_TAX_ID = b.SRC_PROV_ID)
and a.SMG_ID = t1.SMG_ID
/************** Query for SQS_Bucketed_Details_SMG*****************/
DROP TABLE .dbo.SQS_Bucketed_Details_SMG
--Create temp table
SELECT z.SYSTEMNAME
,Z.PROV_TAX_ID
,z.PROVIDERNAME
,z.STATECODE
,z.SRC_PAR_CD
,z.SEQUEST_AMT
,case when Z.LCLM_RSTMT_TREND_CAT_CD IN ('HI','HO') Then 'H' else 'P' end as Hosp_Ind
,Z.SMG_ID
INTO #SQS_EDW_SOURCE_WithSMG
FROM dbo.SQS_EDW_SOURCE_WithSMG z with (nolock)
WHERE (Z.Incurred_Mth >= convert(datetime,'01/01/2013')) and (Z.Incurred_Mth < convert(datetime, '1/1/2014'))
--between convert(datetime,'01/01/2013') and convert(datetime, '12/31/2013 23:59:59.996')
--YEAR(Z.Incurred_Mth)=2013
-- Create Temp table Q
select
x.TIN,
case when max(x.IND) = 'NYN'
then 'Standard'
when max(x.IND) = 'YNN'
then 'Express'
when max(x.IND) = 'NNY'
then 'Non_Standard' else 'Mixed'
end as INDdesc
Into #Q
FROM
(SELECT
a.tin,
MAX(a.express) + MAX(a.StandardInd) + MAX(NonstandardIND) as IND
from
(select r.TIN,
case when MAX(r.Express) like 'Y%' then 'Y' else 'N' end As Express,
case when MAX(r.Standard) = 'Y' then 'Y' else 'N' end As StandardInd,
case when MAX(r.[Non-Standard]) = 'Y' then 'Y' else 'N' end AS NonstandardIND
FROM DBO.SQS_Objectors_01032014 r with (nolock)
GROUP BY r.TIN) a
group by a.TIN) x
group by x.TIN
--Create Temp table F
Select *
INTO #F
FROM(
SELECT distinct g.prov_tax_id
,g.system_name
,g.provider
,case when g.reimburse_mixed = 'Y' then 'Mixed'
when g.reimburse_express = 'Y' then 'Express'
when g.reimburse_standard = 'Y' then 'Standard'
when g.reimburse_NonStandard = 'Y' then 'NonStandard'
end as IND_Desc
,g.Time_Period_for_Dispute
,case when g.Renewal_Date = 'N' and g.Expiration_Date = 'N'
then 'Unclear'
when g.Renewal_Date = 'N' and g.Expiration_Date <> 'N'
then 'Termination'
when g.Renewal_Date <> 'N' and g.Expiration_Date = 'N'
then 'Evergreen'
when g.Renewal_Date <> 'N' and g.Expiration_Date <> 'N'
then 'Termination'
else 'Unknown'
end as 'Renew_Term_Ind'
,g.Renewal_Date
FROM
(select distinct
bb.PROV_TAX_ID1 as prov_tax_id
,aa.*
from
[dbo].[Top_600_Hospitals3] aa with (nolock)
left join pare.dbo.EDW_PROD_HOSPITAL_MASTER bb with (nolock)
on --a.CTRCT_GRP_NAME = b.CTRCT_GRP_NAME
aa.Provider = bb.PROV_SMG_NAME
-- and (a.SYSTEM_NAME = b.SMG_SYS_NAME or a.SYSTEM_NAME = b.SYSTEM_NAME)
--and a.ADDR_LINE1 = b.ADDR_LINE1
and aa.STATE_CD = bb.STATE_CD
--and a.ZIP_CD = b.ZIP_CD
and aa.City1 = bb.CITY_NAME
where aa.SYSTEM_NAME <> 'SEE ABOVE') g
where g.system_name <> 'SEE ABOVE') h
where h.ind_Desc is not null
SELECT DISTINCT z.PROV_TAX_ID
, z.SMG_ID
INTO #HIHO_Records
FROM SQS_EDW_SOURCE_WithSMG z with (nolock)
WHERE z.LCLM_RSTMT_TREND_CAT_CD IN ('HO', 'HI')
AND Z.Incurred_Mth >=convert(datetime, '1/1/2013') and Z.Incurred_Mth <convert(datetime, '1/1/2014')
--YEAR(Z.Incurred_Mth)=2013
---------------------------------Load Dataset into Temp table---------------
SELECT
z.SYSTEMNAME
--,Case when ZXC.[Subsystem Name] <> 'NULL' Then zxc.[SubSystem Name]
--else NULL
--End AS SubSystemName
, CASE
WHEN z.PROV_TAX_ID IN
(SELECT zxc.TIN
FROM dbo.SQS_Provider_Tracking zxc with (nolock)
WHERE zxc.[SubSystem Name] <> 'NULL'
THEN
(SELECT top 1 [Subsystem Name]
FROM dbo.SQS_Provider_Tracking zxc with (nolock)
WHERE z.PROV_TAX_ID = zxc.TIN)
End As SubSYSTEMNAME
,z.PROVIDERNAME
,z.STATECODE
,z.PROV_TAX_ID
,z.SRC_PAR_CD
,SUM(z.SEQUEST_AMT) Actual_Sequestered_Amt
, CASE
WHEN z.SRC_PAR_CD IN ('E','O','S','W')
THEN 'Nonpar Waiver'
-- --Is Puerto Rico of Lifesynch
WHEN z.PROV_TAX_ID IN
(SELECT a.PROV_TAX_ID
FROM .dbo.SQS_NonPar_PR_LS_TINs a with (nolock)
WHERE a.Bucket <> 'Nonpar'
THEN
(SELECT top 1 a.Bucket
FROM .dbo.SQS_NonPar_PR_LS_TINs a with (nolock)
WHERE a.PROV_TAX_ID = z.PROV_TAX_ID)
--**Amendment Mailed**
WHEN z.PROV_TAX_ID IN
(SELECT b.PROV_TIN
FROM dbo.SQS_Mailed_TINs_010614 b WITH (NOLOCK )
where not exists (select * from dbo.sqs_objector_TINs t with (nolock) where b.PROV_TIN = t.prov_tin))
and z.Hosp_Ind = 'P'
THEN
(SELECT top 1 b.Mailing
FROM dbo.SQS_Mailed_TINs_010614 b with (nolock)
WHERE z.PROV_TAX_ID = b.PROV_TIN
-- --**Amendment Mailed Wave 3-5**
WHEN z.PROV_TAX_ID In
(SELECT
qz.PROV_TIN
FROM
[SQS_Mailed_TINs] qz
where qz.Mailing = 'Amendment Mailed (3rd Wave)'
and not exists (select * from dbo.sqs_objector_TINs t with (nolock) where qz.PROV_TIN = t.prov_tin))
and z.Hosp_Ind = 'P'
THEN 'Amendment Mailed (3rd Wave)'
WHEN z.PROV_TAX_ID IN
(SELECT
qz.PROV_TIN
FROM
[SQS_Mailed_TINs] qz
where qz.Mailing = 'Amendment Mailed (4th Wave)'
and not exists (select * from dbo.sqs_objector_TINs t with (nolock) where qz.PROV_TIN = t.prov_tin))
and z.Hosp_Ind = 'P'
THEN 'Amendment Mailed (4th Wave)'
WHEN z.PROV_TAX_ID IN
(SELECT
qz.PROV_TIN
FROM
[SQS_Mailed_TINs] qz
where qz.Mailing = 'Amendment Mailed (5th Wave)'
and not exists (select * from dbo.sqs_objector_TINs t with (nolock) where qz.PROV_TIN = t.prov_tin))
and z.Hosp_Ind = 'P'
THEN 'Amendment Mailed (5th Wave)'
-- --**Top Objecting Systems**
WHEN z.SYSTEMNAME IN
('ADVENTIST HEALTH SYSTEM','ASCENSION HEALTH ALLIANCE','AULTMAN HEALTH FOUNDATION')
THEN 'Top Objecting Systems'
WHEN z.PROV_TAX_ID IN
(SELECT
h.PROV_TAX_ID
FROM
#HIHO_Records h
INNER JOIN .dbo.SQS_Provider_Tracking obj with (nolock)
ON h.PROV_TAX_ID = obj.TIN
AND obj.[Objector?] = 'Top Objector'
WHERE z.PROV_TAX_ID = h.PROV_TAX_ID
OR h.SMG_ID IS NOT NULL
)and z.Hosp_Ind = 'H'
THEN 'Top Objecting Systems'
-- --**Other Objecting Hospitals**
WHEN (z.PROV_TAX_ID IN
(SELECT
h.PROV_TAX_ID
FROM
#HIHO_Records h
INNER JOIN .dbo.SQS_Provider_Tracking obj with (nolock)
ON h.PROV_TAX_ID = obj.TIN
AND obj.[Objector?] = 'Objector'
WHERE z.PROV_TAX_ID = h.PROV_TAX_ID
OR h.SMG_ID IS NOT NULL
)and z.Hosp_Ind = 'H')
THEN 'Other Objecting Hospitals'
-- --**Objecting Physicians**
WHEN (z.PROV_TAX_ID IN
(SELECT
obj.TIN
FROM .dbo.SQS_Provider_Tracking obj with (nolock)
WHERE obj.[Objector?] in ('Objector','Top Objector')
and z.PROV_TAX_ID = obj.TIN
and z.Hosp_Ind = 'P')
THEN 'Objecting Physicians'
--****Rejecting Hospitals****
WHEN (z.PROV_TAX_ID IN
(SELECT
h.PROV_TAX_ID
FROM
#HIHO_Records h
INNER JOIN .dbo.SQS_Provider_Tracking obj with (nolock)
ON h.PROV_TAX_ID = obj.TIN
AND obj.[Objector?] = 'Rejector'
WHERE z.PROV_TAX_ID = h.PROV_TAX_ID
OR h.SMG_ID IS NOT NULL
)and z.Hosp_Ind = 'H')
THEN 'Rejecting Hospitals'
--****Rejecting Physciains****
WHEN
(z.PROV_TAX_ID IN
(SELECT
obj.TIN
FROM .dbo.SQS_Provider_Tracking obj with (nolock)
WHERE z.PROV_TAX_ID = obj.TIN
AND obj.[Objector?] = 'Rejector')
and z.Hosp_Ind = 'P')
THEN 'REjecting Physicians'
----**********ALL OBJECTORS SHOULD HAVE BEEN BUCKETED AT THIS POINT IN THE QUERY**********
-- --**Non-Objecting Hospitals**
WHEN z.PROV_TAX_ID IN
(SELECT
h.PROV_TAX_ID
FROM
#HIHO_Records h
WHERE
(z.PROV_TAX_ID = h.PROV_TAX_ID)
OR h.SMG_ID IS NOT NULL)
and z.Hosp_Ind = 'H'
THEN 'Non-Objecting Hospitals'
-- **Outstanding Contracts for Review**
WHEN z.PROV_TAX_ID IN
(SELECT
qz.PROV_TIN
FROM
[SQS_Mailed_TINs] qz with (nolock)
where qz.Mailing = 'Non-Objecting Bilateral Physicians'
AND z.PROV_TAX_ID = qz.PROV_TIN)
Then 'Non-Objecting Bilateral Physicians'
When z.prov_tax_id in
(select
p.prov_tax_id
from dbo.SQS_CoC_Potential_Mail_List p with (nolock)
where p.amendmentrights <> 'Unilateral'
AND z.prov_tax_id = p.prov_tax_id)
THEN 'Non-Objecting Bilateral Physicians'
WHEN z.PROV_TAX_ID IN
(SELECT
qz.PROV_TIN
FROM
[SQS_Mailed_TINs] qz
where qz.Mailing = 'More Research Needed'
AND qz.PROV_TIN = z.PROV_TAX_ID)
THEN 'More Research Needed'
WHEN z.PROV_TAX_ID IN (SELECT qz.PROV_TIN FROM [SQS_Mailed_TINs] qz with (nolock) where qz.Mailing = 'Objector' AND qz.PROV_TIN = z.PROV_TAX_ID)
THEN 'ERROR'
else 'Market Review/Preparing to Mail'
END AS [Updated Bucket]
,COALESCE(q.INDdesc, f.IND_desc) AS INDdesc
,f.Time_Period_for_Dispute
,f.Renew_Term_Ind
,f.Renewal_Date
,z.SMG_ID
,'' AS OrderedRank
INTO dbo.SQS_Bucketed_Details_SMG with (nolock)
From #SQS_EDW_SOURCE_WithSMG z
left join #F f ON f.PROV_TAX_ID = z.PROV_TAX_ID
AND z.SYSTEMNAME = f.SYSTEM_NAME
AND z.PROVIDERNAME = f.Provider
Left join #Q q ON z.PROV_TAX_ID = q.TIN
GROUP BY z.SYSTEMNAME
--,Z.[SubsystemName]
,z.PROVIDERNAME
,z.STATECODE
,z.PROV_TAX_ID
,z.SRC_PAR_CD
,q.INDdesc
,f.IND_Desc
,f.Time_Period_for_Dispute
,f.Renew_Term_Ind
,f.Renewal_Date
,z.SMG_ID
,z.Hosp_Ind
/************************** Drop temp tables*********************/
--DROP TABLE #SQS_EDW_SOURCE_WithSMG
--DROP TABLE #Q
--DROP TABLE #F
--DROP TABLE #HIHO_Records
--DROP TABLE #SQS_TINtoSystem
--DROP TABLE #SQS_EDW_SOURCE_WithSMG
--DROP TABLE #sqs_objector_TINs

Report Taking long time in QA system

Gurus,
I have developed a report which works fine in dev.Though in QA system its performance is not okay.Please go through th ecode and help me through.
TABLES: REGUH,BSAK,BSIS,LFA1,LFB1,BSAS.
**** Internal table declaration starts.
*** To Store Vendor clearing Document.
*** Internal table for credit card sub total.
DATA : BEGIN OF I_BSAK OCCURS 0,
 XBLNR LIKE BSAK-XBLNR,
 LIFNR LIKE REGUH-LIFNR,
 PRCTR LIKE BSEG-PRCTR,
 NAME1 LIKE LFA1-NAME1,
 AUGDT LIKE BSAK-AUGDT,
 AUGBL LIKE BSAK-AUGBL,
 XBLNR1 LIKE BSAK-XBLNR,
 GJAHR LIKE BSAK-GJAHR,
 BELNR LIKE BSAK-BELNR,
 BLDAT LIKE BSAK-BLDAT,
 BLART LIKE BSAK-BLART,
 SHKZG LIKE BSAK-SHKZG,
 DMBTR LIKE BSAK-DMBTR,
 AUGGJ LIKE BSAK-AUGGJ,
 CPUDT LIKE BSAK-CPUDT,
 LAUFD LIKE REGUH-LAUFD,
 KTOKK LIKE LFA1-KTOKK,
 RWBTR LIKE REGUH-RWBTR,
 VBLNR LIKE REGUH-VBLNR,
 HKONT LIKE BSEG-HKONT,
 END OF I_BSAK.
*** Internal table for Vendor sub total.
DATA : BEGIN OF I_BSAK_LIFNR OCCURS 0,
 LIFNR LIKE REGUH-LIFNR,
 XBLNR LIKE BSAK-XBLNR,
 PRCTR LIKE BSEG-PRCTR,
 NAME1 LIKE LFA1-NAME1,
 AUGDT LIKE BSAK-AUGDT,
 AUGBL LIKE BSAK-AUGBL,
 XBLNR1 LIKE BSAK-XBLNR,
 GJAHR LIKE BSAK-GJAHR,
 BELNR LIKE BSAK-BELNR,
 BLDAT LIKE BSAK-BLDAT,
 BLART LIKE BSAK-BLART,
 SHKZG LIKE BSAK-SHKZG,
 DMBTR LIKE BSAK-DMBTR,
 AUGGJ LIKE BSAK-AUGGJ,
 CPUDT LIKE BSAK-CPUDT,
 LAUFD LIKE REGUH-LAUFD,
 KTOKK LIKE LFA1-KTOKK,
 RWBTR LIKE REGUH-RWBTR,
 VBLNR LIKE REGUH-VBLNR,
 HKONT LIKE BSEG-HKONT,
 END OF I_BSAK_LIFNR.
*** Internal table for Profit center sub total.
DATA : BEGIN OF I_BSAK_PRCTR OCCURS 0,
 PRCTR LIKE BSEG-PRCTR,
 BELNR LIKE BSAK-BELNR,
 GJAHR LIKE BSAK-GJAHR,
 LIFNR LIKE REGUH-LIFNR,
 XBLNR LIKE BSAK-XBLNR,
 HKONT LIKE BSEG-HKONT,
 NAME1 LIKE LFA1-NAME1,
 AUGDT LIKE BSAK-AUGDT,
 AUGBL LIKE BSAK-AUGBL,
 XBLNR1 LIKE BSAK-XBLNR,
 BLDAT LIKE BSAK-BLDAT,
 BLART LIKE BSAK-BLART,
 SHKZG LIKE BSAK-SHKZG,
 DMBTR LIKE BSAK-DMBTR,
 AUGGJ LIKE BSAK-AUGGJ,
 CPUDT LIKE BSAK-CPUDT,
 LAUFD LIKE REGUH-LAUFD,
 KTOKK LIKE LFA1-KTOKK,
 RWBTR LIKE REGUH-RWBTR,
 VBLNR LIKE REGUH-VBLNR,
 END OF I_BSAK_PRCTR.
*** Work area for sub totals.
DATA: WA LIKE I_BSAK.
DATA : I_BSAK_INIT LIKE I_BSAK OCCURS 0 WITH HEADER LINE.
*** To store line item.
DATA : BEGIN OF I_BSEG OCCURS 0,
 BELNR LIKE BSEG-BELNR,
 GJAHR LIKE BSEG-GJAHR,
 BUZEI LIKE BSEG-BUZEI,
 HKONT LIKE BSEG-HKONT,
 SHKZG LIKE BSEG-SHKZG,
 DMBTR LIKE BSEG-DMBTR,
 PRCTR LIKE BSEG-PRCTR,
 LIFNR LIKE REGUH-LIFNR,
 AUGDT LIKE BSAK-AUGDT,
 AUGBL LIKE BSAK-AUGBL,
 XBLNR LIKE BSAK-XBLNR,
 XBLNR1 LIKE BSAK-XBLNR,
 BLDAT LIKE BSAK-BLDAT,
 BLART LIKE BSAK-BLART,
 NAME1 LIKE LFA1-NAME1,
 END OF I_BSEG.
DATA : BEGIN OF I_BSEG_COPY OCCURS 0,
 PRCTR LIKE BSEG-PRCTR,
 BELNR LIKE BSEG-BELNR,
 GJAHR LIKE BSEG-GJAHR,
 BUZEI LIKE BSEG-BUZEI,
 HKONT LIKE BSEG-HKONT,
 SHKZG LIKE BSEG-SHKZG,
 DMBTR LIKE BSEG-DMBTR,
 LIFNR LIKE REGUH-LIFNR,
 AUGDT LIKE BSAK-AUGDT,
 AUGBL LIKE BSAK-AUGBL,
 XBLNR LIKE BSAK-XBLNR,
 XBLNR1 LIKE BSAK-XBLNR,
 BLDAT LIKE BSAK-BLDAT,
 BLART LIKE BSAK-BLART,
 NAME1 LIKE LFA1-NAME1,
 END OF I_BSEG_COPY.
*** To store GL account name
DATA: BEGIN OF I_SKAT OCCURS 0,
 SAKNR LIKE SKAT-SAKNR,
 TXT50 LIKE SKAT-TXT50,
 END OF I_SKAT.
*** To store Vendor detail
DATA: BEGIN OF I_LFA1 OCCURS 0,
 LIFNR LIKE LFA1-LIFNR,
 NAME1 LIKE LFA1-NAME1,
 KTOKK LIKE LFA1-KTOKK,
 END OF I_LFA1.
DATA: I_INACT TYPE TABLE OF SY-UCOMM.
*** End of Internal table declaration.
*** Constant for company code
CONSTANTS : C_BUKRS(4) VALUE '0010'.
*** Data declaration.
DATA: FR_LAUFDT LIKE REGUH-LAUFD,
 TO_LAUFDT LIKE REGUH-LAUFD,
 COL,
 HEADING(80),
 HEADING1(10),
 HEADING2(80),
 AUTH_RESTRICT,
 G_DETAIL,
 G_SORTV,
 G_SORTP,
 G_SORTC,
 G_FLAG,
 V_XBLNR LIKE BSAK-XBLNR,
 V_UCOMM LIKE SY-UCOMM,
 V_AUGBL LIKE BSAS-AUGBL,
 V_BELNR LIKE BSAS-BELNR.
DATA : BEGIN OF I_SEL OCCURS 0 ,
 AUGBL LIKE BSAK-AUGBL,
 END OF I_SEL.
DATA: PROGNAME TYPE SY-REPID,
 DYNNUM TYPE SY-DYNNR,
 DYNPRO_VALUES TYPE TABLE OF DYNPREAD,
 FIELD_VALUE LIKE LINE OF DYNPRO_VALUES,
 VALUES_TAB LIKE I_SEL OCCURS 0 WITH HEADER LINE.
DATA : RETURN_TAB LIKE DDSHRETVAL OCCURS 0 WITH HEADER LINE.
*** Selection screen.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(30) TXT_PD FOR FIELD P_LAUFDF.
SELECTION-SCREEN POSITION POS_LOW.
PARAMETERS P_LAUFDF LIKE REGUH-LAUFD OBLIGATORY.
SELECTION-SCREEN COMMENT 52(5) TXT_TO FOR FIELD P_LAUFDT.
SELECTION-SCREEN POSITION POS_HIGH.
PARAMETERS P_LAUFDT LIKE REGUH-LAUFD.
SELECTION-SCREEN END OF LINE.
SELECT-OPTIONS: S_KTOKK FOR LFA1-KTOKK.
PARAMETERS: P_RWBTR LIKE REGUH-RWBTR.
SELECT-OPTIONS: S_LIFNR FOR REGUH-LIFNR.
* S_XBLNR FOR BSAK-XBLNR MATCHCODE OBJECT ZXBLNR.
**** Added By Rajesh On 17 OCT 08 (DEVK914797) ****
SELECT-OPTIONS: S_BELNR FOR BSAK-BELNR.
**** End of Addition By Rajesh *****
*** Added By Samir On 04 Sep 08 (DEVK914623) ***
SELECTION-SCREEN SKIP.
PARAMETERS: CHK_REC AS CHECKBOX.
*** End Of Addition By Samir ***
SELECTION-SCREEN END OF BLOCK B1.
*** Initialization.
INITIALIZATION.
TXT_PD = 'Payment Date'.
TXT_TO = 'to' .
G_SORTC = 'X'.
*** At selection-screen.
AT SELECTION-SCREEN.
FR_LAUFDT = P_LAUFDF.
IF P_LAUFDT IS INITIAL.
 TO_LAUFDT = FR_LAUFDT.
ELSE.
 IF P_LAUFDT LT P_LAUFDF.
 MESSAGE E000(ZMSG) WITH 'To Date is less than From date'.
 ENDIF.
 TO_LAUFDT = P_LAUFDT.
ENDIF.
*** Heading.
WRITE FR_LAUFDT TO HEADING1.
WRITE TO_LAUFDT TO HEADING2.
IF HEADING1 <> HEADING2.
 CONCATENATE 'Vendor Credit Card(s) Report for the Payment Date'
 HEADING1 'To' HEADING2 INTO HEADING2 SEPARATED BY SPACE.
ELSE.
 CONCATENATE 'Vendor Credit Card(s) Report for the Payment Date'
 HEADING1 INTO HEADING2 SEPARATED BY SPACE.
ENDIF.
*** Start of selection.
START-OF-SELECTION.
G_DETAIL = 'X'.
PERFORM GET_DATA.
PERFORM MODIFY_ITAB. "Process and for authority check.
*** Added By Samir On 04 Sep 08 (DEVK914623) ***
**** Changed By Rajesh On 17 OCT 08 (DEVK914797) ****
IF CHK_REC = 'X'.
 LOOP AT I_BSAK.
 SELECT SINGLE BELNR
 INTO V_BELNR
 FROM BSAS
 WHERE BUKRS = C_BUKRS
 AND HKONT = '0000002012'
 AND BELNR = I_BSAK-AUGBL
 AND BUDAT = I_BSAK-AUGDT
 AND BELNR IN S_BELNR. " For displaying only reconciled items.
**** End of Addition By Rajesh *****
 IF SY-SUBRC <> 0.
 DELETE I_BSAK.
 ENDIF.
 ENDLOOP.
ENDIF.
*** End Of Addition By Samir ***
LOOP AT I_BSAK.
 MOVE-CORRESPONDING I_BSAK TO: I_BSAK_LIFNR.
 APPEND: I_BSAK_LIFNR.
 CLEAR: I_BSAK_LIFNR.
ENDLOOP.
LOOP AT I_BSAK.
 MOVE-CORRESPONDING I_BSAK TO: I_BSAK_PRCTR.
 READ TABLE I_BSEG WITH KEY BELNR = I_BSAK-BELNR.
 I_BSAK_PRCTR-HKONT = I_BSEG-HKONT.
 APPEND: I_BSAK_PRCTR.
 CLEAR: I_BSAK_PRCTR.
ENDLOOP.
*loop at i_bseg.
* MOVE-CORRESPONDING I_BSAK TO: I_BSAK_PRCTR.
*endloop.
*perform write_data.
PERFORM DISPLAY_OUTPUT.
AT USER-COMMAND.
CASE SY-UCOMM.
 WHEN 'EXPA'.
 G_DETAIL = 'X'.
 WHEN 'COLL'.
 CLEAR G_DETAIL.
 WHEN 'SORTV'.
 CLEAR: V_UCOMM.
 V_UCOMM = 'SORTV'.
 G_SORTV = 'X'.
 CLEAR G_SORTP.
 CLEAR G_SORTC.
 WHEN 'SORTC'.
 CLEAR: V_UCOMM.
 V_UCOMM = 'SORTC'.
 CLEAR G_SORTV.
 CLEAR G_SORTP.
 G_SORTC = 'X'.
 WHEN 'SORTP'.
 CLEAR: V_UCOMM.
 V_UCOMM = 'SORTP'.
 CLEAR G_SORTV.
 CLEAR G_SORTC.
 G_SORTP = 'X'.
ENDCASE.
PERFORM DISPLAY_OUTPUT.
*perform write_data.
*** To get the header text in the output.
TOP-OF-PAGE.
PERFORM TOP_OF_PAGE.
TOP-OF-PAGE DURING LINE-SELECTION.
PERFORM TOP_OF_PAGE.
*& Form GET_DATA
* text
* --> p1 text
* <-- p2 text
FORM GET_DATA .
SY-LSIND = 0.
P_RWBTR = P_RWBTR * -1.
REFRESH I_BSAK_INIT.
CLEAR I_BSAK_INIT.
SELECT A~LIFNR A~LAUFD A~VBLNR A~RWBTR
 B~KTOKK B~NAME1
 FROM REGUH AS A INNER JOIN LFA1 AS B
 ON A~LIFNR = B~LIFNR
 INTO CORRESPONDING FIELDS OF TABLE I_BSAK_INIT
 WHERE A~LAUFD BETWEEN FR_LAUFDT AND TO_LAUFDT AND
 A~XVORL <> 'X' AND
 A~ZBUKR = C_BUKRS AND
 A~LIFNR IN S_LIFNR AND
 A~RZAWE = 'X' AND
 A~RWBTR LE P_RWBTR AND
 B~KTOKK IN S_KTOKK.
IF SY-SUBRC <> 0.
 MESSAGE 'Records Not Found' TYPE 'I'.
 LEAVE LIST-PROCESSING.
ENDIF.
*---------------------PERFORMANCE ISSUE--------------------------
delete adjacent duplicates from i_bsak_init.
IF NOT I_BSAK_INIT[] IS INITIAL.
 SELECT LIFNR AUGDT AUGBL GJAHR BELNR CPUDT BLDAT XBLNR
 BLART SHKZG DMBTR AUGGJ
 FROM BSAK
 INTO CORRESPONDING FIELDS OF TABLE I_BSAK
 FOR ALL ENTRIES IN I_BSAK_INIT
 WHERE BUKRS = C_BUKRS AND
 AUGBL = I_BSAK_INIT-VBLNR AND
 XZAHL <> 'X'.
ENDIF.
*** Selecting all line item records from BSEG table.
IF I_BSAK[] IS NOT INITIAL.
 SELECT BELNR GJAHR BUZEI HKONT SHKZG DMBTR PRCTR
 FROM BSEG
 INTO CORRESPONDING FIELDS OF TABLE I_BSEG
 FOR ALL ENTRIES IN I_BSAK
 WHERE BUKRS = C_BUKRS AND
 BELNR = I_BSAK-BELNR AND
 GJAHR = I_BSAK-GJAHR AND
 BELNR <> I_BSAK-AUGBL AND
 KOART <> 'K'.
ENDIF.
*** Selecting gl account name from SKAT table.
IF I_BSEG[] IS NOT INITIAL.
 SELECT SAKNR TXT50
 FROM SKAT
 INTO CORRESPONDING FIELDS OF TABLE I_SKAT
 FOR ALL ENTRIES IN I_BSEG
 WHERE SPRAS = 'E' AND
 KTOPL = C_BUKRS AND
 SAKNR = I_BSEG-HKONT.
ENDIF.
SORT I_BSAK BY BELNR.
SORT I_BSAK_INIT BY VBLNR.
SORT I_BSEG BY BELNR GJAHR.
*** Selecting Credit Card No. into I_XBLNR table.
LOOP AT I_BSAK.
 I_BSAK-XBLNR1 = I_BSAK-XBLNR.
 CLEAR: V_XBLNR.
 SELECT SINGLE XBLNR FROM BKPF INTO V_XBLNR
 WHERE BUKRS = C_BUKRS AND
 BELNR = I_BSAK-AUGBL.
 IF SY-SUBRC EQ 0.
 I_BSAK-XBLNR = V_XBLNR.
 ENDIF.
 READ TABLE I_BSEG WITH KEY BELNR = I_BSAK-BELNR
 GJAHR = I_BSAK-GJAHR
 BINARY SEARCH.
 IF SY-SUBRC EQ 0.
 I_BSAK-PRCTR = I_BSEG-PRCTR.
 ENDIF.
 READ TABLE I_BSAK_INIT WITH KEY VBLNR = I_BSAK-AUGBL BINARY SEARCH.
 IF SY-SUBRC EQ 0.
 I_BSAK-NAME1 = I_BSAK_INIT-NAME1.
 I_BSAK-LAUFD = I_BSAK_INIT-LAUFD.
 I_BSAK-KTOKK = I_BSAK_INIT-KTOKK.
 ENDIF.
 MODIFY I_BSAK TRANSPORTING XBLNR XBLNR1 PRCTR NAME1 LAUFD KTOKK.
ENDLOOP.
ENDFORM. " GET_DATA
*& Form MODIFY_ITAB
* text
* --> p1 text
* <-- p2 text
FORM MODIFY_ITAB .
*** Process on internal table
LOOP AT I_BSAK.
 AUTHORITY-CHECK OBJECT 'F_LFA1_GRP'
 ID 'KTOKK'
 FIELD I_BSAK-KTOKK.
 IF SY-SUBRC NE 0.
 DELETE I_BSAK WHERE KTOKK EQ I_BSAK-KTOKK.
 AUTH_RESTRICT = 'X'.
 CONTINUE.
 ENDIF.
ENDLOOP.
IF AUTH_RESTRICT EQ 'X'.
 MESSAGE S005(ZMSG).
ENDIF.
LOOP AT I_BSAK.
 IF I_BSAK-SHKZG = 'S'.
 I_BSAK-DMBTR = I_BSAK-DMBTR * -1.
 MODIFY I_BSAK .
 ENDIF.
ENDLOOP.
LOOP AT I_BSEG.
 IF I_BSEG-SHKZG = 'H'.
 I_BSEG-DMBTR = I_BSEG-DMBTR * -1.
 MODIFY I_BSEG .
 ENDIF.
ENDLOOP.
*** Default Sorting on internal table .
SORT I_BSAK BY XBLNR LIFNR BELNR.
SORT I_BSEG BY BELNR HKONT.
SORT I_SKAT BY SAKNR.
ENDFORM. " MODIFY_ITAB
*& Form DISPLAY_OUTPUT
* text
* --> p1 text
* <-- p2 text
FORM DISPLAY_OUTPUT .
*** Coding for detail output starts
CLEAR SY-LSIND.
REFRESH I_INACT.
IF G_DETAIL EQ 'X'.
 APPEND 'EXPA' TO I_INACT.
ELSE.
 APPEND 'COLL' TO I_INACT.
ENDIF.
IF G_SORTV EQ 'X'.
 APPEND 'SORTV' TO I_INACT.
 SORT I_BSAK BY LIFNR.
 SORT I_BSAK_LIFNR BY LIFNR.
ELSEIF G_SORTP EQ 'X'.
 APPEND 'SORTP' TO I_INACT.
 SORT I_BSAK BY PRCTR.
 SORT I_BSAK_PRCTR BY PRCTR.
ELSE.
 APPEND 'SORTC' TO I_INACT.
 SORT I_BSAK BY XBLNR.
ENDIF.
SET PF-STATUS 'STAT' EXCLUDING I_INACT.
IF V_UCOMM = 'SORTC'.
 PERFORM WRITE_DATA.
ELSEIF V_UCOMM = 'SORTV' . "Subroutine for card sub total.
 PERFORM WRITE_DATA_VENDOR. "Subroutine for vendor sub total.
ELSEIF V_UCOMM = 'SORTP'. "Subroutine for profit center sub total.
* PERFORM WRITE_DATA_PROFIT.
 PERFORM WRITE_DATA_PROFIT_NEW. " New subroutine for profit center.
ELSE.
 PERFORM WRITE_DATA.
ENDIF.
ENDFORM. " DISPLAY_OUTPUT
*& Form F_COLOR
* text
* --> p1 text
* <-- p2 text
FORM F_COLOR .
IF COL = 'X'.
 FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
 CLEAR COL.
ELSE.
 FORMAT COLOR COL_NORMAL INTENSIFIED ON.
 COL = 'X'.
ENDIF.
ENDFORM. " F_COLOR
*& Form TOP_OF_PAGE
* text
* --> p1 text
* <-- p2 text
FORM TOP_OF_PAGE .
*** Top-of-page is Common for summary and detail report.
*** To display top of page only on first page.
IF SY-PAGNO = 1 .
 CALL FUNCTION 'Z_NPL_HEADING'
 EXPORTING
 LINE_SIZE = SY-LINSZ
 HEADING1 = HEADING
 HEADING2 = HEADING2.
 FORMAT COLOR COL_HEADING INTENSIFIED ON.
**** To get output columns text descprition
 ULINE.
 WRITE:/ SY-VLINE NO-GAP, (10) 'Vendor' NO-GAP,
 SY-VLINE NO-GAP, (35) 'Name of Payee' NO-GAP,
 SY-VLINE NO-GAP, (10) 'G/L Num' NO-GAP,
 SY-VLINE NO-GAP, (42) 'G/L Name' NO-GAP,
 SY-VLINE NO-GAP, (07) 'Profit Center' NO-GAP,
 SY-VLINE NO-GAP, (16) 'Credit Card NO.' NO-GAP,
 SY-VLINE NO-GAP, (10) 'Pmnt Date' NO-GAP,
 SY-VLINE NO-GAP, (08) 'Doc.Type' NO-GAP,
 SY-VLINE NO-GAP, (10) 'Inv.Date' NO-GAP,
 SY-VLINE NO-GAP, (16) 'Invoice' NO-GAP,
 SY-VLINE NO-GAP, (14) 'Amount Paid' NO-GAP,
 SY-VLINE.
 ULINE.
ENDIF.
ENDFORM. " TOP_OF_PAGE
*& Form WRITE_DATA
* text
* --> p1 text
* <-- p2 text
FORM WRITE_DATA .
LOOP AT I_BSAK.
 CLEAR WA.
 MOVE-CORRESPONDING I_BSAK TO WA.
 PERFORM WRITE.
 AT END OF XBLNR. "Card sub total
 IF G_SORTC EQ 'X'.
 SUM.
 IF G_DETAIL EQ 'X'. ULINE. ENDIF.
 FORMAT COLOR COL_TOTAL INTENSIFIED OFF.
 WRITE:/ SY-VLINE NO-GAP, (25) 'Credit Card Total:', I_BSAK-XBLNR ,
 (35) I_BSAK-NAME1 NO-GAP.
 WRITE: 110 SY-VLINE NO-GAP,(79) I_BSAK-DMBTR NO-GAP
 CURRENCY 'USD',SY-VLINE.
 ULINE.
 ENDIF.
 ENDAT. "End of Credit card Detail
**** Grand total
 AT LAST. "Grand total
 SUM.
 FORMAT COLOR COL_TOTAL INTENSIFIED OFF.
 WRITE:/ SY-VLINE NO-GAP,(107) 'Grand Total:',
 SY-VLINE NO-GAP,(79) I_BSAK-DMBTR NO-GAP
 CURRENCY 'USD', SY-VLINE.
 ULINE.
 ENDAT.
ENDLOOP. "End for I_BSAK loop
ENDFORM. " WRITE_DATA
*& Form WRITE_DATA_VENDOR
* text
* --> p1 text
* <-- p2 text
FORM WRITE_DATA_VENDOR .
LOOP AT I_BSAK_LIFNR.
 CLEAR WA.
 MOVE-CORRESPONDING I_BSAK_LIFNR TO WA.
 PERFORM WRITE.
 AT END OF LIFNR. "Vendor sub Total
 IF G_SORTV EQ 'X'.
 SUM.
 IF G_DETAIL EQ 'X'. ULINE. ENDIF.
 FORMAT COLOR COL_TOTAL INTENSIFIED ON.
 WRITE:/ SY-VLINE NO-GAP,(15) 'Vendor Total:', I_BSAK_LIFNR-LIFNR.
 WRITE: 110 SY-VLINE NO-GAP,(79) I_BSAK_LIFNR-DMBTR NO-GAP
 CURRENCY 'USD',SY-VLINE.
 ULINE.
 ENDIF.
 ENDAT. "End of Vendor Total
**** Grand total
 AT LAST. "Grand total
 SUM.
 FORMAT COLOR COL_TOTAL INTENSIFIED OFF.
 WRITE:/ SY-VLINE NO-GAP,(107) 'Grand Total:',
 SY-VLINE NO-GAP,(79) I_BSAK_LIFNR-DMBTR NO-GAP
 CURRENCY 'USD', SY-VLINE.
 ULINE.
 ENDAT.
ENDLOOP. "End for I_BSAK_LIFNR loop
ENDFORM. " WRITE_DATA_VENDOR
*& Form WRITE_DATA_PROFIT
* text
* --> p1 text
* <-- p2 text
FORM WRITE_DATA_PROFIT .
*** Changed By Samir On 18 Sep 08 (DEVK914685) ***
LOOP AT I_BSAK_PRCTR.
 READ TABLE I_BSAK WITH KEY BELNR = I_BSAK_PRCTR-BELNR
 GJAHR = I_BSAK_PRCTR-GJAHR.
 IF SY-SUBRC = 0.
 I_BSAK_PRCTR-LIFNR = I_BSAK-LIFNR.
 I_BSAK_PRCTR-NAME1 = I_BSAK-NAME1.
 I_BSAK_PRCTR-XBLNR = I_BSAK-XBLNR.
 I_BSAK_PRCTR-LAUFD = I_BSAK-LAUFD.
 I_BSAK_PRCTR-BLART = I_BSAK-BLART.
 I_BSAK_PRCTR-BLDAT = I_BSAK-BLDAT.
 I_BSAK_PRCTR-XBLNR1 = I_BSAK-XBLNR1.
 MODIFY I_BSAK_PRCTR TRANSPORTING LIFNR NAME1 XBLNR LAUFD BLART BLDAT XBLNR1.
 ENDIF.
ENDLOOP.
*** End Of Changes By Samir On 18 Sep 08 ***
SORT I_BSAK_PRCTR BY PRCTR.
LOOP AT I_BSAK_PRCTR.
 PERFORM F_COLOR.
 IF G_DETAIL = 'X'.
*** Changed By Samir On 18 Sep 08 (DEVK914685) ***
 READ TABLE I_SKAT WITH KEY SAKNR = I_BSAK_PRCTR-HKONT BINARY SEARCH.
 WRITE:/ SY-VLINE NO-GAP, (10) I_BSAK_PRCTR-LIFNR NO-GAP,
 SY-VLINE NO-GAP, (35) I_BSAK_PRCTR-NAME1 NO-GAP,
 SY-VLINE NO-GAP, (10) I_BSAK_PRCTR-HKONT NO-GAP,
 SY-VLINE NO-GAP, (42) I_SKAT-TXT50 NO-GAP,
 SY-VLINE NO-GAP, (07) I_BSAK_PRCTR-PRCTR NO-GAP,
 SY-VLINE NO-GAP, (16) I_BSAK_PRCTR-XBLNR NO-GAP, " CREDIT CARD NO.
 SY-VLINE NO-GAP, (10) I_BSAK_PRCTR-LAUFD NO-GAP,
 SY-VLINE NO-GAP, (08) I_BSAK_PRCTR-BLART NO-GAP,
 SY-VLINE NO-GAP, (10) I_BSAK_PRCTR-BLDAT NO-GAP,
 SY-VLINE NO-GAP, (16) I_BSAK_PRCTR-XBLNR1 NO-GAP.
 WRITE: SY-VLINE NO-GAP, (14) I_BSAK_PRCTR-DMBTR NO-GAP.
 WRITE: SY-VLINE.
 ENDIF.
*** End Of Changes By Samir On 18 Sep 08 ***
 AT END OF PRCTR. "Profit Center sub Total
 IF G_SORTP EQ 'X'.
 SUM.
 IF G_DETAIL EQ 'X'. ULINE. ENDIF.
 FORMAT COLOR COL_TOTAL INTENSIFIED ON.
 WRITE:/ SY-VLINE NO-GAP,(07) 'Profit Center Total:', I_BSAK_PRCTR-PRCTR.
 WRITE: 110 SY-VLINE NO-GAP,(79) I_BSAK_PRCTR-DMBTR NO-GAP
 CURRENCY 'USD',SY-VLINE.
 ULINE.
 ENDIF.
 ENDAT. "End of Profit Center Total
**** Grand total
 AT LAST. "Grand total
 SUM.
 FORMAT COLOR COL_TOTAL INTENSIFIED OFF.
 WRITE:/ SY-VLINE NO-GAP,(107) 'Grand Total:',
 SY-VLINE NO-GAP,(79) I_BSAK_PRCTR-DMBTR NO-GAP
 CURRENCY 'USD', SY-VLINE.
 ULINE.
 ENDAT.
ENDLOOP. "End for I_BSAK_PRCTR loop
ENDFORM. " WRITE_DATA_PROFIT
*& Form WRITE
* text
* --> p1 text
* <-- p2 text
FORM WRITE .
IF G_DETAIL = 'X'.
 IF WA-KTOKK = 'Z001'. " For HR Vendors
 PERFORM F_COLOR.
 READ TABLE I_BSEG WITH KEY BELNR = WA-BELNR GJAHR = WA-GJAHR BINARY SEARCH .
 READ TABLE I_SKAT WITH KEY SAKNR = I_BSEG-HKONT BINARY SEARCH.
 WRITE:/ SY-VLINE NO-GAP, (10) WA-LIFNR NO-GAP,
 SY-VLINE NO-GAP, (35) WA-NAME1 NO-GAP,
 SY-VLINE NO-GAP, (10) I_BSEG-HKONT NO-GAP,
 SY-VLINE NO-GAP, (42) I_SKAT-TXT50 NO-GAP,
*** Changed By Samir On 18 Sep 08 (DEVK914685) ***
* SY-VLINE NO-GAP, (07) WA-PRCTR NO-GAP,
 SY-VLINE NO-GAP, (07) I_BSEG-PRCTR NO-GAP,
*** End Of Changes By Samir On 18 Sep 08 ***
 SY-VLINE NO-GAP, (16) WA-XBLNR NO-GAP, " CREDIT CARD NO.
 SY-VLINE NO-GAP, (10) WA-LAUFD NO-GAP,
 SY-VLINE NO-GAP, (08) WA-BLART NO-GAP,
 SY-VLINE NO-GAP, (10) WA-BLDAT NO-GAP,
 SY-VLINE NO-GAP, (16) WA-XBLNR1 NO-GAP.
 WRITE: SY-VLINE NO-GAP, (14) WA-DMBTR NO-GAP.
 WRITE: SY-VLINE.
 ELSE.
 LOOP AT I_BSEG WHERE BELNR = WA-BELNR AND GJAHR = WA-GJAHR .
 PERFORM F_COLOR.
 READ TABLE I_SKAT WITH KEY SAKNR = I_BSEG-HKONT BINARY SEARCH.
 WRITE:/ SY-VLINE NO-GAP, (10) WA-LIFNR NO-GAP,
 SY-VLINE NO-GAP, (35) WA-NAME1 NO-GAP,
 SY-VLINE NO-GAP, (10) I_BSEG-HKONT NO-GAP,
 SY-VLINE NO-GAP, (42) I_SKAT-TXT50 NO-GAP,
*** Changed By Samir On 17 Sep 08 (DEVK914671) ***
* SY-VLINE NO-GAP, (07) WA-PRCTR NO-GAP,
 SY-VLINE NO-GAP, (07) I_BSEG-PRCTR NO-GAP,
*** End Of Changes By Samir On 17 Sep 08 ***
 SY-VLINE NO-GAP, (16) WA-XBLNR NO-GAP, " CREDIT CARD NO.
 SY-VLINE NO-GAP, (10) WA-LAUFD NO-GAP,
 SY-VLINE NO-GAP, (08) WA-BLART NO-GAP,
 SY-VLINE NO-GAP, (10) WA-BLDAT NO-GAP,
 SY-VLINE NO-GAP, (16) WA-XBLNR1 NO-GAP.
 WRITE: SY-VLINE NO-GAP, (14) I_BSEG-DMBTR NO-GAP.
 WRITE: SY-VLINE.
 ENDLOOP. "End for I_BSEG loop
 ENDIF. "Endif for I_PAYR-KTOKK = 'Z001'
ENDIF. "Endif for g_detail = 'X'.
ENDFORM. " WRITE
*& Form WRITE_DATA_PROFIT_NEW
* text
* --> p1 text
* <-- p2 text
FORM WRITE_DATA_PROFIT_NEW .
REFRESH I_BSEG_COPY.
CLEAR I_BSEG_COPY.
* DATA I_BSEG_COPY LIKE I_BSEG OCCURS 0 WITH HEADER LINE.
* I_BSEG_COPY[] = I_BSEG[].
LOOP AT I_BSEG.
 MOVE-CORRESPONDING I_BSEG TO I_BSEG_COPY.
 APPEND I_BSEG_COPY.
 CLEAR I_BSEG_COPY.
ENDLOOP.
LOOP AT I_BSEG_COPY.
 READ TABLE I_BSAK_PRCTR WITH KEY BELNR = I_BSEG_COPY-BELNR GJAHR = I_BSEG_COPY-GJAHR ."HKONT = I_BSEG_COPY-HKONT.
 IF SY-SUBRC = 0.
 I_BSEG_COPY-LIFNR = I_BSAK_PRCTR-LIFNR.
 I_BSEG_COPY-XBLNR = I_BSAK_PRCTR-XBLNR.
 I_BSEG_COPY-NAME1 = I_BSAK_PRCTR-NAME1.
 I_BSEG_COPY-AUGDT = I_BSAK_PRCTR-AUGDT.
 I_BSEG_COPY-AUGBL = I_BSAK_PRCTR-AUGBL.
 I_BSEG_COPY-XBLNR1 = I_BSAK_PRCTR-XBLNR1.
 I_BSEG_COPY-BLDAT = I_BSAK_PRCTR-BLDAT.
 I_BSEG_COPY-BLART = I_BSAK_PRCTR-BLART.
 MODIFY I_BSEG_COPY TRANSPORTING LIFNR XBLNR NAME1 AUGDT AUGBL XBLNR1 BLDAT BLART.
 ENDIF.
ENDLOOP.
SORT I_BSAK_PRCTR BY PRCTR BELNR.
SORT I_BSEG BY BELNR.
SORT I_BSEG_COPY BY PRCTR.
DATA COUNT TYPE I.
DATA G_BELNR LIKE BSAK-BELNR.
LOOP AT I_BSEG_COPY.
 CLEAR G_BELNR.
 G_BELNR = I_BSEG_COPY-BELNR.
 COUNT = COUNT + 1.
 READ TABLE I_BSAK WITH KEY BELNR = I_BSEG_COPY-BELNR.
 IF SY-SUBRC <> 0.
 DELETE I_BSEG_COPY WHERE BELNR = G_BELNR."INDEX count.
 ENDIF.
ENDLOOP.
* LOOP AT I_BSAK_PRCTR.
LOOP AT I_BSEG_COPY.
 CLEAR WA.
 MOVE-CORRESPONDING I_BSEG_COPY TO WA.
 PERFORM WRITE_PRCTR.
 AT END OF PRCTR. "Profit center sub Total
 IF G_SORTP EQ 'X'.
 SUM.
 IF G_DETAIL EQ 'X'. ULINE. ENDIF.
 FORMAT COLOR COL_TOTAL INTENSIFIED ON.
 WRITE:/ SY-VLINE NO-GAP,(20) 'Profit Center Total:', I_BSEG_COPY-PRCTR.
 WRITE: 110 SY-VLINE NO-GAP,(79) I_BSEG_COPY-DMBTR NO-GAP
 CURRENCY 'USD',SY-VLINE.
 ULINE.
 ENDIF.
 ENDAT. "End of Vendor Total
**** Grand total
 AT LAST. "Grand total
 SUM.
 FORMAT COLOR COL_TOTAL INTENSIFIED OFF.
 WRITE:/ SY-VLINE NO-GAP,(107) 'Grand Total:',
 SY-VLINE NO-GAP,(79) I_BSEG_COPY-DMBTR NO-GAP
 CURRENCY 'USD', SY-VLINE.
 ULINE.
 ENDAT.
ENDLOOP. "End for I_BSAK_LIFNR loop
*ENDFORM. " WRITE_DATA_VENDOR
ENDFORM. " WRITE_DATA_PROFIT_NEW
*& Form WRITE_PRCTR
* text
* --> p1 text
* <-- p2 text
FORM WRITE_PRCTR .
IF G_DETAIL = 'X'.
 IF WA-KTOKK = 'Z001'. " For HR Vendors
 PERFORM F_COLOR.
* READ TABLE I_BSEG WITH KEY BELNR = WA-BELNR GJAHR = WA-GJAHR PRCTR = WA-PRCTR BINARY SEARCH .
 READ TABLE I_SKAT WITH KEY SAKNR = WA-HKONT BINARY SEARCH.
 WRITE:/ SY-VLINE NO-GAP, (10) WA-LIFNR NO-GAP,
 SY-VLINE NO-GAP, (35) WA-NAME1 NO-GAP,
 SY-VLINE NO-GAP, (10) WA-HKONT NO-GAP,
 SY-VLINE NO-GAP, (42) I_SKAT-TXT50 NO-GAP,
*** Changed By Samir On 18 Sep 08 (DEVK914685) ***
 SY-VLINE NO-GAP, (07) WA-PRCTR NO-GAP,
* SY-VLINE NO-GAP, (07) I_BSEG-PRCTR NO-GAP,
*** End Of Changes By Samir On 18 Sep 08 ***
 SY-VLINE NO-GAP, (16) WA-XBLNR NO-GAP, " CREDIT CARD NO.
 SY-VLINE NO-GAP, (10) WA-LAUFD NO-GAP,
 SY-VLINE NO-GAP, (08) WA-BLART NO-GAP,
 SY-VLINE NO-GAP, (10) WA-BLDAT NO-GAP,
 SY-VLINE NO-GAP, (16) WA-XBLNR1 NO-GAP.
 WRITE: SY-VLINE NO-GAP, (14) WA-DMBTR NO-GAP.
 WRITE: SY-VLINE.
 ELSE.
* LOOP AT I_BSEG WHERE BELNR = WA-BELNR AND GJAHR = WA-GJAHR AND PRCTR = WA-PRCTR .
 PERFORM F_COLOR.
 READ TABLE I_SKAT WITH KEY SAKNR = WA-HKONT BINARY SEARCH.
 WRITE:/ SY-VLINE NO-GAP, (10) WA-LIFNR NO-GAP,
 SY-VLINE NO-GAP, (35) WA-NAME1 NO-GAP,
 SY-VLINE NO-GAP, (10) WA-HKONT NO-GAP,
 SY-VLINE NO-GAP, (42) I_SKAT-TXT50 NO-GAP,
*** Changed By Samir On 17 Sep 08 (DEVK914671) ***
 SY-VLINE NO-GAP, (07) WA-PRCTR NO-GAP,
* SY-VLINE NO-GAP, (07) I_BSEG-PRCTR NO-GAP,
*** End Of Changes By Samir On 17 Sep 08 ***
 SY-VLINE NO-GAP, (16) WA-XBLNR NO-GAP, " CREDIT CARD NO.
 SY-VLINE NO-GAP, (10) WA-LAUFD NO-GAP,
 SY-VLINE NO-GAP, (08) WA-BLART NO-GAP,
 SY-VLINE NO-GAP, (10) WA-BLDAT NO-GAP,
 SY-VLINE NO-GAP, (16) WA-XBLNR1 NO-GAP.
 WRITE: SY-VLINE NO-GAP, (14) WA-DMBTR NO-GAP.
 WRITE: SY-VLINE.
* ENDLOOP. "End for I_BSEG loop
 ENDIF. "Endif for I_PAYR-KTOKK = 'Z001'
ENDIF. "Endif for g_detail = 'X'.
ENDFORM. " WRITE_PRCTR
Thanks in advance
Raj.

Ralph,
Thanks for the reply.
I have marked the sql statement in the code that is taking long time to run but Its my mistake not explaining the same in the description.
When I was debugging the code the below sql statement was taking long time.
IF NOT I_BSAK_INIT[] IS INITIAL.
 SELECT LIFNR AUGDT AUGBL GJAHR BELNR CPUDT BLDAT XBLNR
 BLART SHKZG DMBTR AUGGJ
 FROM BSAK
 INTO CORRESPONDING FIELDS OF TABLE I_BSAK
 FOR ALL ENTRIES IN I_BSAK_INIT
 WHERE BUKRS = C_BUKRS AND
 AUGBL = I_BSAK_INIT-VBLNR AND
 XZAHL <> 'X'.
ENDIF.
Any suggestions on the code?
Regards,
Raj.

Interactive Report general Search is taking long time

Hi All,
I have two IR reports in my Application, Both are using same tables , same where clause, displaying column is different.
Both query returning 60000 records, In my first report , after my report gets loaded , i am using the general search button for getting some data,
when i try to find 100 in my reports , my first report displaying the search result in 5 seconds, But my second report i am doing the same steps , but its taking long time to respond.
Could some one tell me what is the cause for this problem also in what basis this search will work means how this will work?
Cheers,
San

Hi Mike,
You are right test is the View
After i enabled the debug i found the below query
Report 1 Query
SELECT "Checkbox",
"RS_TRX_NUMBER",
"EXT_TRX_NUMBER",
"ARRANGEMENT_NUMBER",
"TRX_DATE",
"TRX_STATUS",
"SOLD_TO_CUSTOMER_NAME",
"TRX_TYPE",
"CURRENCY",
"COMMITTED_AMOUNT",
"BUDGET_AMOUNT",
"TRANSACTION_BUDGET",
"TRX_DESCRIPTION",
"FILES",
"Lines",
"Events",
"TRX_Revenue",
"ARGMT_Revenue",
"Holds",
"RS_TRX_ID",
COUNT(DISTINCT "ARRANGEMENT_NUMBER") over (),
COUNT(*) over () AS apxws_row_cnt
FROM
(SELECT *
FROM
 (SELECT a.* ,
 'Events' "Events" ,
 'Billing' "Billing" ,
 'Transaction Revenue' "TRX_Revenue" ,
 'Arrangement Revenue' "ARGMT_Revenue" ,
 'Lines' "Lines" ,
 'Invoice' "Invoice" ,
 'Holds' "Holds" ,
 apex_item.hidden ( 2, a.rs_trx_number)
 || apex_item.checkbox ( 1, a.rs_trx_id, 'onchange="spCheckChange(this, ''x01'', ''P13_TRX_AJAX_NAME'', ''P13_TRX_COLLECTION_NAME'',''SELECTED_TRX'');"', c.n001, ':' ) "Checkbox"
 FROM test a,
 apex_collections c
 WHERE a.rs_trx_id = c.n001(+)
 AND c.collection_name(+) = :P13_TRX_COLLECTION_NAME
 AND a.org_id IN
 (SELECT DISTINCT org_id
 FROM test1
 WHERE (role_name = :APPUSER_CURRENT_ROLE)
 ) r
) r
where rownum <= TO_NUMBER(:APXWS_MAX_ROW_CNT)
Second Report
SELECT "Checkbox",
"EXT_TRX_NUMBER",
"RS_TRX_NUMBER",
"ARRANGEMENT_NUMBER",
"TRX_RM_STATUS",
"SOLD_TO_CUSTOMER_NAME",
"TRX_TYPE",
"TRX_DESCRIPTION",
"CURRENCY",
"COMMITTED_AMOUNT",
"UNEARNED",
"EARNED",
"REV_TRANSFERRED",
"REV_LINES",
"SCHEDULES",
"EVENTS",
"EXT_TRX_ID",
"PRIMARY_SALESREP_NUMBER",
"RS_TRX_ID",
COUNT(*) over () AS apxws_row_cnt
FROM
(SELECT *
FROM
 (SELECT a.* ,
 'Rev Lines' REV_LINES ,
 'Schedules' Schedules ,
 'Events' Events ,
 apex_item.hidden ( 2, a.rs_trx_number)
 || apex_item.checkbox ( 1, a.rs_trx_id, 'onchange="spCheckChange(this, ''x01'', ''P5_REV_TRX_AJAX_NAME'', ''P5_RTCN'',''SELECTED_REV_TRX'');"', c.n001, ':' ) "Checkbox"
 FROM Test a,
 apex_collections c
 WHERE a.rs_trx_id = c.n001(+)
 AND C.COLLECTION_NAME(+) = :P5_RTCN
 AND a.org_id IN
 (SELECT DISTINCT org_id
 FROM Test1
 WHERE (role_name = :APPUSER_CURRENT_ROLE)
 ) r
) r
WHERE rownum <= to_number(:APXWS_MAX_ROW_CNT)
ORDER BY "ARRANGEMENT_NUMBER" DESC,
"EXT_TRX_NUMBER"
In Source i am using the same query in both report , But how come order by clause has been adding in my Second query.
Also in Report 1 :
COUNT(DISTINCT "ARRANGEMENT_NUMBER") over (),
COUNT(*) over () AS apxws_row_cnt
The same is not there in Second report query .
How can i remove that order by clause from my id also how can i resolve the above change (
COUNT(DISTINCT "ARRANGEMENT_NUMBER") over (),
COUNT(*) over () AS apxws_row_cnt)
Help me out to resolve.
Cheers,
San

Process Chain taking long time in loading data in infocube

Dear Expert,
We are loading data thru PC in AR cube it takes data frm
PSA-> DSO->Activation->Index Deletion->DTP(load infocube)->IndexCreation->Create Aggregates.
In Index creation everyday its taking long time around 9 to 10 hrs to create it
when we go in RSRV and repair the infocube thr loading of data happens fast. We are doing it(RSRV) everyday. In DB02 we have seen dat 96% tablespace is used.
Please tell permanent solution.
Please suggest its BI Issue or Basis.
Regards,
Ankit

Hi ,
We are loading data thru PC in AR cube it takes data frm
PSA-> DSO->Activation->Index Deletion->DTP(load infocube)->IndexCreation->Create Aggregates.
In the above steps insted of Create Aggregates it should be Roll up Process of aggregates.
You can ask the basis team to check the Table space in the transaction db02old/db02.
Check if there is long running job in SM66/SM50 kill that job.
check there should be enough Batch process to perform the steps.
Hope this helps.
"Assigning points is the ways to say thanks on SDN".
Br
Alok

Taking Long Time To Show Printer Selection Window

Hi experts,
When users are taking printout through SAP,it's taking long time to show printer selection window(Local Printer Selection Windows)
present i am using sap ehp7 on sybase in windows.
Thanks in advance..

Hi,
Have you tried by reinstalling of printer with patch updation of printer as well as of windows also ? If possible try to uninstall the printer & check again by reselection.
Addition to it could you please share SAP GUI version on the system & confirm for, are you getting this issue on every system ( OS ) ?
Regards,
Gaurav

Taking long time to execute views

Hi All,
my query is taking long time to execute(i am using standard views in my query)
XLA_INV_AEL_GL_V , XLA_WIP_AEL_GL_V -----these standard views itself taking long time to execute ,but i need the info from this views
WHERE gjh.je_batch_id = gjb.je_batch_id AND
gjh.je_header_id = gjl.je_header_id AND
gjh.je_header_id = xlawip.je_header_id AND
gjl.je_header_id = xlawip.je_header_id AND
gjl.je_line_num = xlawip.je_line_num AND
gcc.code_combination_id = gjl.code_combination_id AND
gjl.code_combination_id = xlawip.code_combination_id AND
gjb.set_of_books_id = xlawip.set_of_books_id AND
gjh.je_source = 'Inventory' AND
gjh.je_category = 'WIP' AND
gp.period_set_name = 'Accounting' AND
gp.period_name = gjl.period_name AND
gp.period_name = gjh.period_name AND
gp.start_date +1 between to_date(startdate,'DD-MON-YY') AND
to_date(enddate,'DD-MON-YY') AND
gjh.status =nvl(lstatus,gjh.status)
Could any one help me to execute it fast?
Thanks
Madhu

[url http://forums.oracle.com/forums/thread.jspa?threadID=501834&tstart=0]When your query takes too long...

GC taking long time when using Concurrent Mark Sweep GC with Sun JDK 150_12

Similar Messages

Maybe you are looking for