system performance

Former Member — Sat, 19 Apr 2008 10:38:57 GMT

hi.

i have a problem . this program is taking so much time .

can we reduce the execution time?

pls help me.

code is

&----

*& Report ZTEST11

&----

REPORT ZTEST11 NO STANDARD PAGE HEADING LINE-SIZE 191

LINE-COUNT 65

MESSAGE-ID zfimsg.

*-- table declarations

TABLES: bkpf,

bseg,

t001,

lfa1,

t003t,

payr.

*-- internal table declarations

DATA:BEGIN OF i_lfa1 OCCURS 0,

lifnr LIKE lfa1-lifnr,

name1 LIKE lfa1-name1,

opbal LIKE bseg-dmbtr,

END OF i_lfa1.

DATA:BEGIN OF i_bkpf OCCURS 0,

belnr LIKE bkpf-belnr,

blart LIKE bkpf-blart,

gjahr LIKE bkpf-gjahr,

budat LIKE bkpf-budat,

bldat LIKE bkpf-bldat,

xblnr LIKE bkpf-xblnr,

END OF i_bkpf.

DATA:BEGIN OF i_bseg OCCURS 0,

belnr LIKE bseg-belnr, " Document no

koart LIKE bseg-koart, " Account type

shkzg LIKE bseg-shkzg, " Debit/Credit Indicator

ktosl LIKE bseg-ktosl, " Transaction

hkont LIKE bseg-hkont, " GL Account

sgtxt LIKE bseg-sgtxt, " Item Text

END OF i_bseg.

DATA:BEGIN OF i_t003t OCCURS 0,

spras LIKE t003t-spras,

blart LIKE t003t-blart, " Document Type

ltext LIKE t003t-ltext, " Doc Type Desc

END OF i_t003t,

BEGIN OF i_skat OCCURS 0,

saknr LIKE skat-saknr, " gl account

txt20 LIKE skat-txt20, " gl account text

END OF i_skat,

BEGIN OF i_payr OCCURS 0,

zbukr like payr-zbukr,

vblnr LIKE payr-vblnr,

chect LIKE payr-chect,

laufd LIKE payr-laufd,

END OF i_payr,

BEGIN OF itab OCCURS 0,

bukrs LIKE bkpf-bukrs,

gjahr LIKE bkpf-gjahr,

lifnr LIKE lfa1-lifnr,

budat LIKE bkpf-budat,

name1 LIKE lfa1-name1,

opbal LIKE bseg-dmbtr,

belnr LIKE bkpf-belnr,

blart LIKE bkpf-blart,

debit LIKE bseg-dmbtr,

credit LIKE bseg-dmbtr,

sgtxt LIKE bseg-sgtxt,

bldat LIKE bkpf-bldat,

xblnr LIKE bkpf-xblnr,

wt_qbshh LIKE with_item-wt_qbshh,

ltext LIKE t003t-ltext,

chect LIKE payr-chect,

laufd LIKE payr-laufd,

txt20 like skat-txt20,

saknr like skat-saknr,

balance like bseg-dmbtr,

hkont like bseg-hkont,

END OF itab.

DATA:BEGIN OF i_witem OCCURS 0,

belnr TYPE with_item-belnr,

buzei TYPE with_item-buzei,

wt_qbshh TYPE with_item-wt_qbshh,

END OF i_witem.

DATA:itab_key_bal LIKE bapi3007_3 OCCURS 0 WITH HEADER LINE.

DATA:ibal LIKE itab_key_bal OCCURS 0 WITH HEADER LINE.

DATA : v_butxt LIKE t001-butxt.

*-- work variables

DATA: w_gjahr1 LIKE bkpf-gjahr,

w_gjahr2 LIKE bkpf-gjahr, "#EC *

w_pdate LIKE bkpf-budat,

w_name1 LIKE lfa1-name1,

w_opbal LIKE bseg-dmbtr,

w_cbal LIKE bseg-dmbtr,

w_cfbal LIKE bseg-dmbtr,

w_sbal LIKE bseg-dmbtr,

w_ftotal LIKE bseg-dmbtr,

w_cftotal LIKE bseg-dmbtr,

w_ctot LIKE bseg-dmbtr,

w_dtot LIKE bseg-dmbtr,

balance like bseg-dmbtr,

total like bseg-dmbtr.

*-- selection screen

SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME TITLE tit.

PARAMETERS: p_bukrs LIKE bkpf-bukrs OBLIGATORY.

SELECT-OPTIONS: s_lifnr FOR lfa1-lifnr,

s_belnr FOR bkpf-belnr.

*--

CHANGE CODE ( ADD PROFIT CENTER)--

SELECT-OPTIONS : S_PRCTR FOR BSEG-PRCTR.

*--

END CHANGE--

