topic Re: Problem with AT......ENDAT statement..... in Application Development and Automation Discussions

Problem with AT......ENDAT statement.....

Former Member — Wed, 12 Nov 2008 18:39:13 GMT

Hi guys,

I am facing problem with AT....ENDAT statements.

Below is the input data.....

tgt_bukrs tgt_vbund

100C 280

100C 290

100C 600

100c 600

100C 600

100X 280

100X 290

100X 600

Below is my Data declaration & Code.

types: begin of t_itab,

tgt_bukrs type zit_bkpf-bukrs,

tgt_vbund type zit_item-vbund,

some other fields.

end of t_itab.

data : l_it_itab type standard table of t_itab,

l_wa_itab type t_itab,

l_wa_itab1 type t_itab.

CODE:

*Sort the internal table on the basis of Target Company code & trading partner

sort l_it_itab by tgt_bukrs tgt_vbund.

*Create the final entries.

loop at l_it_itab into l_wa_itab where gsber ne space.

*for new company code.

At new tgt_bukrs.

w_new_cc = 'X'.

endat.

if w_new_cc eq 'X'.

some code here............

endif.

some code here................

At end of tgt_vbund.

w_end_tp = 'X'.

endat.

if w_end_tp eq 'X'.

Some code here..........................

endloop.

PROBLEM IS :----

For 100C entries, At new tgt_bukrs & At end of tgt_vbund works fine.

But, for 100X entries, at new tgt_bukrs works fine but tgt_vbund is not trigerring whenever 100X & 280 entry comes.Also, At end of tgt_vbund is not trigerring for any of the 100X entries......

Can anyone help in this matter.....

cheers.

santosh.

COmplete code for reference.

types: begin of t_itab,

tgt_bukrs type zit_bkpf-bukrs,

tgt_vbund type zit_item-vbund,

btype type zit_item-btype,

gsber type zit_item-gsber,

hkont type zit_item-hkont,

buzei type zit_item-buzei,

bschl type zit_item-bschl,

dmbtr type zit_item-dmbtr,

shkzg type zit_item-shkzg,

pargb type zit_item-pargb,

wrbtr type zit_item-wrbtr,

saknr type zit_item-saknr,

werks type zit_item-werks,

vbund type zit_item-vbund,

koart type zit_item-koart,

kostl type zit_item-kostl,

XEGDR type zit_item-XEGDR,

secco type zit_item-secco,

flag_xml type zit_item-flag_xml,

fdlev type zit_item-fdlev,

btype type zit_item-btype,

geber type zit_item-geber,

fkber type zit_item-fkber,

dmbe2 type zit_item-dmbe2,

fikrs type fikrs,

end of t_itab.

data : l_it_itab type standard table of t_itab,

l_wa_itab type t_itab,

l_wa_itab1 type t_itab.

data l_tabix type sy-tabix.

Data Declaration

data :

wa_e1fiseg type zit_bseg,

it_e1fiseg_tmp type standard table of zit_bseg,

wa_e1fiseg_tmp type zit_bseg,

wa_e1fikpf type zit_e1fikpf,

w_gsber type gsber,

w_hkont type hkont,

w_buzei type buzei,

w_kostl type kostl,

w_secco type secco,

w_bukrs type bukrs,

w_blart type blart,

w_sumwrbtr type wrbtr,

w_sumdmbtr type dmbtr,

w_sumdmbe2 type dmbtr,

w_cashaccount type hkont,

flag_newdoc type i ,

flag_doc type i,

w_seq_in type c,

tgt_bukrs type bukrs,

seq_out type c,

Flag_not_recon type c,

w_bukrs1 type bukrs,

w_end_tp type c,

w_new_cc type c.

*Constants Declaration

constants:

c_index type i value '1',

c_50 type bschl value 50,

c_40 type bschl value 40,

c_flag_xml type i value '1',

c_seq_01(1) value '1',

