Time entry error

In the stand-alone quicktime player, there is an error when you try to enter the time into the field to the left of the play head. If you enter a single digit in the hours field or a double digit in the minutes field, the play head will go to the correct location. But if you enter a time less than 00:10:00, the time reverts to 00:00:00.

Mine works...

Similar Messages

Modification of error flagging on time entry screen

Hi,
When an employee has more than one line and error on Time Entry Screen . Is there any possibility to get the line that contains the error only can be flagged .
Please help me.
Thanks.

This is a generic error and mostly happens due to some missing or invalid objects. Check with your DBA.
--Shiv

UWL CATS time approval error "No data exists that needs to be approved"

Hi all,
We approve CATS working time through SAP portal UWL. The user can see the workitem in her UWL inbox, but got an error u201CNo data exists that needs to be approvedu201D when he tried to execute the workitem. But the user is able to execute the workitem using Business workplace in ECC. We are using the standard UWL application.
This happens only to CATS time entries for certain type of employees (for example, the employees who do not report directly to the approver).
SAP Portal 7.0
SAP MSS 600 SP19
SAP UWLJWF 7.00 sp23
SAP ECC 6.0
Here is what I have found from my trouble-shooting. When I test (preview) the UWL iView, it seems to be working fine. But when I call up the iView from the portal MSS role, I got the error message u201CNo data exists that needs to be approved.u201D
Please let me know if you need more information.
Thank you,
Qi

I have found that the workitem ID is not passed to the CATS approval web dynpro program. Here is what is in the Item Type configuration XML. Is there anything missing?

 <ItemType name="uwl.task.webflow.TS31000007" connector="WebFlowConnector" defaultView="com.sap.pct.erp.mss.OpenTasksTimeApp" defaultAction="launchWebDynPro" executionMode="default">
 <ItemTypeCriteria externalType="TS31000007" connector="WebFlowConnector"/>
 <Actions>
 <Action name="launchWebDynPro" groupAction="" handler="SAPWebDynproLauncher" returnToDetailViewAllowed="yes" launchInNewWindow="yes" launchNewWindowFeatures="resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no,directories=no">
 <Properties>
 <Property name="WebDynproApplication" value="CatManagerApprove"/>
 <Property name="WebDynproDeployableObject" value="sap.com/msscatapproval"/>
 <Property name="newWindowFeatures" value="resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no,directories=no"/>
 <Property name="openInNewWindow" value="true"/>
 <Property name="display_order_priority" value="5"/>
 </Properties>
 <Descriptions default=""/>
 </Action>
 </Actions>
 </ItemType>
 <ItemType name="uwl.forwardedtask.webflow.TS31000007" connector="WebFlowConnector" defaultView="com.sap.pct.erp.mss.ForwardedTimeApp" defaultAction="viewDetail"/>
 <ItemType name="uwl.futuretask.webflow.TS31000007" connector="WebFlowConnector" defaultView="com.sap.pct.erp.mss.FutureTaskTimeApp" defaultAction="viewDetail"/>
 <ItemType name="uwl.completedtask.webflow.TS31000007" connector="WebFlowConnector" defaultView="com.sap.pct.erp.mss.CompletedTimeApp" defaultAction="viewDetail"/>
Thanks,
Qi

Time out error 1.6 million internal table fields are computed using FMs

Hi , All ...
The Report running fine in server with less 300 record but ...production server which has 1.6 million record it gives error as time-out error and takes hell amount of time.
Please suggest ugently ..
I have tried few things
Internal table having 1.6 lacs ... fields to compute .. i have token in a batch
loop at i_cinfo into s_cinfo from 1 to 100000.
and so on ...also applied all the performace related .. like indexs, work areas , deleting adjacent duplicates , for all entries ..wherever applicable.
Please Suggest .
Report is as below
REPORT ZUSOTCBD_CREDIT_REPORT .
TABLES : KNA1, " General Data Customer Master
 KNB1, " Customer Master (Company Code)
 KNC1, " Customer master (transaction figures)
 KNKK, " Customer master credit management: Control area data
 T009, " Fiscal Year Variants P
 T009Y, " Shortened fiscal years in Asset Accounting P
 T001, " Co. Codes
 T001CM, " Permitted Credit Control Areas per Company Code
 RF42B, " Structure to hold credit data.
 RF035, " Structure to hold credit managment fields
 RF02L, " Structure to hold credit data.
 TRAS, " Interval for Days in Arrears P
 T000CM. " Data for DSO calculation.
Types
TYPES:
BEGIN OF type_final,
 string(50) TYPE c, " String Value for Title
END OF type_final.
data:wa_final TYPE type_final. " Work Area to hold Title Data
DATA: RASID TYPE RF035-RASID value 'R03N'. " For Days in interval
DATA: MONAT(2) TYPE N.
DATA: GJAHR TYPE KNC1-GJAHR.
DATA: LD_PERIODS(32) TYPE N
 VALUE '01020304050607080910111213141516'.
DATA sytabix type sy-tabix.
DATA LAND TYPE KNA1-LAND1 VALUE 'US'. " Country Key
DATA: LD_PERIOD TYPE BSID-MONAT, " Fiscal Year Variant
 LD_GJAHR TYPE KNC1-GJAHR,
 LD_COUNTER TYPE SY-TABIX.
Internal Tables
Internal table to hold Title Data *
DATA:
i_final TYPE STANDARD TABLE OF type_final.
**Internal Table Permitted Credit Control Areas per Company Code
DATA: BEGIN OF TCMTAB OCCURS 10.
 INCLUDE STRUCTURE T001CM.
DATA: END OF TCMTAB.
*Internal table to store Customer no.
DATA : BEGIN OF ICUST OCCURS 0,
 KUNNR TYPE KNA1-KUNNR, " Customer No.
 END OF ICUST.
DATA: BEGIN OF BUKTAB OCCURS 20,
 KKBER LIKE T001-KKBER, " Credit Control Area
 BUKRS LIKE T001-BUKRS, " Co. Code
 WAERS LIKE T001-WAERS, " Currency
 PERIV LIKE T001-PERIV, " Fiscal Year Variant
 BUTXT LIKE T001-BUTXT,
 END OF BUKTAB.
Internal Table to store Fiscal year Data .
DATA: BEGIN OF GJATAB OCCURS 5,
 PERIV LIKE T001-PERIV, " Fiscal Year Variant
 GJAHR LIKE KNC1-GJAHR, " Fiscal Year
 MONAT LIKE T009-ANZBP, "
 ANZBP LIKE T009-ANZBP, " Number of posting periods
 END OF GJATAB.
*Main Output internal table to be used to store credit history Information
DATA : BEGIN OF I_CINFO occurs 0,
 KUNNR TYPE KNB1-KUNNR, " Customer
 KNKLI TYPE KNKK-KNKLI, " Customer's account number with credit limit reference
 KKBER TYPE KNKK-KKBER, " Credit Control Area
 CTLPC TYPE KNKK-CTLPC, " Risk Category
 KLIMK TYPE KNKK-KLIMK, " Credit Limit
 SBGRP TYPE KNKK-SBGRP, " Credit representative group for credit management
 ERDAT TYPE KNKK-ERDAT, " Created On
 DTREV TYPE KNKK-DTREV, " Last Internal Review
 REVDB TYPE KNKK-REVDB, " Last External Review
 SALDO TYPE RF42B-SALDO, " Balance
 DSOIN TYPE RF02L-DSOIN, " DSO
 H06SA TYPE RF035-H06SA, " Highest Balance at the end of 6 Months
 H06JA TYPE RF035-H06JA, " Year highest Balance 6 Months
 H06MO TYPE RF035-H06MO, " Month OF hihest Balance 6 Months
 H12SA TYPE RF035-H12SA, " Highest Balance at the end of 12 Months
 H12JA TYPE RF035-H12JA, " Year highest Balance 12 Months
 H12MO TYPE RF035-H12MO, " Month OF hihest Balance 12 Months
 UMP2U TYPE RF42B-UMP2U, " Sales from the current Year
 UMP1U TYPE RF42B-UMP1U, " Sales from the Previous Year
 SFAEL TYPE RF035-SFAEL, " Total Past Due Open Item
 SFAE1 TYPE RF035-SFAE1, " Aging buckets 0-15
 SFAE2 TYPE RF035-SFAE2, " Aging buckets 16-30
 SFAE3 TYPE RF035-SFAE3, " Aging buckets 31-60
 SFAE4 TYPE RF035-SFAE4, " Aging buckets 60-90
 SFAE5 TYPE RF035-SFAE5, " Aging buckets Over 90
 END Of I_CINFO.
DATA : BEGIN OF S_CINFO ,
 KUNNR TYPE KNB1-KUNNR, " Customer
 KNKLI TYPE KNKK-KNKLI, " Customer's account number with credit limit reference
 KKBER TYPE KNKK-KKBER, " Credit Control Area
 CTLPC TYPE KNKK-CTLPC, " Risk Category
 KLIMK TYPE KNKK-KLIMK, " Credit Limit
 SBGRP TYPE KNKK-SBGRP, " Credit representative group for credit management
 ERDAT TYPE KNKK-ERDAT, " Created On
 DTREV TYPE KNKK-DTREV, " Last Internal Review
 REVDB TYPE KNKK-REVDB, " Last External Review
 SALDO TYPE RF42B-SALDO, " Balance
 DSOIN TYPE RF02L-DSOIN, " DSO
 H06SA TYPE RF035-H06SA, " Highest Balance at the end of 6 Months
 H06JA TYPE RF035-H06JA, " Year highest Balance 6 Months
 H06MO TYPE RF035-H06MO, " Month OF hihest Balance 6 Months
 H12SA TYPE RF035-H12SA, " Highest Balance at the end of 12 Months
 H12JA TYPE RF035-H12JA, " Year highest Balance 12 Months
 H12MO TYPE RF035-H12MO, " Month OF hihest Balance 12 Months
 UMP2U TYPE RF42B-UMP2U, " Sales from the current Year
 UMP1U TYPE RF42B-UMP1U, " Sales from the Previous Year
 SFAEL TYPE RF035-SFAEL, " Total Past Due Open Item
 SFAE1 TYPE RF035-SFAE1, " Aging buckets 0-15
 SFAE2 TYPE RF035-SFAE2, " Aging buckets 16-30
 SFAE3 TYPE RF035-SFAE3, " Aging buckets 31-60
 SFAE4 TYPE RF035-SFAE4, " Aging buckets 60-90
 SFAE5 TYPE RF035-SFAE5, " Aging buckets Over 90
 END Of s_cinfo.
*Internal table to hold month-wise balance.
DATA: BEGIN OF SALTAB OCCURS 12,
 LNUMM(2) TYPE N, " Month
 SALDO LIKE RF42B-SALDO, " Balance
 END OF SALTAB.
*Internal table used for computing the Balance fields
DATA: BEGIN OF SALDO,
 UML01 LIKE KNC1-UM01S,
 UML02 LIKE KNC1-UM01S,
 UML03 LIKE KNC1-UM01S,
 UML04 LIKE KNC1-UM01S,
 UML05 LIKE KNC1-UM01S,
 UML06 LIKE KNC1-UM01S,
 UML07 LIKE KNC1-UM01S,
 UML08 LIKE KNC1-UM01S,
 UML09 LIKE KNC1-UM01S,
 UML10 LIKE KNC1-UM01S,
 UML11 LIKE KNC1-UM01S,
 UML12 LIKE KNC1-UM01S,
 END OF SALDO.
Structure to hold Bal fields ------ -------
DATA: BEGIN OF SKNKK,
 KUNNR LIKE KNA1-KUNNR, " Customer Number 1: Debitor
 KONTO LIKE KNKK-KUNNR,
 SFAE1 LIKE RF035-SFAE1, " Aging buckets 0-15
 SFAE2 LIKE RF035-SFAE2, " Aging buckets 16-30
 SFAE3 LIKE RF035-SFAE3, " Aging buckets 30-60
 SFAE4 LIKE RF035-SFAE4, " Aging buckets 60-90
 SFAE5 LIKE RF035-SFAE5, " Aging buckets Over 90
 SFAEL LIKE RF035-SFAEL, " Total Due of Items
 UML01 LIKE KNC1-UM01S,
 UML02 LIKE KNC1-UM01S,
 UML03 LIKE KNC1-UM01S,
 UML04 LIKE KNC1-UM01S,
 UML05 LIKE KNC1-UM01S,
 UML06 LIKE KNC1-UM01S,
 UML07 LIKE KNC1-UM01S,
 UML08 LIKE KNC1-UM01S,
 UML09 LIKE KNC1-UM01S,
 UML10 LIKE KNC1-UM01S,
 UML11 LIKE KNC1-UM01S,
 UML12 LIKE KNC1-UM01S,
 UMP1U LIKE RF42B-UMP1U, " Sales from the Previous Year
 UMP2U LIKE RF42B-UMP2U, " Sales from the current Year
 SALDO LIKE RF42B-SALDO, " Balance
 END OF SKNKK.