parameters: p_gjahr like bkpf-gjahr OBLIGATORY.

SELECT-OPTIONS: s_budat FOR bkpf-budat OBLIGATORY.

SELECTION-SCREEN END OF BLOCK blk.

*-- initialization

INITIALIZATION.

tit = 'Selection Block'.

*-- at selection screen

AT SELECTION-SCREEN ON s_budat.

CALL FUNCTION 'BAPI_COMPANYCODE_GET_PERIOD'

EXPORTING

companycodeid = p_bukrs

posting_date = s_budat-low

IMPORTING

fiscal_year = w_gjahr1

FISCAL_PERIOD =
RETURN =

CALL FUNCTION 'BAPI_COMPANYCODE_GET_PERIOD'

EXPORTING

companycodeid = p_bukrs

posting_date = s_budat-high

IMPORTING

fiscal_year = w_gjahr2

FISCAL_PERIOD =
RETURN =

IF p_gjahr NE '' AND p_gjahr NE w_gjahr1.

MESSAGE e000 WITH 'Enter valid dates'. "#EC *

ENDIF.

*-- start of selection

START-OF-SELECTION.

*data: burks type p_burks.

SELECT single butxt

FROM t001

INTO v_butxt

WHERE bukrs = p_bukrs.

if sy-subrc = 0.

SELECT lifnr name1

FROM lfa1

INTO CORRESPONDING FIELDS OF TABLE i_lfa1

WHERE lifnr IN s_lifnr.

endif.

*-- getting the opening balances for all vendors

PERFORM openingbalances.

select belnr

gjahr

budat

blart

BLDAT

XBLNR

from bkpf

into corresponding fields of table i_bkpf

where gjahr = p_gjahr and

budat in s_budat and

bukrs = p_bukrs and

blart = 'KZ' and

bstat = ''.

SELECT belnr

koart

shkzg

ktosl

hkont

sgtxt

FROM bseg

INTO TABLE i_bseg

FOR ALL ENTRIES IN i_bkpf

WHERE belnr = i_bkpf-belnr

*--

CHANGE CODE--

AND PRCTR IN S_PRCTR

*--

ENDCHANGE--

and koart in ('K').

select BELNR

BUZEI

WT_QBSHH

from with_item

into table i_witem

for all entries in i_bkpf

where belnr = i_bkpf-belnr AND

GJAHR = I_BKPF-GJAHR.

select zbukr

vblnr

chect

laufd

from payr

into table i_payr

for all entries in i_bkpf

where zbukr = p_bukrs and

vblnr = i_bkpf-belnr.

~~picking GL Account Details~~

SELECT saknr

txt20

FROM skat

INTO TABLE i_skat

FOR ALL ENTRIES IN i_bseg

WHERE saknr EQ i_bseg-hkont

AND spras EQ sy-langu

AND ktopl EQ p_bukrs.

~~picking Document Details~~

SELECT spras

blart

ltext

FROM t003t

INTO TABLE i_t003t

FOR ALL ENTRIES IN i_bkpf

WHERE blart = i_bkpf-blart

AND spras = 'EN'.

LOOP AT i_bkpf.

SELECT *

FROM bseg

WHERE belnr = i_bkpf-belnr AND

gjahr = i_bkpf-gjahr AND

bukrs = p_bukrs AND

koart = 'K' AND

lifnr IN s_lifnr

*----

and prctr in s_prctr

*----

itab-bukrs = p_bukrs.

itab-gjahr = i_bkpf-gjahr.

itab-lifnr = bseg-lifnr.

itab-bldat = i_bkpf-bldat.

itab-xblnr = i_bkpf-xblnr.

READ TABLE i_witem INTO i_witem WITH KEY belnr = i_bkpf-belnr.

IF sy-subrc IS INITIAL.

itab-wt_qbshh = i_witem-wt_qbshh.

ENDIF.

READ TABLE i_lfa1 WITH KEY lifnr = bseg-lifnr.

IF sy-subrc = 0.

itab-name1 = i_lfa1-name1.

itab-opbal = i_lfa1-opbal.

ENDIF.

itab-budat = i_bkpf-budat.

itab-belnr = i_bkpf-belnr.

itab-blart = i_bkpf-blart.

IF bseg-shkzg = 'S'.

itab-debit = bseg-dmbtr.

itab-credit = 0.

ELSEIF bseg-shkzg = 'H'.

itab-credit = bseg-dmbtr.

itab-debit = 0.

ENDIF.

itab-sgtxt = bseg-sgtxt.

~~to move GL Account details to final internal table~~

READ TABLE i_skat INTO i_skat WITH KEY saknr = i_bseg-hkont.

IF sy-subrc IS INITIAL.

itab-txt20 = i_skat-txt20.
itab-saknr = i_skat-saknr.

MOVE i_skat-txt20 TO itab-txt20. " Bank Name