c_seq_02 type i value '2',

c_ba(2) value 'BA',

c_zs type blart value 'ZS',

c_2(1) value '0'.

*Setting IT_BSEG & IT_BKPF

set_it_bseg( it_bseg_in ).

set_it_bkpf( it_bkpf_in ).

*Populating 3.1 source structure to intermediate Header Structure

read table it_cl_bkpf index c_index into it_cl_header.

if sy-subrc <> 0.

endif.

Move Corresponding

move-corresponding it_cl_header to wa_e1fikpf.

target Document type

wa_e1fikpf-blart = c_zs.

*Summing & Unsumming of Line items

consolidate_line_items( ).

*Read all the cash accounts into wa_elfiseg_tmp internal table.

Loop at it_cl_bseg into wa_e1fiseg where gsber = space.

Wa_e1fiseg_tmp = wa_e1fiseg.

Append wa_e1fiseg_tmp to it_e1fiseg_tmp.

Clear wa_e1fiseg_tmp.

Endloop.

*Sorting Intermediate Internal Table

sort it_cl_item by gsber.

*Source Company Code

w_bukrs = wa_e1fikpf-bukrs.

Move the entries to temp itab for 'Loop processing'.

loop at it_cl_item into wa_e1fiseg.

move-corresponding wa_e1fiseg to l_wa_itab.

append l_wa_itab to l_it_itab.

endloop.

clear wa_e1fiseg.

*check if all the line items are recon accs & set the flag

loop at l_it_itab into l_wa_itab where gsber ne space.

If l_wa_itab-koart ne 'D' and l_wa_itab-koart ne 'K'.

*set flag, if any one of line item is not recon account.

Flag_not_recon = 'X'.

Endif.

Endloop.

sort l_it_itab by btype gsber.

*Main loop to populate output Internal Tables

loop at l_it_itab into l_wa_itab.

if all the line items are recon accs, then execute CC logic for all line items.

If flag_not_recon eq space.

get_target_cross_cc( exporting bukrs = wa_e1fikpf-bukrs

blart = wa_e1fikpf-blart

gsber = l_wa_itab-gsber

kostl = l_wa_itab-kostl

pargb = l_wa_itab-pargb

hkont = l_wa_itab-hkont

seq_in = c_seq_01

importing cc_bukrs = w_secco ).

if l_wa_itab-tgt_bukrs = space.

l_wa_itab-tgt_bukrs = w_secco.

endif.

Elseif flag_not_recon ne space.

*Get Company Code Logic

if l_wa_itab-gsber <> space.

get_target_companycode( exporting bukrs = wa_e1fikpf-bukrs

blart = wa_e1fikpf-blart

gsber = l_wa_itab-gsber

pargb = l_wa_itab-pargb

hkont = l_wa_itab-hkont

kostl = l_wa_itab-kostl

seq_in = c_seq_01

importing tgt_bukrs = l_wa_itab-tgt_bukrs

seq_out = seq_out ).

move l_wa_itab-btype to l_wa_itab-fikrs.

endif.

*Trading Partner Logic

get_target_tp( exporting hkont = l_wa_itab-hkont

vbund = l_wa_itab-vbund

pargb = l_wa_itab-pargb

gsber = l_wa_itab-gsber

importing tgt_vbund = l_wa_itab-tgt_vbund

fikrs = l_wa_itab-fikrs

geber = l_wa_itab-geber ).

*Calling target TPBA Method

get_target_tpba( EXPORTING pargb = l_wa_itab-pargb

IMPORTING tgt_pargb = l_wa_itab-pargb ).

modify l_it_itab from l_wa_itab transporting tgt_bukrs fikrs tgt_vbund geber pargb where buzei = l_wa_itab-buzei.

clear l_wa_itab.

endloop.

*Sort the internal table on the basis of Target Company code & trading partner

sort l_it_itab by tgt_bukrs tgt_vbund.

*Create the final entries.