DATA : BEGIN OF ICUST1 OCCURS 0,
 KUNNR TYPE KNA1-KUNNR, "For Customer Filter.
 END OF ICUST1.
**Internal table to hold fiscal varriants
DATA: BEGIN OF LT_PERIODS OCCURS 12,
 PERIOD LIKE BSID-MONAT,
 GJAHR LIKE KNC1-GJAHR,
 END OF LT_PERIODS.
**Constants
constants : BUKRS1 TYPE KNB1-BUKRS VALUE '1000',
 BUKRS2 TYPE KNB1-BUKRS VALUE '1031',
 Recs Type i value '200',
 B_count type i value '2'.
 INITIALIZATION
INITIALIZATION.
IF RASID IS INITIAL.
 SELECT * FROM TRAS.
 EXIT.
 ENDSELECT.
 IF SY-SUBRC = 0.
 RASID = TRAS-RASID.
 ENDIF.
ENDIF.
SELECTION-SCREEN
parameters : p_path type rlgrap-filename default 'C:\Documents and Settings\C890971\Desktop\Credit_history.XLS'.
Start of selection processing
START-OF-SELECTION.
**Get Customers for Co. Code 1000 & 1031.
PERFORM GET_CUST.
Get / Compute Credit Information data for Company Codes 1000 & 1031.
PERFORM GET_CREDIT_DATA.
End of selection processing
*END-OF-SELECTION.
Listing Credit History Data
PERFORM DOWNLOAD_CREDIT_DATA.
S U B R O U T I N E S
*& Form GET_CUST
 text
--> p1 text
<-- p2 text
FORM GET_CUST .
Get US only Customers.
Refresh icust.
Select kunnr from kna1 appending table icust
 where Land1 = land.
**Delete duplicate records
Delete Adjacent duplicates from icust comparing kunnr.
if icust[] is not initial.
 Limit the selection some more to Co. Code 1000 & 1031
As join will cost overhead as compared.
Select kunnr from knb1 into table icust1
 for all entries in icust
 where kunnr = icust-kunnr
 and bukrs = bukrs1
 OR bukrs = bukrs2.
**Delete duplicate records
Delete Adjacent duplicates from icust1 comparing kunnr.
 endif.
**Free memory.
Free icust.
Credit Control Area
select * from T001CM into table TCMTAB
 where bukrs = bukrs1 OR
 bukrs = bukrs2.
ENDFORM. " GET_CUST
*& Form GET_CREDIT_DATA
 text
--> p1 text
<-- p2 text
FORM GET_CREDIT_DATA .
DATA : L_TEXT(60) TYPE C ,
 Ltext1(50) type C value 'Computing Credit-History Data For',
 Ltext2(10) type C value 'Customers',
 L_PCT type i value '10',
 L_recs type i,
 l_batch_recs type i,
 l_s_rec type i value 1,
 l_recs1(7) type N.
***Fetch data from KNKK table
PERFORM GET_KNKK_DATA .
***Computing Crredit Fields
**Number of Customers For whom Deatils needed.
Describe table I_CINFO lines l_recs.
l_recs1 = l_recs.
Concatenate Ltext1 l_recs1 Ltext2 into l_text separated by ' '.
PERFORM GET_PGRESS_INDICATOR USING l_text l_pct.
***If records are more than 200000, should be processed batch-wise
If l_recs > recs.
 l_batch_recs = abs( l_recs / b_count ).
 Do b_count times.
 loop at i_cinfo INTO S_CINFO from l_S_REC to l_batch_recs.
**Remember the row
 sytabix = sy-tabix.
**Compute DSO
 PERFORM GET_DSO_FIELD .
Compute rest credit history data.
 PERFORM COMPUTE_SFIELDS.
 endloop.
 l_S_REC = l_S_REC + l_batch_recs.
 l_batch_recs = l_batch_recs + l_batch_recs.
 IF l_batch_recs ge l_recs.
 l_batch_recs = l_recs.
 eNDIF.
Commit up to here to release the DB locks.
 Commit work.
 enddo.
else.
 loop at i_cinfo INTO S_CINFO.
**Remember the row
 sytabix = sy-tabix.
**Compute DSO
 PERFORM GET_DSO_FIELD .
Compute rest credit history data.
 PERFORM COMPUTE_SFIELDS.
 endloop.
Endif.
ENDFORM. " GET_CREDIT_DATA
*& Form GET_KNKK_DATA
 text
 -->P_ICUST_KUNNR text
FORM GET_KNKK_DATA .
if icust1[] is not initial.
SELECT KUNNR KNKLI KKBER CTLPC KLIMK
 SBGRP ERDAT DTREV REVDB
 from KNKK into corresponding fields of table I_Cinfo
 for all entries in icust1
 where kunnr = icust1-kunnr.
Delete Adjacent duplicates from i_cinfo comparing kunnr.
endif.
**Free Memory for internal table icust1.
Free icust1.
ENDFORM. " GET_KNKK_DATA
**& Form GET_DSO_FIELD
 text
--> p1 text
<-- p2 text
FORM GET_DSO_FIELD .
***Determine DSO Parameter
PERFORM DSO_PARAMETER.
***Compute DSO
CALL FUNCTION 'CUSTOMER_DSO_CALCULATION'
 EXPORTING
 I_KKBER = s_cinfo-kkber
 I_KUNNR = s_cinfo-kunnr
 I_ANZBUPER = T000CM-DSOPP
 I_XCHILDS = T000CM-DSOCH
 I_ACTBALANCE = T000CM-DSOAB
 IMPORTING
 E_DSOIN = RF02L-DSOIN
 EXCEPTIONS
 ERROR_MESSAGE = 1.
ENDFORM. " GET_DSO_FIELD
*& Form DSO_PARAMETER
 text
--> p1 text
<-- p2 text
FORM DSO_PARAMETER.
IF T000CM-DSOPP IS INITIAL.
 SELECT SINGLE * FROM T000CM.
 IF SY-SUBRC EQ 0.
 IF T000CM-DSOPP IS INITIAL.
 T000CM-DSOPP = '003'.
 ENDIF.
 ELSE.
 T000CM-DSOPP = '003'.
 T000CM-DSOCH = ' '.
 T000CM-DSOAB = 'X'.
 ENDIF.
ENDIF.
ENDFORM. " DSO_PARAMETER
--> p1 text
<-- p2 text
FORM PERIODE_ERMITTELN_EXC USING
 P03_BUDAT LIKE SYST-DATUM
 P03_GJAHR LIKE KNC1-GJAHR
 P03_MONAT LIKE MONAT.
CALL FUNCTION 'FI_PERIOD_DETERMINE'
 EXPORTING
 I_BUDAT = P03_BUDAT
 I_PERIV = T001-PERIV
 I_BUKRS = T001-BUKRS
 I_GJAHR = P03_GJAHR
 I_MONAT = P03_MONAT
 IMPORTING
 E_GJAHR = P03_GJAHR
 E_MONAT = P03_MONAT
 EXCEPTIONS
 ERROR_MESSAGE = 1.
ENDFORM. "PERIODE_ERMITTELN_EXC
*& Form COMPUTE_SFIELDS
 text
--> p1 text
<-- p2 text
FORM COMPUTE_SFIELDS .
**Compute Balance
PERFORM GET_SFIELDS .
S_CINFO-DSOIN = RF02L-DSOIN.
S_CINFO-SALDO = RF035-SALDO.
S_CINFO-H06SA = RF035-H06SA.
S_CINFO-H06JA = RF035-H06JA.
S_CINFO-H06MO = RF035-H06MO.
S_CINFO-H12SA = RF035-H12SA.
S_CINFO-H12JA = RF035-H12JA.
S_CINFO-H12MO = RF035-H12MO.
S_CINFO-UMP2U = RF42B-UMP2U.
S_CINFO-UMP1U = RF42B-UMP1U.
S_CINFO-SFAEL = RF035-SFAEL.
S_CINFO-SFAE1 = RF035-SFAE1.
S_CINFO-SFAE2 = RF035-SFAE2.
S_CINFO-SFAE3 = RF035-SFAE3.
S_CINFO-SFAE4 = RF035-SFAE4.
S_CINFO-SFAE5 = RF035-SFAE5.
modify..
MODIFY I_CINFO FROM S_CINFO INDEX sytabix.
CLEAR: S_CINFO,RF035,RF02L, RF42B.
ENDFORM. " COMPUTE_SFIELDS
 text
 -->P_C_INFO_KUNNR text
FORM GET_CUST_BAL_INFO.
LOOP AT TCMTAB.
 CALL FUNCTION 'FI_COMPANY_CODE_DATA'
 EXPORTING
 I_BUKRS = TCMTAB-BUKRS
 IMPORTING
 E_T001 = T001
 EXCEPTIONS
 ERROR_MESSAGE = 1.
 IF SY-SUBRC = 0.
 MOVE-CORRESPONDING T001 TO BUKTAB.
 BUKTAB-KKBER = TCMTAB-KKBER.
 COLLECT BUKTAB.
 ENDIF.
ENDLOOP.
LOOP AT BUKTAB WHERE PERIV NE SPACE.
 GJATAB-PERIV = BUKTAB-PERIV.
 COLLECT GJATAB.
ENDLOOP.
CLEAR: MONAT.
LOOP AT GJATAB.
 T001-PERIV = GJATAB-PERIV.
 CLEAR: GJAHR, MONAT.
 PERFORM PERIODE_ERMITTELN_EXC USING SY-DATLO GJAHR MONAT.
 CHECK SY-SUBRC = 0.
 GJATAB-GJAHR = GJAHR.
 GJATAB-MONAT = MONAT.
 SELECT SINGLE * FROM T009 WHERE PERIV = GJATAB-PERIV.
 IF SY-SUBRC = 0.
 GJATAB-ANZBP = T009-ANZBP.
 ENDIF.
 MODIFY GJATAB.
ENDLOOP.
LOOP AT BUKTAB.
 CHECK NOT ( BUKTAB-PERIV IS INITIAL ).
 READ TABLE GJATAB WITH KEY BUKTAB-PERIV.
 CHECK SY-SUBRC = 0
 AND NOT ( GJATAB-GJAHR IS INITIAL ).
 CALL FUNCTION 'CUSTOMER_BALANCE'
 EXPORTING
 KUNNR = S_cinfo-kunnr
 BUKRS = BUKTAB-BUKRS
 GJAHR = GJATAB-GJAHR
 MONAT = GJATAB-MONAT
 PERIV = GJATAB-PERIV
 ANZBP = GJATAB-ANZBP
 XH6MON = 'X'
 XH12MON = 'X'
 IMPORTING
 UMP2U = RF42B-UMP2U
 VMP2U = RF42B-UMP1U
 SALDO = RF035-SALDO
 UML01 = SALDO-UML01
 UML02 = SALDO-UML02
 UML03 = SALDO-UML03
 UML04 = SALDO-UML04
 UML05 = SALDO-UML05
 UML06 = SALDO-UML06
 UML07 = SALDO-UML07
 UML08 = SALDO-UML08
 UML09 = SALDO-UML09
 UML10 = SALDO-UML10
 UML11 = SALDO-UML11
 UML12 = SALDO-UML12
 EXCEPTIONS
 NO_BALANCE = 4.
 IF SY-SUBRC = 0.
 SKNKK-UMP1U = SKNKK-UMP1U + RF42B-UMP1U.
 SKNKK-UMP2U = SKNKK-UMP2U + RF42B-UMP2U.
 SKNKK-SALDO = SKNKK-SALDO + RF035-SALDO.
 SKNKK-UML01 = SKNKK-UML01 + SALDO-UML01.
 SKNKK-UML02 = SKNKK-UML02 + SALDO-UML02.
 SKNKK-UML03 = SKNKK-UML03 + SALDO-UML03.
 SKNKK-UML04 = SKNKK-UML04 + SALDO-UML04.
 SKNKK-UML05 = SKNKK-UML05 + SALDO-UML05.
 SKNKK-UML06 = SKNKK-UML06 + SALDO-UML06.
 SKNKK-UML07 = SKNKK-UML07 + SALDO-UML07.
 SKNKK-UML08 = SKNKK-UML08 + SALDO-UML08.
 SKNKK-UML09 = SKNKK-UML09 + SALDO-UML09.
 SKNKK-UML10 = SKNKK-UML10 + SALDO-UML10.
 SKNKK-UML11 = SKNKK-UML11 + SALDO-UML11.
 SKNKK-UML12 = SKNKK-UML12 + SALDO-UML12.
 ENDIF.