MOVE i_skat-saknr TO itab-saknr.

ENDIF. "IF sy-subrc IS INITIAL

read table i_t003t into i_t003t with key blart = i_bkpf-blart.

itab-ltext = i_t003t-ltext.

*--to move doc number of the payment doc.

READ TABLE i_payr INTO i_payr WITH KEY vblnr = i_bkpf-belnr.

IF sy-subrc IS INITIAL.

itab-chect = i_payr-chect.

itab-laufd = i_payr-laufd.

ENDIF.

APPEND itab.

CLEAR itab.

ENDSELECT.

ENDLOOP.

loop at i_bseg.
READ TABLE i_skat INTO i_skat WITH KEY saknr = i_bseg-hkont.
IF sy-subrc IS INITIAL.

itab-txt20 = i_skat-txt20.
itab-saknr = i_skat-saknr.

MOVE i_skat-txt20 TO itab-txt20. " Bank Name
MOVE i_skat-saknr TO itab-saknr.
ENDIF. "IF sy-subrc IS INITIAL
append itab.
clear itab.
endloop.

LOOP AT i_lfa1.

READ TABLE itab WITH KEY lifnr = i_lfa1-lifnr.

IF sy-subrc NE 0.

itab-bukrs = p_bukrs.

itab-gjahr = p_gjahr.

itab-lifnr = i_lfa1-lifnr.

itab-name1 = i_lfa1-name1.

itab-opbal = i_lfa1-opbal.

APPEND itab.

CLEAR itab.

ENDIF.

ENDLOOP.

sort itab by bukrs gjahr lifnr budat.

LOOP AT itab.

w_name1 = itab-name1.

w_opbal = itab-opbal.

w_cbal = w_opbal * -1.

itab-debit = itab-debit + itab-wt_qbshh.

w_ctot = w_ctot + itab-credit.

w_dtot = w_dtot + itab-debit.

itab-balance = itab-credit.

if w_dtot is not initial.

itab-balance = itab-balance + w_dtot.

endif.

if w_ctot is not initial.

itab-balance = itab-balance - w_ctot.

endif.

clear itab-balance.

if w_dtot => 0.
itab-balance = itab-balance + w_dtot .
elseif w_dtot < 0.
itab-balance = itab-balance - w_dtot.
endif.

if w_ctot => 0.
itab-balance = itab-balance - w_ctot.
elseif w_ctot < 0.
itab-balance = itab-balance + w_ctot.
endif.

*clear itab-balance.

if w_dtot is not initial.
itab-balance = itab-balance + w_dtot.
endif .

AT new lifnr.

on change of s_lifnr.

w_cfbal = w_opbal.

FORMAT COLOR COL_NORMAL INTENSIFIED ON.

IF w_opbal GE 0.

WRITE:/01 sy-vline,

02 'Vendor:',

12(10) itab-lifnr,

26 w_name1,

177 sy-vline.

165 sy-vLINE.

WRITE:/01 sy-vline,

02 'Opening Balance:',

121(13) w_opbal, "#EC *

177 sy-vline.

165 sy-vLINE.

ELSEIF w_opbal LT 0.

WRITE:/01 sy-vline,

02 'Vendor:',

12(10) itab-lifnr,

26 w_name1,

177 sy-vline.

165 sy-vline.

WRITE:/01 sy-vline,

02 'Opening Balance:',

138(13) w_opbal, "#EC *

177 sy-vline.

165 sy-vline.

ENDIF.

FORMAT COLOR OFF.

ENDAT.

endon.

clear itab-balance.
w_dtot = itab-debit.
w_ctot = itab-credit.
itab-balance = w_opbal.
IF w_opbal GE 0.
itab-balance = itab-balance + w_dtot .
itab-balance = itab-balance - w_ctot.
elseif
w_opbal < 0 .
itab-balance = itab-balance + w_dtot.
itab-balance = itab-balance - w_ctot .
endif .

if w_dtot => 0.
itab-balance = itab-balance + w_dtot .
elseif w_dtot < 0.
itab-balance = itab-balance - w_dtot.
endif.

if w_ctot => 0.
itab-balance = itab-balance - w_ctot.
elseif w_ctot < 0.
itab-balance = itab-balance + w_ctot.
endif.

if w_dtot is not initial.

itab-balance = itab-balance + w_ctot .

endon.
endif.
if w_dtot is not initial.
itab-balance = itab-balance + w_dtot.

endon.

endif.

total = itab-balance .

if w_ctot ge 0 and w_dtot ge 0.

itab-balance = w_opbal + w_dtot - w_ctot.

itab-balance = itab-balance - w_ctot.

endif.

if w_ctot is not initial and w_dtot le 0.

itab-balance = w_opbal - w_dtot - w_ctot.

endif.