loop at l_it_itab into l_wa_itab where gsber ne space.

*for new company code.

At new tgt_bukrs.

w_new_cc = 'X'.

endat.

*for every new cc , populate it_cl_e1fikpf

if w_new_cc eq 'X'.

wa_e1fikpf-fikrs = l_wa_itab-fikrs.

wa_e1fikpf-flag_xml = wa_e1fikpf-flag_xml + 1.

wa_e1fikpf-bukrs = l_wa_itab-tgt_bukrs.

populate_it_e1fikpf( wa_e1fikpf ).

clear w_buzei.

endif.

*Add a regular entry to it_cl_e1fiseg itab.

l_wa_itab-flag_xml = wa_e1fikpf-flag_xml .

w_buzei = w_buzei + 1.

*Clear work area and append Final BSEG Table

l_wa_itab-buzei = w_buzei.

clear:l_wa_itab-shkzg.

if l_wa_itab-btype eq c_ba.

clear l_wa_itab-gsber.

endif.

MOVE-CORRESPONDING l_wa_itab to wa_e1fiseg_tmp.

append wa_e1fiseg_tmp to it_cl_e1fiseg.

*At end of TP, reverse offsetting entry.

At end of tgt_vbund.

w_end_tp = 'X'.

endat.

*Only enter if condition, if it is a offsetting entry.

if w_end_tp eq 'X'.

*calculate the offsetting amounts for same TP.

clear : l_wa_itab-wrbtr, l_wa_itab-dmbtr, l_wa_itab-dmbe2.

loop at l_it_itab into l_wa_itab1 where tgt_bukrs = l_wa_itab-tgt_bukrs

and tgt_vbund = l_wa_itab-tgt_vbund.

and buzei = l_wa_itab-buzei.

l_wa_itab-wrbtr = l_wa_itab-wrbtr + l_wa_itab1-wrbtr.

l_wa_itab-dmbtr = l_wa_itab-dmbtr + l_wa_itab1-dmbtr.

l_wa_itab-dmbe2 = l_wa_itab-dmbe2 + l_wa_itab1-dmbe2.

endloop.

*reverse the offsetting entry

l_wa_itab-wrbtr = ( l_wa_itab-wrbtr ) * ( -1 ).

l_wa_itab-dmbtr = ( l_wa_itab-dmbtr ) * ( -1 ) .

l_wa_itab-dmbe2 = ( l_wa_itab-dmbe2 ) * ( -1 ) .

if l_wa_itab-dmbtr < 0.

l_wa_itab-bschl = c_50.

else.

l_wa_itab-bschl = c_40.

endif.

*read the cash account for offsetting entry.

read table it_e1fiseg_tmp into wa_e1fiseg_tmp with key vbund = l_wa_itab-tgt_vbund.

if sy-subrc eq 0.

l_wa_itab-hkont = wa_e1fiseg_tmp-hkont.

endif.

l_wa_itab-flag_xml = wa_e1fikpf-flag_xml .

w_buzei = w_buzei + 1.

*Clear work area and append Final BSEG Table

l_wa_itab-buzei = w_buzei.

clear:l_wa_itab-shkzg.

clear l_wa_itab-gsber.

MOVE-CORRESPONDING l_wa_itab to wa_e1fiseg_tmp.

append wa_e1fiseg_tmp to it_cl_e1fiseg.

endif.

clear : wa_e1fiseg_tmp,l_wa_itab, l_wa_itab1.

clear : w_sumwrbtr,w_sumdmbtr.

clear : w_sumdmbe2,w_end_tp,w_new_cc.

*endif.

endloop.

*Populating output internal tables

it_e1fikpf_out = set_it_e1fikpf( ).

it_e1fiseg_out = set_it_e1fiseg( ).

endmethod.

Edited by: santosh koraddi on Nov 12, 2008 7:41 PM

Re: Problem with AT......ENDAT statement.....