ENDLOOP.
ENDFORM. "
*& Form GET_SFIELDS
 text
--> p1 text
<-- p2 text
FORM GET_SFIELDS .
sknkk-kunnr = S_CINFO-KUNNR.
**Clear target to store computed values
CLEAR: RF035.
**Compute Balance fields
PERFORM GET_CUST_BAL_INFO.
REFRESH: SALTAB.
SALTAB-LNUMM = '01'. SALTAB-SALDO = SKNKK-UML01. APPEND SALTAB.
SALTAB-LNUMM = '02'. SALTAB-SALDO = SKNKK-UML02. APPEND SALTAB.
SALTAB-LNUMM = '03'. SALTAB-SALDO = SKNKK-UML03. APPEND SALTAB.
SALTAB-LNUMM = '04'. SALTAB-SALDO = SKNKK-UML04. APPEND SALTAB.
SALTAB-LNUMM = '05'. SALTAB-SALDO = SKNKK-UML05. APPEND SALTAB.
SALTAB-LNUMM = '06'. SALTAB-SALDO = SKNKK-UML06. APPEND SALTAB.
SALTAB-LNUMM = '07'. SALTAB-SALDO = SKNKK-UML07. APPEND SALTAB.
SALTAB-LNUMM = '08'. SALTAB-SALDO = SKNKK-UML08. APPEND SALTAB.
SALTAB-LNUMM = '09'. SALTAB-SALDO = SKNKK-UML09. APPEND SALTAB.
SALTAB-LNUMM = '10'. SALTAB-SALDO = SKNKK-UML10. APPEND SALTAB.
SALTAB-LNUMM = '11'. SALTAB-SALDO = SKNKK-UML11. APPEND SALTAB.
SALTAB-LNUMM = '12'. SALTAB-SALDO = SKNKK-UML12. APPEND SALTAB.
READ TABLE SALTAB INDEX 1.
RF035-H06SA = SALTAB-SALDO.
RF035-H06MO = SALTAB-LNUMM.
RF035-H12SA = SALTAB-SALDO.
RF035-H12MO = SALTAB-LNUMM.
------ SALTAB ---------------------------------------------
LOOP AT SALTAB.
 IF SALTAB-SALDO > RF035-H06SA
 AND SY-TABIX < 7.
 RF035-H06SA = SALTAB-SALDO.
 RF035-H06MO = SALTAB-LNUMM.
 ENDIF.
 IF SALTAB-SALDO > RF035-H12SA
 AND SY-TABIX < 13.
 RF035-H12SA = SALTAB-SALDO.
 RF035-H12MO = SALTAB-LNUMM.
 ENDIF.
ENDLOOP.
------ Period--------------------
REFRESH LT_PERIODS.
CLEAR LD_COUNTER.
READ TABLE BUKTAB INDEX 1.
IF SY-SUBRC = 0.
 READ TABLE GJATAB WITH KEY BUKTAB-PERIV.
 DO GJATAB-MONAT TIMES
 VARYING LD_PERIOD FROM LD_PERIODS(2) NEXT LD_PERIODS+2(2)
 RANGE LD_PERIODS.
 LT_PERIODS-GJAHR = GJATAB-GJAHR.
 LT_PERIODS-PERIOD = LD_PERIOD.
 LD_COUNTER = LD_COUNTER + 1.
 APPEND LT_PERIODS.
 ENDDO.
 IF LD_COUNTER LT 12.
 LD_GJAHR = GJATAB-GJAHR - 1.
 CLEAR T009Y.
 SELECT SINGLE * FROM T009Y WHERE PERIV = GJATAB-PERIV
 AND GJAHR = LD_GJAHR.
 DO GJATAB-ANZBP TIMES
 VARYING LD_PERIOD FROM LD_PERIODS(2) NEXT LD_PERIODS+2(2)
 RANGE LD_PERIODS.
 IF T009Y-ANZBP > 0.
 CHECK SY-INDEX <= T009Y-ANZBP.
 ENDIF.
 LD_COUNTER = LD_COUNTER + 1.
 LT_PERIODS-GJAHR = LD_GJAHR.
 LT_PERIODS-PERIOD = LD_PERIOD.
 APPEND LT_PERIODS.
 ENDDO.
 ENDIF.
 IF LD_COUNTER LT 12.
 LD_GJAHR = LD_GJAHR - 1.
 DO GJATAB-ANZBP TIMES
 VARYING LD_PERIOD FROM LD_PERIODS(2) NEXT LD_PERIODS+2(2)
 RANGE LD_PERIODS.
 LD_COUNTER = LD_COUNTER + 1.
 LT_PERIODS-GJAHR = LD_GJAHR.
 LT_PERIODS-PERIOD = LD_PERIOD.
 APPEND LT_PERIODS.
 ENDDO.
 ENDIF.
 SORT LT_PERIODS BY GJAHR ASCENDING PERIOD ASCENDING.
 LD_COUNTER = LD_COUNTER - 12.
 DO LD_COUNTER TIMES.
 DELETE LT_PERIODS INDEX 1.
 ENDDO.
 SORT LT_PERIODS BY GJAHR DESCENDING PERIOD DESCENDING.
 READ TABLE LT_PERIODS INDEX RF035-H06MO.
 RF035-H06MO = LT_PERIODS-PERIOD.
 RF035-H06JA = LT_PERIODS-GJAHR.
 READ TABLE LT_PERIODS INDEX RF035-H12MO.
 RF035-H12MO = LT_PERIODS-PERIOD.
 RF035-H12JA = LT_PERIODS-GJAHR.
ENDIF.
**Compute Due Dates fields
PERFORM GET_AGING_BUCKETS .
RF035-SFAE1 = SKNKK-SFAE1.
RF035-SFAE2 = SKNKK-SFAE2.
RF035-SFAE3 = SKNKK-SFAE3.
RF035-SFAE4 = SKNKK-SFAE4 .
RF035-SFAE5 = SKNKK-SFAE5.
ENDLOOP.
ENDFORM. " GET_BALANCE_SFIELDS
*& Form GET_AGING_BUCKETS
 text
--> p1 text
<-- p2 text
FORM GET_AGING_BUCKETS .
DATA: BEGIN OF LT_BUKRS OCCURS 0,
 BUKRS LIKE T001-BUKRS,
 END OF LT_BUKRS.
DATA: BEGIN OF LT_BUKTAB OCCURS 0,
 BUKRS LIKE T001-BUKRS,
 WAERS LIKE T001-WAERS,
 KKBER LIKE T014-KKBER,
 END OF LT_BUKTAB.
DATA: LD_LINES LIKE SY-TABIX.
*...performance optimization: for more than one company codes check....*
*...if balances exist and avoid selection of open items, if they don't.*
*...exist..............................................................*
REFRESH LT_BUKRS.
REFRESH LT_BUKTAB.
DESCRIBE TABLE BUKTAB LINES LD_LINES.
IF LD_LINES GT 1.
 SELECT DISTINCT BUKRS APPENDING CORRESPONDING FIELDS
 OF TABLE LT_BUKRS
 FROM KNC1 FOR ALL ENTRIES IN BUKTAB
 WHERE BUKRS = BUKTAB-BUKRS AND
 KUNNR = Sknkk-KUNNR.
 SELECT DISTINCT BUKRS APPENDING CORRESPONDING FIELDS
 OF TABLE LT_BUKRS
 FROM KNC3 FOR ALL ENTRIES IN BUKTAB
 WHERE BUKRS = BUKTAB-BUKRS AND
 KUNNR = Sknkk-KUNNR.
 SORT LT_BUKRS.
 DELETE ADJACENT DUPLICATES FROM LT_BUKRS.
 LOOP AT LT_BUKRS.
 LOOP AT BUKTAB WHERE BUKRS = LT_BUKRS-BUKRS.
 MOVE-CORRESPONDING BUKTAB TO LT_BUKTAB.
 APPEND LT_BUKTAB.
 ENDLOOP.
 ENDLOOP.
ELSE.
 READ TABLE BUKTAB INDEX 1.
 MOVE-CORRESPONDING BUKTAB TO LT_BUKTAB.
 APPEND LT_BUKTAB.
ENDIF.
*...process company codes for customer given by interface..........*
LOOP AT LT_BUKTAB WHERE KKBER = s_cinfo-KKBER.
 CALL FUNCTION 'CUSTOMER_DUE_DATE_ANALYSIS'
 EXPORTING BUKRS = LT_BUKTAB-BUKRS
 KKBER = ' '
 KKBER = s_cinfo-KKBER
 KUNNR = Sknkk-KUNNR
 RASID = RASID
 IMPORTING SFAE1 = RF035-SFAE1
 SFAE2 = RF035-SFAE2
 SFAE3 = RF035-SFAE3
 SFAE4 = RF035-SFAE4
 SFAE5 = RF035-SFAE5
 SFAEL = RF035-SFAEL
 EXCEPTIONS NO_OPEN_ITEMS = 4.
 IF SY-SUBRC = 0.
*-- RF035 -
 SKNKK-SFAE1 = SKNKK-SFAE1 + RF035-SFAE1.
 SKNKK-SFAE2 = SKNKK-SFAE2 + RF035-SFAE2.
 SKNKK-SFAE3 = SKNKK-SFAE3 + RF035-SFAE3.
 SKNKK-SFAE4 = SKNKK-SFAE4 + RF035-SFAE4.
 SKNKK-SFAE5 = SKNKK-SFAE5 + RF035-SFAE5.
 SKNKK-SFAE5 = SKNKK-SFAE5 + RF035-SFAE5.
 SKNKK-SFAEL = SKNKK-SFAEL + RF035-SFAEL.
 ENDIF.
ENDLOOP.
ENDFORM. " GET_AGING_BUCKETS
*& Form header
This Subroutine gets data for displaying title *
There are no interface parameters to be passed to this subroutine. *
FORM header .
wa_final-string = text-000. APPEND wa_final TO i_final.
wa_final-string = text-001. APPEND wa_final TO i_final.
wa_final-string = text-002. APPEND wa_final TO i_final.
wa_final-string = text-003. APPEND wa_final TO i_final.
wa_final-string = text-004. APPEND wa_final TO i_final.
wa_final-string = text-005. APPEND wa_final TO i_final.
wa_final-string = text-006. APPEND wa_final TO i_final.
wa_final-string = text-007. APPEND wa_final TO i_final.
wa_final-string = text-008. APPEND wa_final TO i_final.
wa_final-string = text-009. APPEND wa_final TO i_final.
wa_final-string = text-010. APPEND wa_final TO i_final.
wa_final-string = text-011. APPEND wa_final TO i_final.
wa_final-string = text-012. APPEND wa_final TO i_final.
wa_final-string = text-013. APPEND wa_final TO i_final.
wa_final-string = text-014. APPEND wa_final TO i_final.
wa_final-string = text-015. APPEND wa_final TO i_final.
wa_final-string = text-016. APPEND wa_final TO i_final.
wa_final-string = text-017. APPEND wa_final TO i_final.
wa_final-string = text-018. APPEND wa_final TO i_final.
wa_final-string = text-019. APPEND wa_final TO i_final.
wa_final-string = text-020. APPEND wa_final TO i_final.
wa_final-string = text-021. APPEND wa_final TO i_final.
wa_final-string = text-022. APPEND wa_final TO i_final.
wa_final-string = text-023. APPEND wa_final TO i_final.
wa_final-string = text-024. APPEND wa_final TO i_final.
ENDFORM. " header
*& Form DOWNLOADCREDITDATA
 text
 -->P_P_PATH text