FORMAT COLOR COL_NORMAL INTENSIFIED OFF.

WRITE:/01 sy-vline,

02(10) itab-belnr CENTERED,

15 sy-vline,

16(10) itab-budat CENTERED,

27 sy-vline,

28(18) itab-ltext LEFT-JUSTIFIED,

45 sy-vline,

47(20) itab-txt20 CENTERED,
70 sy-vline,

46(50) itab-sgtxt LEFT-JUSTIFIED,

105 sy-vline,

106(15) itab-xblnr centered,

120 sy-vline,

121(16) itab-debit centered,

135 sy-vline,

136(16) itab-credit centered,

150 sy-vline,

151(13) itab-balance left-JUSTIFIED,

165 sy-vline.

164(14) itab-balance left-justified,
177 sy-vline.

FORMAT COLOR OFF.

AT END OF lifnr.

IF w_opbal LT 0.

w_ctot = w_ctot + w_cbal .

ELSEIF w_opbal GE 0.

w_dtot = w_dtot + w_opbal .

ENDIF.

CLEAR w_cbal.

CLEAR w_opbal.

CLEAR w_name1.

CLEAR w_ftotal.

CLEAR w_cftotal.

clear itab-balance.

SUM.

ULINE (177).

ULINE (165).

if itab-credit ge 0 and w_dtot ge 0.

w_ftotal = w_cfbal + w_dtot - itab-credit.

endif.

if itab-credit is not initial and w_dtot le 0.

w_ftotal = w_cfbal - w_dtot - itab-credit.

endif.

FORMAT COLOR COL_TOTAL ON.

WRITE:/01 sy-vline,

02 'Total:',

120(13) w_dtot right-justified, "#EC *

133(16) w_ctot, "#EC *

149(16) w_ftotal,

177 sy-vline.

165 sy-vline.

ULINE.

CLEAR: w_ctot,w_dtot.

w_ftotal = w_cfbal + itab-debit - itab-credit.

w_cftotal = w_ftotal * -1.

clear w_ctot.

clear w_dtot.

ENDAT.

ENDLOOP.

*-- top of page

TOP-OF-PAGE.

WRITE:/48 v_butxt. " COLOR COL_GROUP.

WRITE:/45 '----

WRITE:/48 'Creditors Ledger'. " COLOR COL_KEY.

WRITE:/45 '----

SKIP 1.

WRITE:/2 'Company Code:',16 p_bukrs,

108 'Page No :', sy-pagno.

WRITE:/2 'Fiscal Year :',16 p_gjahr.

WRITE:/2 'Period :', s_budat-low,'to', s_budat-high.

ULINE (177).

ULINE (165).

FORMAT COLOR COL_HEADING ON.

WRITE:/01 sy-vline,

02(12) 'Document No' CENTERED,

15 sy-vline,

16(10) 'PDate' CENTERED,

27 sy-vline,

28(20) 'Voucher Type' LEFT-JUSTIFIED,

45 sy-vline,

46(15) 'Account Name' CENTERED,
70 sy-vline,

46(12) 'Narration' CENTERED,

105 sy-vline,

106(12) 'Cheque / Bill No' CENTERED,

120 sy-vline,

121(16) 'Debit' CENTERED,

135 sy-vline,

136(16) 'Credit' CENTERED,

150 sy-vline,

151(10) 'Balance' CENTERED,

165 sy-vline.

164(14) 'Balance' left-justified,
177 sy-vline.

***endcode

FORMAT COLOR OFF.

ULINE (177).

ULINE (165).

&----

*& Form openingbalances

&----

text

----

--> p1 text
<-- p2 text

----

FORM openingbalances.

w_pdate = s_budat-low - 1.

LOOP AT i_lfa1.

CALL FUNCTION 'BAPI_AP_ACC_GETKEYDATEBALANCE'

EXPORTING

companycode = p_bukrs

vendor = i_lfa1-lifnr

keydate = w_pdate

balancespgli = 'X'

NOTEDITEMS = ' '
IMPORTING
RETURN =

TABLES

keybalance = itab_key_bal

REFRESH ibal.

CLEAR ibal.

CLEAR w_sbal.

APPEND LINES OF itab_key_bal TO ibal.

REFRESH itab_key_bal.

CLEAR itab_key_bal.

LOOP AT ibal.

ibal-lc_bal = ibal-lc_bal / 100.

w_sbal = w_sbal + ibal-lc_bal.

ENDLOOP.

i_lfa1-opbal = w_sbal.

MODIFY i_lfa1.

CLEAR i_lfa1.

REFRESH ibal.

CLEAR ibal.

CLEAR w_sbal.

ENDLOOP.

ENDFORM. " openingbalances

topic Re: system performance in Application Development and Automation Discussions

system performance

Re: system performance

Re: system performance