Former Member — Wed, 12 Nov 2008 18:42:46 GMT

Please press F1 on AT NEW. You need to see the part on creating control breaks.

Rob

Edited by: Rob Burbank on Nov 12, 2008 1:45 PM

Re: Problem with AT......ENDAT statement.....

Former Member — Wed, 12 Nov 2008 18:53:15 GMT

Hi Rob,

I coudn't get anything by reading therre....

can u please explain in detail......like what might be the problem....

cheers.

santosh.

Re: Problem with AT......ENDAT statement.....

Former Member — Wed, 12 Nov 2008 18:59:33 GMT

frist edit your post to move code into teh code block. no one can read the code rigth now

Re: Problem with AT......ENDAT statement.....

Former Member — Wed, 12 Nov 2008 19:03:15 GMT

Hi guys,

Re-submitted with Code blcoks.

I am facing problem with AT....ENDAT statements.

Below is the input data.....

tgt_bukrs tgt_vbund

100C 280

100C 290

100C 600

100c 600

100C 600

100X 280

100X 290

100X 600

Below is my Data declaration & Code.

types: begin of t_itab,
tgt_bukrs type zit_bkpf-bukrs,
tgt_vbund type zit_item-vbund,


some other fields. 

end of t_itab.

data : l_it_itab type standard table of t_itab,
l_wa_itab type t_itab,
l_wa_itab1 type t_itab.

CODE:

*Sort the internal table on the basis of Target Company code & trading partner
sort l_it_itab by tgt_bukrs tgt_vbund.

*Create the final entries.
loop at l_it_itab into l_wa_itab where gsber ne space.

*for new company code.
At new tgt_bukrs.

w_new_cc = 'X'.


endat.

if w_new_cc eq 'X'.

some code here............

endif.


some code here................

At end of tgt_vbund.

w_end_tp = 'X'.


endat.

if w_end_tp eq 'X'.


Some code here..........................


endloop.

PROBLEM IS :----

For 100C entries, At new tgt_bukrs & At end of tgt_vbund works fine.

But, for 100X entries, at new tgt_bukrs works fine but tgt_vbund is not trigerring whenever 100X & 280 entry comes.Also, At end of tgt_vbund is not trigerring for any of the 100X entries......

Can anyone help in this matter.....

cheers.

santosh.

COmplete code for reference.

types: begin of t_itab,
tgt_bukrs type zit_bkpf-bukrs,
tgt_vbund type zit_item-vbund,
btype type zit_item-btype,
gsber type zit_item-gsber,
hkont type zit_item-hkont,
buzei type zit_item-buzei,
bschl type zit_item-bschl,
dmbtr type zit_item-dmbtr,
shkzg type zit_item-shkzg,
pargb type zit_item-pargb,
wrbtr type zit_item-wrbtr,
saknr type zit_item-saknr,
werks type zit_item-werks,
vbund type zit_item-vbund,
koart type zit_item-koart,
kostl type zit_item-kostl,
XEGDR type zit_item-XEGDR,
secco type zit_item-secco,
flag_xml type zit_item-flag_xml,
fdlev type zit_item-fdlev,


btype type zit_item-btype, 
geber type zit_item-geber,
fkber type zit_item-fkber,
dmbe2 type zit_item-dmbe2,
fikrs type fikrs,
end of t_itab.

data : l_it_itab type standard table of t_itab,
l_wa_itab type t_itab,
l_wa_itab1 type t_itab.

data l_tabix type sy-tabix.