FORM DOWNLOADCREDITDATA USING P_PATH.
DATA:
 lw_file2 TYPE string . " File Path
lw_file2 = p_PATH.
CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
BIN_FILESIZE = BIN_FILESIZE
 filename = lw_file2
 filetype = 'DBF'
APPEND = ' '
 write_field_separator = ' '
HEADER = '00'
TRUNC_TRAILING_BLANKS = 'X'
WRITE_LF = 'X'
 COL_SELECT = 'X'
COL_SELECT_MASK = ' '
DAT_MODE = 'X'
CONFIRM_OVERWRITE = ' '
NO_AUTH_CHECK = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
WRITE_BOM = ' '
TRUNC_TRAILING_BLANKS_EOL = 'X'
WK1_N_FORMAT = '0'
WK1_N_SIZE = ' '
WK1_T_FORMAT = ' '
WK1_T_SIZE = ' '
IMPORTING
FILELENGTH = FILELENGTH
 TABLES
 data_tab = I_CINFO
 fieldnames = i_final
 EXCEPTIONS
 file_write_error = 1
 no_batch = 2
 gui_refuse_filetransfer = 3
 invalid_type = 4
 no_authority = 5
 unknown_error = 6
 header_not_allowed = 7
 separator_not_allowed = 8
 filesize_not_allowed = 9
 header_too_long = 10
 dp_error_create = 11
 dp_error_send = 12
 dp_error_write = 13
 unknown_dp_error = 14
 access_denied = 15
 dp_out_of_memory = 16
 disk_full = 17
 dp_timeout = 18
 file_not_found = 19
 dataprovider_exception = 20
 control_flush_error = 21
IF sy-subrc <> 0.
Messege
ENDIF. " IF sy-subrc EQ 0
ENDFORM. " DOWNLOADCREDITDATA
*& Form DOWNLOAD_CREDIT_DATA
 text
--> p1 text
<-- p2 text
FORM DOWNLOAD_CREDIT_DATA .
PERFORM HEADER.
PERFORM DOWNLOADCREDITDATA USING P_PATH.
ENDFORM. " DOWNLOAD_CREDIT_DATA
*& Form GET_PGRESS_INDICATOR
 text
 -->P_L_TEXT text
 -->P_L_PCT text
FORM GET_PGRESS_INDICATOR USING L_TEXT
 L_PCT.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
 PERCENTAGE = l_pct
 TEXT = l_TEXT.
ENDFORM. " GET_PGRESS_INDICATOR

If you are just Downloading to a Flat file then why dont you have logic in place for the program to dump the data read into the file to that point depending on any criteria like accounts or customer then clear the internal table and run it in the back ground.
try to use cursor to read the records from the table which will make it a bit more efficient than plain select stement.

Performance issue in Report (getting time out error)

Hi experts,
I am doing Performance for a Report (getting time out error)
Please see the code below and .
while looping internal table IVBAP after 25 minutes its showing time out error at this poit ->
SELECT MAX( ERDAT ) .
please send alternate code for this .
Advance thanks
from
Nagendra
Get Sales Order Details
CLEAR IVBAP.
REFRESH IVBAP.
SELECT VBELN POSNR MATNR NETWR KWMENG WERKS FROM VBAP
 INTO CORRESPONDING FIELDS OF TABLE IVBAP
 FOR ALL ENTRIES IN IVBAK
 WHERE VBELN = IVBAK-VBELN
 AND MATNR IN Z_MATNR
 AND WERKS IN Z_WERKS
 AND ABGRU = ' '.
Check for Obsolete Materials - Get Product Hierarhy/Mat'l Description
SORT IVBAP BY MATNR WERKS.
CLEAR: WK_MATNR, WK_WERKS, WK_PRDHA, WK_MAKTX,
 WK_BLOCK, WK_MMSTA, WK_MSTAE.
LOOP AT IVBAP.
 CLEAR WK_INVDATE. "I6677.sn
 SELECT MAX( ERDAT ) FROM VBRP INTO WK_INVDATE WHERE
 AUBEL EQ IVBAP-VBELN AND
 AUPOS EQ IVBAP-POSNR.
 IF SY-SUBRC = 0.
 MOVE WK_INVDATE TO IVBAP-INVDT.
 MODIFY IVBAP.
 ENDIF. "I6677.e n
 SELECT SINGLE * FROM MBEW WHERE "I6759.sn
 MATNR EQ IVBAP-MATNR AND
 BWKEY EQ IVBAP-WERKS AND
 BWTAR EQ SPACE.
 IF SY-SUBRC = 0.
 MOVE MBEW-STPRS TO IVBAP-STPRS.
 IVBAP-TOT = MBEW-STPRS * IVBAP-KWMENG.
 MODIFY IVBAP.
 ENDIF. "I6759.en
 IF IVBAP-MATNR NE WK_MATNR OR IVBAP-WERKS NE WK_WERKS.
 CLEAR: WK_BLOCK, WK_MMSTA, WK_MSTAE, WK_PRDHA, WK_MAKTX.
 MOVE IVBAP-MATNR TO WK_MATNR.
 MOVE IVBAP-WERKS TO WK_WERKS.
 SELECT SINGLE MMSTA FROM MARC INTO MARC-MMSTA
 WHERE MATNR = WK_MATNR
 AND WERKS = WK_WERKS.
 IF NOT MARC-MMSTA IS INITIAL.
 MOVE '*' TO WK_MMSTA.
 ENDIF.
 SELECT SINGLE LVORM PRDHA MSTAE MSTAV FROM MARA
 INTO (MARA-LVORM, MARA-PRDHA, MARA-MSTAE, MARA-MSTAV)
 WHERE MATNR = WK_MATNR.
 IF ( NOT MARA-MSTAE IS INITIAL ) OR
 ( NOT MARA-MSTAV IS INITIAL ) OR
 ( NOT MARA-LVORM IS INITIAL ).
 MOVE '*' TO WK_MSTAE.
 ENDIF.
 MOVE MARA-PRDHA TO WK_PRDHA.
 SELECT SINGLE MAKTX FROM MAKT INTO WK_MAKTX
 WHERE MATNR = WK_MATNR
 AND SPRAS = SY-LANGU.
 ENDIF.
 IF Z_BLOCK EQ 'B'.
 IF WK_MMSTA EQ ' ' AND WK_MSTAE EQ ' '.
 DELETE IVBAP.
 CONTINUE.
 ENDIF.
 ELSEIF Z_BLOCK EQ 'U'.
 IF WK_MMSTA EQ '' OR WK_MSTAE EQ ''.
 DELETE IVBAP.
 CONTINUE.
 ENDIF.
 ELSE.
 IF WK_MMSTA EQ '' OR WK_MSTAE EQ ''.
 MOVE '*' TO WK_BLOCK.
 ENDIF.
 ENDIF.
 IF WK_PRDHA IN Z_PRDHA. "I4792
 MOVE WK_BLOCK TO IVBAP-BLOCK.
 MOVE WK_PRDHA TO IVBAP-PRDHA.
 MOVE WK_MAKTX TO IVBAP-MAKTX.
 MODIFY IVBAP.
 ELSE. "I4792
 DELETE IVBAP. "I4792
 ENDIF. "I4792
 IF NOT Z_ALNUM[] IS INITIAL. "I9076
 SELECT SINGLE * FROM MAEX "I9076
 WHERE MATNR = IVBAP-MATNR "I9076
 AND ALNUM IN Z_ALNUM. "I9076
 IF SY-SUBRC <> 0. "I9076
 DELETE IVBAP. "I9076
 ENDIF. "I9076
 ENDIF. "I9076
ENDLOOP.

Hi Nagendra!
Get Sales Order Details
CLEAR IVBAP.
REFRESH IVBAP.
check ivbak is not initial
SELECT VBELN POSNR MATNR NETWR KWMENG WERKS FROM VBAP
INTO CORRESPONDING FIELDS OF TABLE IVBAP
FOR ALL ENTRIES IN IVBAK
WHERE VBELN = IVBAK-VBELN
AND MATNR IN Z_MATNR
AND WERKS IN Z_WERKS
AND ABGRU = ' '.
Check for Obsolete Materials - Get Product Hierarhy/Mat'l Description
SORT IVBAP BY MATNR WERKS.
CLEAR: WK_MATNR, WK_WERKS, WK_PRDHA, WK_MAKTX,
WK_BLOCK, WK_MMSTA, WK_MSTAE.
avoid select widin loop. instead do selection outside loop.u can use read statement......and then loop if required.
LOOP AT IVBAP.
CLEAR WK_INVDATE. "I6677.sn
SELECT MAX( ERDAT ) FROM VBRP INTO WK_INVDATE WHERE
AUBEL EQ IVBAP-VBELN AND
AUPOS EQ IVBAP-POSNR.
IF SY-SUBRC = 0.
MOVE WK_INVDATE TO IVBAP-INVDT.
MODIFY IVBAP.
ENDIF. "I6677.e n
SELECT SINGLE * FROM MBEW WHERE "I6759.sn
MATNR EQ IVBAP-MATNR AND
BWKEY EQ IVBAP-WERKS AND
BWTAR EQ SPACE.
IF SY-SUBRC = 0.
MOVE MBEW-STPRS TO IVBAP-STPRS.
IVBAP-TOT = MBEW-STPRS * IVBAP-KWMENG.
MODIFY IVBAP.
ENDIF. "I6759.en
IF IVBAP-MATNR NE WK_MATNR OR IVBAP-WERKS NE WK_WERKS.
CLEAR: WK_BLOCK, WK_MMSTA, WK_MSTAE, WK_PRDHA, WK_MAKTX.
MOVE IVBAP-MATNR TO WK_MATNR.
MOVE IVBAP-WERKS TO WK_WERKS.
SELECT SINGLE MMSTA FROM MARC INTO MARC-MMSTA
WHERE MATNR = WK_MATNR
AND WERKS = WK_WERKS.
IF NOT MARC-MMSTA IS INITIAL.
MOVE '*' TO WK_MMSTA.
ENDIF.
SELECT SINGLE LVORM PRDHA MSTAE MSTAV FROM MARA
INTO (MARA-LVORM, MARA-PRDHA, MARA-MSTAE, MARA-MSTAV)
WHERE MATNR = WK_MATNR.
IF ( NOT MARA-MSTAE IS INITIAL ) OR
( NOT MARA-MSTAV IS INITIAL ) OR
( NOT MARA-LVORM IS INITIAL ).
MOVE '*' TO WK_MSTAE.
ENDIF.
MOVE MARA-PRDHA TO WK_PRDHA.
SELECT SINGLE MAKTX FROM MAKT INTO WK_MAKTX
WHERE MATNR = WK_MATNR
AND SPRAS = SY-LANGU.
ENDIF.
IF Z_BLOCK EQ 'B'.
IF WK_MMSTA EQ ' ' AND WK_MSTAE EQ ' '.
DELETE IVBAP.
CONTINUE.
ENDIF.
ELSEIF Z_BLOCK EQ 'U'.
IF WK_MMSTA EQ '' OR WK_MSTAE EQ ''.
DELETE IVBAP.
CONTINUE.
ENDIF.
ELSE.
IF WK_MMSTA EQ '' OR WK_MSTAE EQ ''.
MOVE '*' TO WK_BLOCK.
ENDIF.
ENDIF.
IF WK_PRDHA IN Z_PRDHA. "I4792
MOVE WK_BLOCK TO IVBAP-BLOCK.
MOVE WK_PRDHA TO IVBAP-PRDHA.
MOVE WK_MAKTX TO IVBAP-MAKTX.
MODIFY IVBAP.
ELSE. "I4792
DELETE IVBAP. "I4792
ENDIF. "I4792
IF NOT Z_ALNUM[] IS INITIAL. "I9076
SELECT SINGLE * FROM MAEX "I9076
WHERE MATNR = IVBAP-MATNR "I9076
AND ALNUM IN Z_ALNUM. "I9076
IF SY-SUBRC 0. "I9076
DELETE IVBAP. "I9076
ENDIF. "I9076
ENDIF. "I9076
endloop.
U have used many select queries widin loop-endloop which is a big hindrance as far as performance is concerned.Avoid such practice.
Thanks
Deepika

