abap ouery code

[Former Member]

i have abap query of 4 tables

and i want to make the code

delete adjest by....

what is the table that i need to make on..

[Sm1tje]

DELETE ADJACENT DUPLICATES FROM itab COMPARING xxxx.

But before doing so, sort first on comparing fields.

Next time, be a bit more specific about your requirement, if above answer is not the answer to your question (what is your question exactly?).

[Former Member]

i'm in query and i dont have itab.

i know the command but how i could code it if i dont have itab.

[Former Member]

i in abap query i cannot do it...

[Former Member]

the tables are:

ekes,ekko,ekpo,ekbe

[Former Member]

what are the tables and you can place joins (inner/outer) but not sure you can do coding there...

[Former Member]

hi check this ..

report ztest.

tables:pa0002,pa0008,pa0021,pa0041.

data: begin of itab occurs 0,

pernr like pa0002-pernr,

vorna like pa0002-vorna,

nachn like pa0002-nachn,

end of itab.

data: begin of itab1 occurs 0,

pernr like pa0008-pernr,

begda like pa0008-begda,

stvor like pa0008-stvor,

ansal like pa0008-ansal,

end of itab1.

data :begin of itab2 occurs 0,

pernr like pa0021-pernr,

favor like pa0021-favor,

fanam like pa0021-fanam,

end of itab2.

data:begin of itab3 occurs 0,

pernr like pa0041-pernr,

dar01 like pa0041-dar01,

dat01 like pa0041-dat01,

end of itab3.

data:begin of final occurs 0,

pernr like pa0002-pernr,

vorna like pa0002-vorna,

nachn like pa0002-nachn,

begda like pa0008-begda,

stvor like pa0008-stvor,

ansal like pa0008-ansal,

favor like pa0021-favor,

fanam like pa0021-fanam,

dar01 like pa0041-dar01,

dat01 like pa0041-dat01,

end of final.

select-options:s_pernr for pa0002-pernr.

select pernr

vorna

nachn

from pa0002

into table itab

where pernr in s_pernr.

sort itab by pernr .

delete adjacent duplicates from itab comparing pernr.

select pernr

begda

stvor

ansal

from pa0008

into table itab1

for all entries in itab

where pernr = itab-pernr.

sort itab1 by pernr .

delete adjacent duplicates from itab1 comparing pernr.

select pernr

favor

fanam

from pa0021

into table itab2

for all entries in itab1

where pernr = itab1-pernr.

sort itab2 by pernr .

delete adjacent duplicates from itab2 comparing pernr.

select pernr

dar01

dat01

from pa0041

into table itab3

for all entries in itab2

where pernr = itab2-pernr.

sort itab3 by pernr .

delete adjacent duplicates from itab3 comparing pernr.

loop at itab.

final-pernr = itab-pernr.

final-vorna = itab-vorna.

final-nachn = itab-nachn.

read table itab1 with key pernr = itab-pernr.

final-begda = itab1-begda.

final-stvor = itab1-stvor.

final-ansal = itab1-ansal.

read table itab2 with key pernr = itab1-pernr.

final-favor = itab2-favor.

final-fanam = itab2-fanam.

read table itab3 with key pernr = itab2-pernr.

final-dar01 = itab3-dar01 .

final-dat01 = itab3-dat01.

append final.

clear final.

endloop.

loop at final.

write:final-pernr ,

final-vorna ,

final-nachn ,

final-begda ,

final-stvor ,

final-ansal ,

final-favor ,

final-fanam ,

final-dar01 ,

final-dat01 .

endloop.

regards,

venkat.

[Former Member]

Hi,

In ABAP query you can not use DELETE ADJACENT ........because the code is craeted by program.So we don't have any control on this.

In record processing event, system will write select statement with inner join of 4 tables and endselect.Means it is working here as loop and endloop.