Data Declaration 
data :
wa_e1fiseg type zit_bseg,
it_e1fiseg_tmp type standard table of zit_bseg,
wa_e1fiseg_tmp type zit_bseg,
wa_e1fikpf type zit_e1fikpf,
w_gsber type gsber,
w_hkont type hkont,
w_buzei type buzei,
w_kostl type kostl,
w_secco type secco,
w_bukrs type bukrs,
w_blart type blart,
w_sumwrbtr type wrbtr,
w_sumdmbtr type dmbtr,
w_sumdmbe2 type dmbtr,
w_cashaccount type hkont,
flag_newdoc type i ,
flag_doc type i,
w_seq_in type c,
tgt_bukrs type bukrs,
seq_out type c,
Flag_not_recon type c,
w_bukrs1 type bukrs,
w_end_tp type c,
w_new_cc type c.

*Constants Declaration
constants:
c_index type i value '1',
c_50 type bschl value 50,
c_40 type bschl value 40,
c_flag_xml type i value '1',
c_seq_01(1) value '1',
c_seq_02 type i value '2',
c_ba(2) value 'BA',
c_zs type blart value 'ZS',
c_2(1) value '0'.


*Setting IT_BSEG & IT_BKPF
set_it_bseg( it_bseg_in ).
set_it_bkpf( it_bkpf_in ).

*Populating 3.1 source structure to intermediate Header Structure
read table it_cl_bkpf index c_index into it_cl_header.
if sy-subrc 0.
endif.



Move Corresponding 
move-corresponding it_cl_header to wa_e1fikpf.


target Document type 
wa_e1fikpf-blart = c_zs.

*Summing & Unsumming of Line items
consolidate_line_items( ).

*Read all the cash accounts into wa_elfiseg_tmp internal table.
Loop at it_cl_bseg into wa_e1fiseg where gsber = space.
Wa_e1fiseg_tmp = wa_e1fiseg.
Append wa_e1fiseg_tmp to it_e1fiseg_tmp.
Clear wa_e1fiseg_tmp.
Endloop.

*Sorting Intermediate Internal Table
sort it_cl_item by gsber.

*Source Company Code
w_bukrs = wa_e1fikpf-bukrs.


Move the entries to temp itab for 'Loop processing'. 

loop at it_cl_item into wa_e1fiseg.
move-corresponding wa_e1fiseg to l_wa_itab.
append l_wa_itab to l_it_itab.
endloop.

clear wa_e1fiseg.

*check if all the line items are recon accs & set the flag
loop at l_it_itab into l_wa_itab where gsber ne space.
If l_wa_itab-koart ne 'D' and l_wa_itab-koart ne 'K'.

*set flag, if any one of line item is not recon account.
Flag_not_recon = 'X'.

Endif.
Endloop.

sort l_it_itab by btype gsber.

*Main loop to populate output Internal Tables
loop at l_it_itab into l_wa_itab.



if all the line items are recon accs, then execute CC logic for all line items. 
If flag_not_recon eq space.

get_target_cross_cc( exporting bukrs = wa_e1fikpf-bukrs
blart = wa_e1fikpf-blart
gsber = l_wa_itab-gsber
kostl = l_wa_itab-kostl
pargb = l_wa_itab-pargb
hkont = l_wa_itab-hkont
seq_in = c_seq_01
importing cc_bukrs = w_secco ).

if l_wa_itab-tgt_bukrs = space.
l_wa_itab-tgt_bukrs = w_secco.
endif.

Elseif flag_not_recon ne space.

*Get Company Code Logic
if l_wa_itab-gsber space.
get_target_companycode( exporting bukrs = wa_e1fikpf-bukrs
blart = wa_e1fikpf-blart
gsber = l_wa_itab-gsber
pargb = l_wa_itab-pargb
hkont = l_wa_itab-hkont
kostl = l_wa_itab-kostl
seq_in = c_seq_01
importing tgt_bukrs = l_wa_itab-tgt_bukrs
seq_out = seq_out ).


move l_wa_itab-btype to l_wa_itab-fikrs.

endif.
endif.

*Trading Partner Logic
get_target_tp( exporting hkont = l_wa_itab-hkont
vbund = l_wa_itab-vbund
pargb = l_wa_itab-pargb
gsber = l_wa_itab-gsber
importing tgt_vbund = l_wa_itab-tgt_vbund
fikrs = l_wa_itab-fikrs
geber = l_wa_itab-geber ).