Time limit error no matter what optimization I do...

Hello Experts,
I am trying to optimize the code below since it always results in time limi error when we transport
it to production server. I have tried eliminating some select inside the loop and using for all entries
but it still gets the error. Anyway, below is the code and I hoe you can help me out on this one guys.
Thank you and take care!
LOOP AT lt_vbap ASSIGNING <wa_vbap>.
 IF <wa_vbap>-auart EQ 'ZUCI' OR
 <wa_vbap>-auart EQ 'ZURV' OR
 <wa_vbap>-auart EQ 'ZUPR'.
 Check if a delivery document has been created
 CLEAR wa_vbill. "used wa_vbfa-vbeln instead of wa_vbill
*Start of modification - AVH - 04/11/07
*/ Used read table instead of fetching records from database every loop
 SELECT SINGLE vbeln
 FROM vbfa
 INTO wa_vbill
 WHERE vbelv = <wa_vbap>-vbeln
 AND ( ( vbtyp_n EQ 'J' AND vbtyp_v = 'C' )
 OR ( vbtyp_n EQ 'T' AND vbtyp_v = 'H' ) ).
 CLEAR wa_vbfa.
 READ TABLE lt_vbfa INTO wa_vbfa WITH KEY vbelv = <wa_vbap>-vbeln
 vbtyp_n = 'J'
 vbtyp_v = 'C'
 BINARY SEARCH
 TRANSPORTING vbeln.
 IF sy-subrc <> 0.
 READ TABLE lt_vbfa INTO wa_vbfa WITH KEY vbelv = <wa_vbap>-vbeln
 vbtyp_n = 'T'
 vbtyp_v = 'H'
 BINARY SEARCH
 TRANSPORTING vbeln.
 ENDIF.
*End of modification - AVH - 04/11/07
 IF sy-subrc <> 0.
 <wa_vbap>-del_ind = 'X'.
 CONTINUE.
 ELSE.
 Check if within selection parameters
 CLEAR wa_likp.
*Start of modification - AVH - 04/11/07
 READ TABLE lt_likp INTO wa_likp WITH KEY vbeln = wa_vbill.
 READ TABLE lt_likp INTO wa_likp WITH KEY vbeln = wa_vbfa-vbeln.
*End of modification - AVH - 04/11/07
*Start of modification - AVH - 04/11/07
*/ Used wa_vbfa instead of variable wa_vbill
 IF sy-subrc <> 0.
 SELECT SINGLE *
 FROM likp
 INTO wa_likp
 WHERE vbeln = wa_vbill.
 SELECT SINGLE *
 FROM likp
 INTO wa_likp
 WHERE vbeln = wa_vbfa-vbeln.
*End of modification - AVH - 04/11/07
 APPEND wa_likp TO lt_likp.
 ENDIF.
 IF NOT wa_likp-wadat_ist IN s_erdat.
 <wa_vbap>-del_ind = 'X'.
 CONTINUE.
 ENDIF.
 ENDIF.
 ELSE.
Check if this has already been billed
 CLEAR wa_vbill. "Used wa_vbfa instead of wa_vbill
*Start of modification - AVH - 04/11/07
*/ Used read table instead of fetching records from database every loop
 SELECT SINGLE vbeln
 FROM vbfa
 INTO wa_vbill
 WHERE vbelv = <wa_vbap>-vbeln
 AND ( ( vbtyp_n EQ 'M' AND vbtyp_v = 'C' )
 OR ( vbtyp_n EQ 'O' AND vbtyp_v = 'H' ) ).
 CLEAR wa_vbfa.
 READ TABLE lt_vbfa INTO wa_vbfa WITH KEY vbelv = <wa_vbap>-vbeln
 vbtyp_n = 'M'
 vbtyp_v = 'C'
 BINARY SEARCH
 TRANSPORTING vbeln.
 IF sy-subrc <> 0.
 READ TABLE lt_vbfa INTO wa_vbfa WITH KEY vbelv = <wa_vbap>-vbeln
 vbtyp_n = 'O'
 vbtyp_v = 'H'
 BINARY SEARCH
 TRANSPORTING vbeln.
 ENDIF.
*End of modification - AVH - 04/11/07
 IF sy-subrc <> 0.
 <wa_vbap>-del_ind = 'X'.
 CONTINUE.
 ELSE.
 Check if within selection parameters
 CLEAR wa_vbrk.
*Start of modification - AVH - 04/11/07
*/ Used wa_vbfa instead of variable wa_vbill.
 READ TABLE lt_vbrk INTO wa_vbrk WITH KEY vbeln = wa_vbill.
 READ TABLE lt_vbrk INTO wa_vbrk WITH KEY vbeln = wa_vbfa-vbeln.
 IF sy-subrc <> 0.
 SELECT SINGLE vbeln fkdat
 FROM vbrk
 INTO wa_vbrk
 WHERE vbeln = wa_vbill.
 APPEND wa_vbrk TO lt_vbrk.
 SELECT SINGLE vbeln fkdat
 FROM vbrk
 INTO wa_vbrk
 WHERE vbeln = wa_vbfa-vbeln.
 APPEND wa_vbrk TO lt_vbrk.
 ENDIF.
*End of modification
 IF NOT wa_vbrk-fkdat IN s_erdat.
 <wa_vbap>-del_ind = 'X'.
 CONTINUE.
 ENDIF.
 ENDIF.
 ENDIF.
Get Material Type and Division
 IF <wa_vbap>-spart IS NOT INITIAL.
 SELECT SINGLE mtart
 FROM mara
 INTO lv_mtart
 WHERE matnr = <wa_vbap>-matnr.
 ELSE.
 SELECT SINGLE mtart spart
 FROM mara
 INTO (lv_mtart,<wa_vbap>-spart)
 WHERE matnr = <wa_vbap>-matnr.
 ENDIF.
If material division is same as parameter division
 IF <wa_vbap>-spart = p_spart.
If material is subsidiary-owned
 IF <wa_vbap>-spart in lr_spart.
 If customer is the same as that of parameter division
 IF <wa_vbap>-kunnr NE lr_kunnr OR <wa_vbap>-auart EQ 'ZUDO' OR <wa_vbap>-auart EQ 'ZUS3'.
 If item is a free good, tag order type as 'ZUPR' to treat
 the item the same way as 'ZUPR'
 IF <wa_vbap>-pstyv = 'TANN' OR
 <wa_vbap>-pstyv = 'ZKNF' OR
 <wa_vbap>-pstyv = 'ZKNN' OR
 <wa_vbap>-pstyv = 'ZFLO' OR
 <wa_vbap>-pstyv = 'ZKBF' OR
 <wa_vbap>-pstyv = 'ZKLN' OR
 <wa_vbap>-pstyv = 'ZREN'.
 lv_auart = <wa_vbap>-auart.
 IF lv_auart EQ 'ZUPR'.
 CLEAR <wa_vbap>-pstyv.
 ENDIF.
 <wa_vbap>-auart = 'ZUPR'.
 CLEAR: lv_mtart.
 ENDIF.
 Set Cost of Goods Sold Account
 <wa_vbap>-cogshkont = '0050000010'.
 CASE <wa_vbap>-auart.
 WHEN 'ZUDO' OR 'ZUPR' OR 'ZUCI'.
 IF p_rtrns EQ 'X'.
 <wa_vbap>-del_ind = 'X'.
 CONTINUE.
 ENDIF.
 WHEN 'ZURD'.
 IF p_issue EQ 'X'.
 <wa_vbap>-del_ind = 'X'.
 CONTINUE.
 ENDIF.
 WHEN OTHERS.
 <wa_vbap>-del_ind = 'X'.
 CONTINUE.
 ENDCASE.
 CASE <wa_vbap>-auart.
 WHEN 'ZUPR'.
 CASE lv_mtart.
 WHEN 'ZUL4'.
 <wa_vbap>-del_ind = 'X'.
 CONTINUE.
 WHEN OTHERS.
 Check if division is defined in mapping table
 READ TABLE lt_ulsub INTO wa_ulsub
 WITH KEY spart = <wa_vbap>-spart.
 IF sy-subrc = 0.
 <wa_vbap>-kostl = wa_ulsub-kostlp.
 <wa_vbap>-bukrs = wa_ulsub-bukrsp.
 <wa_vbap>-type = 'TP'.
 Set Cost of Goods Sold Account
 IF lv_auart = 'ZUPR'.
 <wa_vbap>-cogshkont = '0050000006'.
 ENDIF.
 ELSE.
 <wa_vbap>-del_ind = 'X'.
 CONTINUE.
 ENDIF.
 ENDCASE.
 WHEN 'ZUCI' OR 'ZUDO' OR 'ZURD' OR 'ZUS3'.
 Get cost center from header text
 PERFORM get_cost_center USING <wa_vbap>-vbeln
 CHANGING <wa_vbap>-kostl.
* Change by LGTE 11-02-2006
 Check if Medvale sales
 IF <wa_vbap>-auart EQ 'ZUCI' AND <wa_vbap>-kostl IS INITIAL.
 <wa_vbap>-del_ind = 'X'.
 CONTINUE.
 Check if UL Cost Center
 ELSEIF <wa_vbap>-kostl NE gv_ul_kostl.
 IF <wa_vbap>-kostl NE gv_ul_kostl.
* End change.
 Get material division and check if subsidiary product
 SELECT SINGLE spart FROM mara INTO <wa_vbap>-spart
 WHERE matnr = <wa_vbap>-matnr.
 READ TABLE lt_ulsub INTO wa_ulsub
 WITH KEY spart = <wa_vbap>-spart.
 IF sy-subrc = 0.
 Get requestor's company code from cost center data
 SELECT SINGLE bukrs
 FROM csks
 INTO <wa_vbap>-bukrs
 WHERE kokrs = lc_kokrs
 AND kostl = <wa_vbap>-kostl
 AND datbi GE sy-datum
 AND datab LE sy-datum.
 IF sy-subrc = 0.
 For donations, only include if a subsidiary company is donating
 IF <wa_vbap>-auart EQ 'ZUDO' OR <wa_vbap>-auart EQ 'ZUS3'.
 IF NOT <wa_vbap>-kunnr IN lr_kunnrnt.
 <wa_vbap>-del_ind = 'X'.
 CONTINUE.
 ENDIF.
 CHECK <wa_vbap>-kunnr IN lr_kunnrnt.
 ENDIF.
 For ZUCI, if the company code of the costcenter is UL, do not include
 IF <wa_vbap>-bukrs EQ gc_ul_bukrs.
 <wa_vbap>-del_ind = 'X'.
 CONTINUE.
 ENDIF.
 IF <wa_vbap>-bukrs = wa_ulsub-bukrsp.
 <wa_vbap>-type = 'RV'.
 ELSE.
 <wa_vbap>-type = 'RV'.
 ENDIF.
 ELSE.
 Check if customer defined in table ZFI_DONATIONS
 SELECT SINGLE kunnr FROM zfi_donations INTO <wa_vbap>-kostl
 WHERE kunnr = <wa_vbap>-kostl.
 IF sy-subrc <> 0.
 lv_error = 'X'.
 CONCATENATE 'Cost center/Customer' <wa_vbap>-kostl
 'does not exist. Please check Sales Order'
 <wa_vbap>-vbeln
 INTO lt_disp-message SEPARATED BY space.
 lt_disp-type = 'E'.
 <wa_vbap>-del_ind = 'X'.
 APPEND lt_disp.
 CONTINUE.
 ELSE.
 <wa_vbap>-type = 'RV'.
 ENDIF.
 ENDIF.
 ELSE.
 <wa_vbap>-del_ind = 'X'.
 CONTINUE.
 ENDIF.
 ELSE.
 <wa_vbap>-del_ind = 'X'.
 CONTINUE.
 ENDIF.
 WHEN OTHERS.
 <wa_vbap>-del_ind = 'X'.
 CONTINUE.
 ENDCASE.
 ELSE.
 <wa_vbap>-del_ind = 'X'.
 CONTINUE.
 ENDIF.
 ELSE.
 <wa_vbap>-del_ind = 'X'.
 CONTINUE.
 ENDIF.
Get company code description
 SELECT SINGLE butxt
 FROM t001
 INTO <wa_vbap>-butxt
 WHERE bukrs = <wa_vbap>-bukrs.
 IF sy-subrc <> 0.
 SELECT SINGLE name1
 FROM kna1
 INTO <wa_vbap>-butxt
 WHERE kunnr = <wa_vbap>-kostl.
 ENDIF.
Change by LGTE on 11-02-2006
Get Transaction Type
 CASE <wa_vbap>-auart.
 WHEN 'ZUPR'. "UL Promo/Samples
 IF <wa_vbap>-pstyv = 'TANN' OR
 <wa_vbap>-pstyv = 'ZKNF' OR
 <wa_vbap>-pstyv = 'ZKNN' OR
 <wa_vbap>-pstyv = 'ZFLO' OR
 <wa_vbap>-pstyv = 'ZKBF' OR
 <wa_vbap>-pstyv = 'ZKLN' OR
 <wa_vbap>-pstyv = 'ZREN'.
 <wa_vbap>-ltext = 'Free Goods'.
 ELSE.
 <wa_vbap>-ltext = 'Product Samples'.
 ENDIF.
 WHEN 'ZUDO'. "Donations - R/3
 <wa_vbap>-ltext = 'Donations - R/3'.
 WHEN 'ZUCI'. "Donations - ZUCI
 <wa_vbap>-ltext = 'Donations - ZUCI'.
 WHEN 'ZURD' OR 'ZUS3'. "UL Returns - Donation
 <wa_vbap>-ltext = 'UL Returns - Donation'.
 ENDCASE.
Get cost center description
 SELECT SINGLE ltext FROM cskt INTO <wa_vbap>-ltext
 WHERE spras = sy-langu
 AND kokrs = lc_kokrs
 AND kostl = <wa_vbap>-kostl
 AND datbi GE sy-datum.
End of change.
Get material description
 SELECT SINGLE maktx
 FROM makt
 INTO <wa_vbap>-maktx
 WHERE matnr = <wa_vbap>-matnr
 AND spras = sy-langu.
Get division from material master
 SELECT SINGLE spart FROM mara INTO <wa_vbap>-spart
 WHERE matnr = <wa_vbap>-matnr.
Get division description
 SELECT SINGLE vtext
 FROM tspat
 INTO <wa_vbap>-vtext
 WHERE spras = sy-langu
 AND spart = <wa_vbap>-spart.
Get Valuation Class
 SELECT SINGLE bklas
 FROM mbew
 INTO lv_bklas
 WHERE matnr = <wa_vbap>-matnr.
Determine G/L of FG Based on Valuation Class
 READ TABLE lt_val_cls INTO wa_val_cls WITH TABLE KEY bklas = lv_bklas.
 <wa_vbap>-fghkont = wa_val_cls-hkont.
Determine Cost Center of Cogs Account
 READ TABLE lt_ulsub INTO wa_ulsub WITH TABLE KEY spart = <wa_vbap>-spart.
 <wa_vbap>-cogskostl = wa_ulsub-kostlp.
ENDLOOP. "ENDLOOP

Hi,
Hopefully it can help you:
1. Try remove all SELECT statement within LOOP, replace with select all data before LOOP using For ALL ENTRIES.
2. Try use READ TABLE using BINARY SEARCH. Don't forget to SORT the table according your Search Key.
If it still couldn;t help, try run your report in background.
Regards,

TIME-OUT error in BSAK select query(Progress Indicator is also used)

Hi,
    In my report program one select query is there on BSAK table, which is as follows --
       SELECT BUKRS
                     BELNR
                    GJAHR
                    SHKZG
                    BSCHL
                    UMSKZ
                    LIFNR
                    EBELN
                    EBELP
                    WRBTR
                    DMBTR
                    XZAHL
                    REBZG
                   AUGBL
                   BLART
                   AUFNR
                   AUGDT
                   BUZEI FROM BSAK
                              INTO TABLE IT_BSAK
                              FOR ALL ENTRIES IN IT_BKPF1
                               WHERE BUKRS = IT_BKPF1-BUKRS
                                            AND AUGDT = IT_BKPF1-BUDAT
                                            AND AUGBL = IT_BKPF1-BELNR
                                            AND BSCHL IN ('31' , '29', '26', '39', '25').
I used Progress Indicator befor running this query and after this query also. But still It's giving me TIME-OUT error in this select query only.
I run the same query for 10 records in IT_BKPF1 table, it runs perfectly. But when I run it for 1000 records it giving dump.
And in actual bussiness my records are always more than 100 only.
I also check the indexing. It having secondary indexing on this BUKRS, AUGDT, AUGBL fields. Then also it's giving error.
so, How can I solve this dump..?? What could be the reason..??
Thanks in advance...!!
Regards,
Poonam.

Hi Poonam Patil,
Try to provide BELNR and GJAHR in where condition...
BKPF-DBBLG ==> BSAK-BELNR
Also check
BKPF-BLDAT ==> BSAK-AUGDT
Check out above relation...
If data is there in these fields of the table and both are matching then you can pass it and as they are in primary key of BSAK it will improve the performance...
Hope it will solve your problem..
Thanks & Regards
ilesh 24x7
ilesh Nandaniya

Time Out error problem when i run the report for the whole plant

Dear all,
pls find the below coding, when i execute this report for the whole plant , it gives me time out error since it has to process huge database. pls suggest me in which part of my below coding i can improvise or any other better way to fetch the same result.
pls note that
i m using Views for querying.pls also note the comments given in Bold to understand the reason behind the coding.
Views used in are - ZVPOD and ZVPRDCONF.
START-OF-SELECTION.
Data: zstat type jest-stat.
data: stklocaf type mska-lgort.
data: stklocas type mska-lgort.
To collect the status of the production order by joining the ZVPOD and JEST table.
CLEAR it_ZVPRODDET.
SELECT DISTINCT ZVPOD~bukrs ZVPOD~aufnr ZVPOD~objnr
jest~stat ZVPOD~werks ZVPOD~arbpl ZVPOD~J_3AKORD2
FROM ZVPOD
INNER JOIN jest ON ZVPOD~objnr = jest~objnr
INTO CORRESPONDING FIELDS OF wa_ZVPRODDET where
plnbez in FGM and arbpl in wc and werks in plant
and SSAVD in eldate
and J_3AKORD2 in cups and jest~inact ne 'X'.
 APPEND wa_ZVPRODDET TO it_ZVPRODDET.
ENDSELECT.
SORT it_ZVPRODDET BY aufnr stat.
Loop thru Itab to check and delete the records from itab for the specified status.
LOOP AT it_ZVPRODDET INTO wa_ZVPRODDET.
 IF wa_ZVPRODDET-stat = 'I0045' . " TECO - compl
 DELETE it_ZVPRODDET WHERE aufnr = wa_ZVPRODDET-aufnr.
 ELSEIF wa_ZVPRODDET-stat = 'I0009' . " CNF - Confirmed
 DELETE it_ZVPRODDET WHERE aufnr = wa_ZVPRODDET-aufnr.
 ELSEIF wa_ZVPRODDET-stat = 'I0012' . " DLV - Delivered
 DELETE it_ZVPRODDET WHERE aufnr = wa_ZVPRODDET-aufnr.
 ELSEIF wa_ZVPRODDET-stat = 'I0046' . " CLSD - Closed
 DELETE it_ZVPRODDET WHERE aufnr = wa_ZVPRODDET-aufnr.
 ELSEIF wa_ZVPRODDET-stat = 'I0076' . " DLFL - Del Flag
 DELETE it_ZVPRODDET WHERE aufnr = wa_ZVPRODDET-aufnr.
 ELSEIF wa_ZVPRODDET-stat = 'E0003' . " SCLS - Short Close
 CLEAR tj30t.
 SELECT SINGLE txt04
 FROM tj30t INTO tj30t-txt04
 WHERE stsma = 'PRDHOLD' AND
 estat = 'E0003' AND
 txt04 = 'SCLS' AND
 spras = 'EN'.
 IF sy-subrc = 0.
 DELETE it_ZVPRODDET WHERE aufnr = wa_ZVPRODDET-aufnr.
 ENDIF.
 ENDIF.
* Condition for Prod Order released - REL
 IF wa_ZVPRODDET-stat = 'I0002'.
 mreleased = 'Y'.
 else.
 mreleased = 'N'.
 endif.
 zstat = wa_ZVPRODDET-stat.
 IF mreleased = 'N'.
 DELETE it_ZVPRODDET WHERE aufnr = wa_ZVPRODDET-aufnr
 and stat = zstat.
 ENDIF.
ENDLOOP.
Loop thru the filtered ITAB to get all the production order details for the production order number specified in the where clause( zaufnr ) and populate another internal table.
 LOOP AT it_ZVPRODDET INTO wa_ZVPRODDET.
 zaufnr = wa_zvproddet-aufnr.
 zarbid = wa_zvproddet-arbid.
 at new aufnr.
 SELECT DISTINCT * INTO CORRESPONDING FIELDS OF walnpln
 FROM zvpod where plnbez in FGM and arbpl in wc and SSAVD in
 eldate and werks in plant and J_3AKORD2 in cups and aufnr = zaufnr.
 APPEND walnpln TO itablnpln.
 endselect.
 endat.
 endloop.
 clear walnpln.

Looping thru Internal table and performs all the following calculations and inner loop
and also relevant querying.
Assume that ITABLNPLN holds appox. 8000 records.
LOOP AT itablnpln INTO walnpln.
 contot = 0.
 SELECT distinct * INTO CORRESPONDING FIELDS OF TABLE itablnp
 FROM zvprdconf where aufnr = walnpln-aufnr and
 j_3asize = walnpln-j_3akordx and stzhl ne '2' and stokz ne 'X'.
 clear zvprdconf.
 SELECT single isdd
 FROM zvprdconf into zvprdconf-isdd
 where aufnr = walnpln-aufnr and
 j_3asize = walnpln-j_3akordx and stzhl ne '2' and stokz ne 'X'.
 SELECT single isdz
 FROM zvprdconf into zvprdconf-isdz
 where aufnr = walnpln-aufnr and
 j_3asize = walnpln-j_3akordx and stzhl ne '2' and stokz ne 'X'.
 IF sy-subrc EQ 0.
 Assume that ITABLNP holds appox. 30 records.
 loop at itablnp into walnp.
 contot = contot + walnp-J_3ALMNGA.
 move walnp-J_3ASIZE to walnpln-J_3ASIZE.
 move zvprdconf-isdd to walnpln-zdate.
 move zvprdconf-isdz to walnpln-ztime.
 endloop.
 walnpln-output = contot.
 endif.
 walnpln-wip = walnpln-menge - contot.
 if walnpln-werks = '1000'.
 stklocaf = '1050'.
 stklocas = '1060'.
 elseif walnpln-werks = '2000'.
 stklocaf = '2150'.
 stklocas = '2160'.
 endif.
 select single kunnr into walnpln-ship from vbpa where
 vbeln = walnpln-KDAUF and PARVW = 'WE'.
 zship = walnpln-ship.
 move zship to walnpln-ship.
 select single kalab into walnpln-zactqty from mska
 where matnr = walnpln-plnbez
 and j_3asize = walnpln-J_3AKORDX and LGORT = stklocaf.
 condense walnpln-kdauf.
 zsales = walnpln-kdauf.
 concatenate zsales 'S' into zso.
 select single kalab into walnpln-zsndqty from mska
 where matnr = walnpln-plnbez
 and j_3asize = walnpln-J_3AKORDX and LGORT = stklocas
 and J_4KSCAT = zso.
 zmatn = walnpln-plnbez.
 zsale = walnpln-KDAUF.
 walnpln-kdauf = zsale.
 walnpln-plnbez = zmatn.
 zcust = walnpln-kunnr.
 walnpln-kunnr = zcust.
 select single bezei into walnpln-season from TVV2T where
 kvgr2 = walnpln-kvgr2 and SPRAS = 'E'.
 select single bezei into walnpln-shipmode from T173T where
 vsart = walnpln-vsart and SPRAS = 'E'.
 STRL = strlen( walnpln-j_3akord2 ).
 if strl = 4.
 move walnpln-j_3akord2 to walnpln-j_3akord3.
 clear walnpln-j_3akord2.
 endif.
 move zremk to walnpln-remk.
 MODIFY itablnpln FROM walnpln.
 contot = 0.
 clear itablnp.
 ENDLOOP.
 PERFORM build_fieldcatalog.
 PERFORM build_layout.
 PERFORM display_alv_report.