*Calling target TPBA Method
get_target_tpba( EXPORTING pargb = l_wa_itab-pargb
IMPORTING tgt_pargb = l_wa_itab-pargb ).


modify l_it_itab from l_wa_itab transporting tgt_bukrs fikrs tgt_vbund geber pargb where buzei = l_wa_itab-buzei.
clear l_wa_itab.

endloop.



*Sort the internal table on the basis of Target Company code & trading partner
sort l_it_itab by tgt_bukrs tgt_vbund.

*Create the final entries.
loop at l_it_itab into l_wa_itab where gsber ne space.

*for new company code.
At new tgt_bukrs.

w_new_cc = 'X'.


endat.

*for every new cc , populate it_cl_e1fikpf
if w_new_cc eq 'X'.

wa_e1fikpf-fikrs = l_wa_itab-fikrs.

wa_e1fikpf-flag_xml = wa_e1fikpf-flag_xml + 1.
wa_e1fikpf-bukrs = l_wa_itab-tgt_bukrs.

populate_it_e1fikpf( wa_e1fikpf ).

clear w_buzei.

endif.


*Add a regular entry to it_cl_e1fiseg itab.
l_wa_itab-flag_xml = wa_e1fikpf-flag_xml .
w_buzei = w_buzei + 1.

*Clear work area and append Final BSEG Table
l_wa_itab-buzei = w_buzei.
clear:l_wa_itab-shkzg.
if l_wa_itab-btype eq c_ba.
clear l_wa_itab-gsber.
endif.

MOVE-CORRESPONDING l_wa_itab to wa_e1fiseg_tmp.

append wa_e1fiseg_tmp to it_cl_e1fiseg.

*At end of TP, reverse offsetting entry.
At end of tgt_vbund.

w_end_tp = 'X'.


endat.

*Only enter if condition, if it is a offsetting entry.
if w_end_tp eq 'X'.


*calculate the offsetting amounts for same TP.
clear : l_wa_itab-wrbtr, l_wa_itab-dmbtr, l_wa_itab-dmbe2.

loop at l_it_itab into l_wa_itab1 where tgt_bukrs = l_wa_itab-tgt_bukrs
and tgt_vbund = l_wa_itab-tgt_vbund.


and buzei = l_wa_itab-buzei. 
l_wa_itab-wrbtr = l_wa_itab-wrbtr + l_wa_itab1-wrbtr.
l_wa_itab-dmbtr = l_wa_itab-dmbtr + l_wa_itab1-dmbtr.
l_wa_itab-dmbe2 = l_wa_itab-dmbe2 + l_wa_itab1-dmbe2.

endloop.


*reverse the offsetting entry
l_wa_itab-wrbtr = ( l_wa_itab-wrbtr ) * ( -1 ).
l_wa_itab-dmbtr = ( l_wa_itab-dmbtr ) * ( -1 ) .
l_wa_itab-dmbe2 = ( l_wa_itab-dmbe2 ) * ( -1 ) .

if l_wa_itab-dmbtr < 0.
l_wa_itab-bschl = c_50.
else.
l_wa_itab-bschl = c_40.
endif.


*read the cash account for offsetting entry.
read table it_e1fiseg_tmp into wa_e1fiseg_tmp with key vbund = l_wa_itab-tgt_vbund.

if sy-subrc eq 0.
l_wa_itab-hkont = wa_e1fiseg_tmp-hkont.

endif.

l_wa_itab-flag_xml = wa_e1fikpf-flag_xml .
w_buzei = w_buzei + 1.


*Clear work area and append Final BSEG Table
l_wa_itab-buzei = w_buzei.
clear:l_wa_itab-shkzg.
clear l_wa_itab-gsber.


MOVE-CORRESPONDING l_wa_itab to wa_e1fiseg_tmp.