Hi raja,
Plese go through the suggessitions.
1.avoide the select ...endselect. write the below select
CLEAR IT_ZVPRODDET.
SELECT DISTINCT
 ZVPOD~BUKRS
 ZVPOD~AUFNR
 ZVPOD~OBJNR
 JEST~STAT
 ZVPOD~WERKS
 ZVPOD~ARBPL
 ZVPOD~J_3AKORD2
FROM ZVPOD
INNER JOIN JEST ON ZVPOD~OBJNR = JEST~OBJNR
INTO CORRESPONDING FIELDS TABLE IT_ZVPRODDET
WHERE PLNBEZ IN FGM AND
 ARBPL IN WC AND
 WERKS IN PLANT AND
 SSAVD IN ELDATE AND
 J_3AKORD2 IN CUPS AND
 JEST~INACT NE 'X'.
IF SY-SUBRC = 0.
 SORT TABLE IT_ZVPRODDET.
ENDIF.
2..first of all dont delete a record inside the loop. instead use the Field symobols.
have u obsereved you code in the loop!!!!. wht u r doing..
u r removing the same record which u in the loop..
If u wanto delete the entires with check to stat... then.. why dont u put the STAT field in Wher e condition..? by this you reduce the data base select time..
Now the select query is like the below....
CLEAR IT_ZVPRODDET.
SELECT DISTINCT
 ZVPOD~BUKRS
 ZVPOD~AUFNR
 ZVPOD~OBJNR
 JEST~STAT
 ZVPOD~WERKS
 ZVPOD~ARBPL
 ZVPOD~J_3AKORD2
FROM ZVPOD
INNER JOIN JEST ON ZVPOD~OBJNR = JEST~OBJNR
INTO CORRESPONDING FIELDS TABLE IT_ZVPRODDET
WHERE PLNBEZ IN FGM AND
 ARBPL IN WC AND
 WERKS IN PLANT AND
 SSAVD IN ELDATE AND
 J_3AKORD2 IN CUPS AND
 JEST~INACT NE 'X' AND
 ( STAT <> 'I0045' AND
 STAT <> 'I0045' AND
 STAT <> 'I0009' AND
 STAT <> 'I0012' AND
 STAT <> 'I0046' AND
 STAT <> 'I0076' AND
 STAT <> 'E0003' ).
IF SY-SUBRC = 0.
 SORT TABLE IT_ZVPRODDET.
ENDIF.
3. WHT IS MEANING OF THE SELECT
 CLEAR TJ30T.
SELECT SINGLE TXT04
FROM TJ30T INTO TJ30T-TXT04
WHERE STSMA = 'PRDHOLD' AND
 ESTAT = 'E0003' AND
 TXT04 = 'SCLS' AND
 SPRAS = 'EN'.
IF SY-SUBRC = 0.
 DELETE IT_ZVPRODDET WHERE AUFNR = WA_ZVPRODDET-AUFNR.
ENDIF........ IN WHERE CONDION U R GIven all are constant values right?..
why u need select it inside the loop.. u can write before the SELECT from ZVPOD..
that why first checke this field then go for fur thure selects..
now u r code looks like this....
CLEAR TJ30T.
SELECT SINGLE TXT04
FROM TJ30T INTO TJ30T-TXT04
WHERE STSMA = 'PRDHOLD' AND
 ESTAT = 'E0003' AND
 TXT04 = 'SCLS' AND
 SPRAS = 'EN'.
IF SY-SUBRC = 0.
CLEAR IT_ZVPRODDET.
SELECT DISTINCT
 ZVPOD~BUKRS
 ZVPOD~AUFNR
 ZVPOD~OBJNR
 JEST~STAT
 ZVPOD~WERKS
 ZVPOD~ARBPL
 ZVPOD~J_3AKORD2
 FROM ZVPOD
 INNER JOIN JEST ON ZVPOD~OBJNR = JEST~OBJNR
 INTO CORRESPONDING FIELDS TABLE IT_ZVPRODDET
 WHERE PLNBEZ IN FGM AND
 ARBPL IN WC AND
 WERKS IN PLANT AND
 SSAVD IN ELDATE AND
 J_3AKORD2 IN CUPS AND
 JEST~INACT NE 'X' AND
 JEST~STAT <> 'I0045' AND
 JEST~STAT <> 'I0045' AND
 JEST~STAT <> 'I0009' AND
 JEST~STAT <> 'I0012' AND
 JEST~STAT <> 'I0046' AND
 JEST~STAT <> 'I0076' AND
 JEST~STAT <> 'E0003' ).
 IF SY-SUBRC = 0.
 SORT TABLE IT_ZVPRODDET.
 ENDIF.
ENDIF.
there are so many select inside the loop...... please Delete all of them.... write them be for the loop.......using the FOR ALL ENTRIES.....
THEN LOOP THE TABLE USING THE WHERE CONDITIONS.
Plese write u updated code here again..

Invalid Time Interval error

Hi Friends,
I am loading HR data from Source. It loaded correctly without issues upto PSA and when i trigger the DTP from the PSA to the IO 0EMPLOYEE, I am getting the following error.
"0EMPLOYEE : Data record 25 ('00001028 ') : Invalid time interval '['20070731'/'20070527'] '[from/to]     RSDMD     189".
It shows about 7 entries in the error for employee 00001028.
When i check the data in PSA the from and to Values are correct.
Person           Start Date        End Date
1028              01.10.2002      26.05.2007
                      27.05.2007      31.07.2007
                      01.08.2007      31.01.2008
                      01.02.2008      29.02.2008
                      01.03.2008      27.09.2008
                      28.09.2002      31..12.2008
                      01.01.2009      31.12.9999
So, the from Data and to Date is correct yet I am getting the Invalid Time Interval error and my data load is failing.
It is happening for a all the records.
Can someone please tell me /suggets me how to resolve this issue?.
Yore help is appreciated.
Regards
BN

Hi,
Please check the note:
310304 -> DATETO/DATEFROM:Extracting time-dependent master
http://help.sap.
com/saphelp_nw70/helpdata/en/13/c3e7379899d06fe10000009b38f8cf/frameset.
htm
It should resolved your issue.
Thanks,
Venkat

Question on Time Machine error log

I have a program (Time Machine Error Log) that keeps track of the message log entries that occurr after you do a Time Machine backup.
I am getting two messages each time Time Machine completes a backup.
Here are the two message from the last log:
Jan 13 17:39:29 xxxxxx-iMac.local com.apple.backupd[36854]: Error: Error Domain=NSOSStatusErrorDomain Code=-36 "The operation couldn‚Äôt be completed. (OSStatus error -36.)" (ioErr: I/O error (bummers)) deleting backup: /Volumes/Time Machine Backups/Back
Last Successful Backup Message:
Jan 13 17:39:37 xxxxxx-iMac.local com.apple.backupd[36854]: Backup completed successfully.
How can there be an error reported stating "deleting backup", then a message stating "Backup completed successfully"?
If I didn't check the log, I wouldn't know that there was a problem, because the Time Machine preferences pane tells me the last backup time, and the next backup time, indicating all went well.
I just need some verification that my backups are completing successfully.
Thank
Len

There is a lot of rubbish messages that TM produces.. if the final message is that all is good, then I would say all is good.. it is pretty quick to decide when something isn't good.
But I would say.. there is only one way to know a backup is good. Restore it.
You don't need to test restore over current drive.. plug in an external drive and restore.
You can do a verify.. hold the option key whilst clicking the TM icon in the top menu area.. and the option verify will appear.. click that. It really doesn't test more than files are readable though, AFAIK.
Do a disk image occasionally.. Disk Utility can create an image.. but superduper even free download version can do a full disk image. Makes me feel safer knowing that I have a backup TM doesn't actually have anything to do with.

Connection time out error in HTTP

Hey guys
i m getting connection time out error in a HTTP scenario,when i go in SXMB_ADM i dont find any entry with the name HTTP_TIMEOUT.
even in RZ10 i cant find the correct profile parameter.
i m taking help from michaels blog
/people/michal.krawczyk2/blog/2006/06/08/xi-timeouts-timeouts-timeouts
i m on PI7.0 SP09
is there some other place i can find this entry? or do i need to ask the basis guys to add it?
thanx
ahmad

Also, there may be other factors to consider depending on your scenario. If you don't have it already, look at the latest <a href="http://service.sap.com/~sapidb/011000358700005909032005E/XI30XI70_TroubleGuide.pdf">XI Troubleshooting Guide</a> - Section 9.2 on "Timeouts in XI".
Regards,
Jin

Time out error in production server for alv grid report

hi. i have developed alv grid report using nested select statments. when i testing in development server it is giving the output but in production server if i give 4 months then it is showing time out error.please help me out..its urgent.
Thanks in advance.

Hi Manu,
Don't use Nested selected statements.
Use the Following Performance Tuning Options that i have given below so that your problem can be solved.
1) Always check the driver internal tables is not empty, while using FOR ALL ENTRIES
2) Avoid for all entries in JOINS
3) Try to avoid joins and use FOR ALL ENTRIES.
4) Try to restrict the joins to 1 level only ie only for tables
5) Avoid using Select *.
6) Avoid having multiple Selects from the same table in the same object.
7) Try to minimize the number of variables to save memory.
8) The sequence of fields in 'where clause' must be as per primary/secondary index ( if any)
9) Avoid creation of index as far as possible
10) Avoid operators like <>, > , < & like % in where clause conditions
11) Avoid select/select single statements in loops.
12) Try to use 'binary search' in READ internal table. Ensure table is sorted before using BINARY SEARCH.
13) Avoid using aggregate functions (SUM, MAX etc) in selects ( GROUP BY , HAVING,)
14) Avoid using ORDER BY in selects
15) Avoid Nested Selects
16) Avoid Nested Loops of Internal Tables
17) Try to use FIELD SYMBOLS.
18) Try to avoid into Corresponding Fields of
19) Avoid using Select Distinct, Use DELETE ADJACENT

Reward Points for sure if you find it useful. 
Regards
Babu

Time out error in report - Urgent

Hi Gurus,
 Am developing the report for GL Account summary from tables bkpf, bseg. Due to lot of records in production server it is coming time out error. Please help me regarding this here am attaching my code.
REPORT ZFBLREPORT.
*TABLES : zgltax.
TYPE-POOLS : SLIS.
TYPES : BEGIN OF TY_ZGLTAX,
 ZGL TYPE BSEG-HKONT,
 ZTAX1 TYPE P DECIMALS 2,
 ZTAX2 TYPE P DECIMALS 2,
 CAMOUNT TYPE RF42B-SALDO,
 PAMOUNT TYPE RF42B-SALDO,
 TCAMOUNT TYPE RF42B-SALDO,
 TPAMOUNT TYPE RF42B-SALDO,
 END OF TY_ZGLTAX.
TYPES : BEGIN OF TY_BKPF,
 BELNR TYPE BKPF-BELNR,
 BUDAT TYPE BKPF-BUDAT,
 END OF TY_BKPF.
TYPES : BEGIN OF TY_BSEG,
 BELNR TYPE BSIS-BELNR,
 DMBTR TYPE BSIS-DMBTR,
 SHKZG TYPE BSIS-SHKZG,
 HKONT TYPE BSIS-HKONT,
 BUDAT TYPE BSIS-BUDAT,
 BUZEI TYPE BSIS-BUZEI,
 END OF TY_BSEG.
DATA : IT_FINAL TYPE STANDARD TABLE OF TY_ZGLTAX,
 WA_FINAL TYPE TY_ZGLTAX.
DATA : IT_BKPF TYPE STANDARD TABLE OF TY_BKPF,
 WA_BKPF TYPE TY_BKPF.
DATA : IT_BSEG TYPE STANDARD TABLE OF TY_BSEG,
 WA_BSEG TYPE TY_BSEG.
DATA: CAMOUNT TYPE RF42B-SALDO,
 PAMOUNT TYPE RF42B-SALDO.
DATA : INDEX TYPE SY-INDEX.
DATA : ID TYPE SY-TABIX.
DATA : START_DATE TYPE SY-DATUM.
DATA : END_DATE TYPE SY-DATUM.
DATA : START_QUATER TYPE SY-DATUM.
DATA : YEAR1(4) TYPE C.
DATA : T_FIELDALV TYPE SLIS_T_FIELDCAT_ALV.
DATA : IMPORT_VARIANT LIKE DISVARIANT.
DATA : XREPID LIKE SY-REPID.
DATA : LAYOUT TYPE SLIS_LAYOUT_ALV.
SELECTION-SCREEN BEGIN OF BLOCK BK1 WITH FRAME TITLE TEXT-001.
PARAMETER : P_PERIOD(1) TYPE C OBLIGATORY,
 P_YEAR(4) TYPE C OBLIGATORY.
SELECTION-SCREEN END OF BLOCK BK1.
AT SELECTION-SCREEN ON P_PERIOD.
IF P_PERIOD > '4' OR P_PERIOD < '1'.
 P_PERIOD = ''.
 MESSAGE 'Enter Correct Quater Period' TYPE 'E'.
ENDIF.
START-OF-SELECTION.
PERFORM CALC_DATE.
PERFORM BUILD_LOGIC.
PERFORM INITIAL_ALV_FIELDCAT CHANGING T_FIELDALV[].
PERFORM LAYOUT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = SY-REPID
 I_GRID_TITLE = 'FBT Report'
 i_callback_top_of_page = 'FORM_TOP_PAGE'
 it_sort = p_sort
 IS_LAYOUT = LAYOUT
 IT_FIELDCAT = T_FIELDALV[]
 I_SAVE = 'A'
 TABLES
 T_OUTTAB = IT_FINAL.
*& Form calc_date
 text
--> p1 text
<-- p2 text
FORM CALC_DATE .
IF P_PERIOD = '1'.
 CONCATENATE P_YEAR '04' '01' INTO START_DATE.
 CONCATENATE P_YEAR '04' '01' INTO START_QUATER.
 CONCATENATE P_YEAR '06' '30' INTO END_DATE.
ELSEIF P_PERIOD = '2'.
 CONCATENATE P_YEAR '04' '01' INTO START_DATE.
 CONCATENATE P_YEAR '07' '01' INTO START_QUATER.
 CONCATENATE P_YEAR '09' '30' INTO END_DATE.
ELSEIF P_PERIOD = '3'.
 CONCATENATE P_YEAR '04' '01' INTO START_DATE.
 CONCATENATE P_YEAR '10' '01' INTO START_QUATER.
 CONCATENATE P_YEAR '12' '31' INTO END_DATE.
ELSEIF P_PERIOD = '4'.
 CONCATENATE P_YEAR '04' '01' INTO START_DATE.
 YEAR1 = P_YEAR + 1.
 CONCATENATE YEAR1 '01' '01' INTO START_QUATER.
 CONCATENATE YEAR1 '03' '31' INTO END_DATE.
ENDIF.
ENDFORM. " calc_date
*& Form build_logic
 text
--> p1 text
<-- p2 text
FORM BUILD_LOGIC .
SELECT * FROM ZGLTAX INTO CORRESPONDING FIELDS OF TABLE IT_FINAL.
IF IT_FINAL[] IS NOT INITIAL.
 LOOP AT IT_FINAL INTO WA_FINAL.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 INPUT = WA_FINAL-ZGL
 IMPORTING
 OUTPUT = WA_FINAL-ZGL.
 INDEX = SY-TABIX.
 SELECT belnr dmbtr shkzg hkont budat buzei
 SELECT *
 FROM BSIS
 INTO CORRESPONDING FIELDS OF TABLE IT_BSEG
 WHERE
 BUKRS = '3599' AND
 HKONT = WA_FINAL-ZGL
 AND GJAHR = P_YEAR.
Uses primary index (4.7)
 SELECT *
 FROM BSAS
 APPENDING CORRESPONDING FIELDS OF TABLE IT_BSEG
 WHERE
 BUKRS = '3599' AND
 HKONT = WA_FINAL-ZGL
 AND GJAHR = P_YEAR.
 LOOP AT IT_BSEG INTO WA_BSEG .
 IF WA_BSEG-BUDAT >= START_DATE AND WA_BSEG-BUDAT <= END_DATE.
 IF WA_BSEG-SHKZG = 'S'.
 CAMOUNT = CAMOUNT - WA_BSEG-DMBTR.
 ELSEIF WA_BSEG-SHKZG = 'H'.
 CAMOUNT = CAMOUNT + WA_BSEG-DMBTR.
 ENDIF.
 ENDIF.
 IF WA_BSEG-BUDAT >= START_QUATER AND WA_BSEG-BUDAT <= END_DATE.
 IF WA_BSEG-SHKZG = 'S'.
 PAMOUNT = PAMOUNT - WA_BSEG-DMBTR.
 ELSEIF WA_BSEG-SHKZG = 'H'.
 PAMOUNT = PAMOUNT + WA_BSEG-DMBTR.
 ENDIF.
 ENDIF.
 ENDLOOP.
 WA_FINAL-CAMOUNT = CAMOUNT.
 WA_FINAL-PAMOUNT = PAMOUNT.
 WA_FINAL-TCAMOUNT = CAMOUNT * WA_FINAL-ZTAX1 * WA_FINAL-ZTAX2 / (
100 * 100 ).
 WA_FINAL-TPAMOUNT = PAMOUNT * WA_FINAL-ZTAX1 * WA_FINAL-ZTAX2 / (
100 * 100 ).
 MODIFY IT_FINAL FROM WA_FINAL INDEX INDEX.
 REFRESH IT_BSEG.
 ENDLOOP.
ENDIF.
ENDFORM. " build_logic
*& Form layout
 text
FORM LAYOUT .
LAYOUT-NO_SUBTOTALS = ' '.
ENDFORM. " LAYOUT
*& Form initial_alv_fieldcat
 text
 -->FIELDCAT text
FORM INITIAL_ALV_FIELDCAT CHANGING FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA : LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA : CNTR TYPE I VALUE 1.
CLEAR LS_FIELDCAT.
CNTR = CNTR + 1.
LS_FIELDCAT-COL_POS = CNTR.
LS_FIELDCAT-FIELDNAME = 'ZGL'.
LS_FIELDCAT-SELTEXT_L = 'GL A/C NO'.
LS_FIELDCAT-OUTPUTLEN = 15.
APPEND LS_FIELDCAT TO FIELDCAT.
CLEAR LS_FIELDCAT.
CNTR = CNTR + 1.
LS_FIELDCAT-COL_POS = CNTR.
LS_FIELDCAT-FIELDNAME = 'ZTAX1'.
LS_FIELDCAT-SELTEXT_L = 'BASE TAX PERCENTAGE'.
LS_FIELDCAT-OUTPUTLEN = 15.
APPEND LS_FIELDCAT TO FIELDCAT.
CLEAR LS_FIELDCAT.
CNTR = CNTR + 1.
LS_FIELDCAT-COL_POS = CNTR.
LS_FIELDCAT-FIELDNAME = 'ZTAX2'.
LS_FIELDCAT-SELTEXT_L = 'TAX PERCENTAGE'.
LS_FIELDCAT-OUTPUTLEN = 15.
APPEND LS_FIELDCAT TO FIELDCAT.
CLEAR LS_FIELDCAT.
CNTR = CNTR + 1.
LS_FIELDCAT-COL_POS = CNTR.
LS_FIELDCAT-FIELDNAME = 'CAMOUNT'.
LS_FIELDCAT-SELTEXT_L = 'CUMULATIVE AMOUNT'.
LS_FIELDCAT-OUTPUTLEN = 20.
APPEND LS_FIELDCAT TO FIELDCAT.
CLEAR LS_FIELDCAT.
CNTR = CNTR + 1.
LS_FIELDCAT-COL_POS = CNTR.
LS_FIELDCAT-FIELDNAME = 'TCAMOUNT'.
LS_FIELDCAT-SELTEXT_L = 'Cumulative Tax % Amount'.
LS_FIELDCAT-OUTPUTLEN = 20.
APPEND LS_FIELDCAT TO FIELDCAT.
CLEAR LS_FIELDCAT.
CNTR = CNTR + 1.
LS_FIELDCAT-COL_POS = CNTR.
LS_FIELDCAT-FIELDNAME = 'PAMOUNT'.
LS_FIELDCAT-SELTEXT_L = 'AMOUNT FOR PERIOD'.
LS_FIELDCAT-OUTPUTLEN = 20.
APPEND LS_FIELDCAT TO FIELDCAT.
CLEAR LS_FIELDCAT.
CNTR = CNTR + 1.
LS_FIELDCAT-COL_POS = CNTR.
LS_FIELDCAT-FIELDNAME = 'TPAMOUNT'.
LS_FIELDCAT-SELTEXT_L = 'Tax AMOUNT FOR PERIOD'.
LS_FIELDCAT-OUTPUTLEN = 20.
APPEND LS_FIELDCAT TO FIELDCAT.
ENDFORM. "initial_alv_fieldcat
Points will be awarded
Regards
Ravi

Hi Ravi kanth,
You are using select * statement which is very time consuming and low performance. Dont use select * instead use select field1 field2.... into table itab where field1 = s_field. Use corresponding field names in the select statement.
Follow the below rules.
1) Dont use nested select statements
2) If possible use for all entries in addition
3) In the where addition make sure you give all the primary key
4) Use Index for the selection criteria.
5) You can also use inner joins
6) You can try to put the data from the first select statement into an Itab and then in order to select the data from the second table use for all entries in.
7) Use the runtime analysis SE30 and SQL Trace (ST05) to identify the performance and also to identify where the load is heavy, so that you can change the code accordingly
reward if useful.
Regards,
sunil kairam.

Error: 0271: Real Time Clock Error - Check Date and Time settings.

Hello all,
I have lenovo T430s laptop that is configured with Bitlocker encruptions and TPM PIN entry. I don't think that has anything to do with the error msg I am getting but here it is. Error: 0271: Real Time Clock Error - Check Date and Time settings.
Press Esc to continue or F1 to enter setup. I am unable to get into BIOS or even the login screen for Windows 7.
Any advice would be appreciated.

Thanks to everyone for the help. Just want to close this out. I had a IBM/Lenovo technician here today and he replaced the CMOS battery. Upon the change, the computer is fine being reconnected to the dock (the three times I tried it). So it has been resolved with the battery. Surprised by the incompatibility claim because I am not having issues now. Wondering if it's just a USB 2.0 vs. 3.0 thing (and Lenovo trying to sell more peripherals, of course).
Thanks!

PERFORMANCE -TIME OUT ERROR (430) IN ESTABLISHING A DIALOGUE ASYNCHRONOUS

Hi all,
I have created a flow(program) and while executing the same program in the development server i am getting the desired output.
But when i execute the same program in the background mode (it fails in the foreground after 9 or 10 hrs giving the same error message) in the quality server, its giving time-out error 430 ( 00-430 TIME OUT IN ESTABLISHING A DIALOGUE ASYNCHRONOUS ).
Can someone explain me, what this error is all about.
It will be helpful,if you also teach me how to correct the same error.
NOTE : The DataBase tables being used in this program has fewer entries in the Development Server (in between 100 and 200 entries in each of the tables) whereas in the Quality server its much more (almost 3crore entries in each of the tables).
Regards,
YOGESH BABU K
Edited by: YogeshKS on Jun 13, 2011 11:37 AM
Edited by: YogeshKS on Jun 13, 2011 11:39 AM

Hi all,
I have created a flow(program) and while executing the same program in the development server i am getting the desired output.
But when i execute the same program in the background mode (it fails in the foreground after 9 or 10 hrs giving the same error message) in the quality server, its giving time-out error 430 ( 00-430 TIME OUT IN ESTABLISHING A DIALOGUE ASYNCHRONOUS ).
Can someone explain me, what this error is all about.
It will be helpful,if you also teach me how to correct the same error.
NOTE : The DataBase tables being used in this program has fewer entries in the Development Server (in between 100 and 200 entries in each of the tables) whereas in the Quality server its much more (almost 3crore entries in each of the tables).
Regards,
YOGESH BABU K
Edited by: YogeshKS on Jun 13, 2011 11:37 AM
Edited by: YogeshKS on Jun 13, 2011 11:39 AM

Time entry error

Similar Messages

Maybe you are looking for