append wa_e1fiseg_tmp to it_cl_e1fiseg.

endif.

clear : wa_e1fiseg_tmp,l_wa_itab, l_wa_itab1.
clear : w_sumwrbtr,w_sumdmbtr.
clear : w_sumdmbe2,w_end_tp,w_new_cc.

*endif.
endloop.

*Populating output internal tables
it_e1fikpf_out = set_it_e1fikpf( ).
it_e1fiseg_out = set_it_e1fiseg( ).

endmethod.

Re: Problem with AT......ENDAT statement.....

former_member194669 — Wed, 12 Nov 2008 19:07:16 GMT

Try to clear the at new & at end variables


loop at l_it_itab into l_wa_itab where gsber ne space.

*for new company code.
At new tgt_bukrs.

w_new_cc = 'X'.

endat.

if w_new_cc eq 'X'.

some code here............
clear w_new_cc.             "<<<<<<<<<
endif.

some code here................

At end of tgt_vbund.

w_end_tp = 'X'.

endat.

if w_end_tp eq 'X'.

Some code here..........................
clear : w_end_tp.           "<<<<<<<<<
endloop.

a®

Re: Problem with AT......ENDAT statement.....

Former Member — Wed, 12 Nov 2008 19:08:10 GMT

Hi,

Honestly saying ...I am not able to understand your problem...but I can help you at the fundamentals.....

AT NEW F1

is fired when the Value of F1 or any other Field Prior to F1, is Different in the Current Loop pass from its value in the Previous Loop Pass. This is always fired in the First Loop Pass.

We can say that AT NEW is fired when Present is different from the Past.

AT END OF F1

is fired when the Value of F1 or any other Field Prior to F1, is Different in the Current Loop pass from its value expected in the Next Loop Pass. This is always fired in the Last Loop Pass.

We can say that AT END OF is fired when the FUTURE will be different from the PRESENT.

In your Case:

tgt_bukrs tgt_vbund AT NEW tgt_bukrs Fired? AT END OF tgt_vbund

100C 280 YES YES

100C 290 NO YES

100C 600 NO NO

100c 600 NO NO

100C 600 NO YES

100X 280 YES NO

100X 280 NO YES

100X 290 NO YES

100X 600 NO NO

100X 600 NO YES

Re: Problem with AT......ENDAT statement.....

Former Member — Wed, 12 Nov 2008 19:25:43 GMT

Hi Ajay,

Thanks a lot for analysing the issue.....

tgt_bukrs tgt_vbund AT NEW tgt_bukrs Fired? AT END OF tgt_vbund

100C 280 YES YES

100C 290 NO YES

100C 600 NO NO

100c 600 NO NO

100C 600 NO YES

100X 280 YES NO

100X 280 NO YES ( AT END OF tgt_vbund is not working )

100X 290 NO YES ( AT END OF tgt_vbund is not working )

100X 600 NO NO

100X 600 NO YES ( AT END OF tgt_vbund is not working )

At these points, AT END OF tgt_vbund is not working.....

maybe because, it has already triggered for 280 , 290 & 600 earlier.

cheers.

santosh.

Re: Problem with AT......ENDAT statement.....

Former Member — Wed, 12 Nov 2008 19:32:05 GMT

Hi ARS,

thanks for your reply,

THose have been already cleared in code.

clear : wa_e1fiseg_tmp,l_wa_itab, l_wa_itab1.
clear : w_sumwrbtr,w_sumdmbtr.
clear : w_sumdmbe2,w_end_tp,w_new_cc.
 
*endif.
endloop.

Re: Problem with AT......ENDAT statement.....

Former Member — Wed, 12 Nov 2008 19:39:17 GMT

guys,

Can anyone think of alternative code for this requirement....

it will be of great help.

thanks in advance.

cheers.

santosh.

Edited by: santosh koraddi on Nov 12, 2008 10:55 PM