topic Re: ABAP Code not working in Application Development and Automation Discussions

ABAP Code not working

adeel_sarwar — Fri, 04 Jan 2008 08:31:51 GMT

Hi,

I have made a query and in the query I have created an additional field to find any duplicates in a table. When I check the code there is no error which says to me the code is ok however when I run the query it brings a result of 0 even though there are duplicate production order numbers. What am I doing wrong?

Please see below code if you can change this and let me know i would appreciate this.

Points will be awarded thanks

DATA : BEGIN OF itab OCCURS 0,

aufnr LIKE ekkn-aufnr,

END OF itab.

DATA : count(2) TYPE p.

DATA : no_of_records(3) TYPE p.

Clear no_of_records.

select aufnr from ekkn into itab.

endselect.

SORT itab BY aufnr.

LOOP AT itab.

ADD 1 TO count.

AT END OF aufnr.

IF count GE 2.

ADD count TO no_of_records.

ENDIF.

CLEAR count.

ENDAT.

ENDLOOP.

DUPLICATES = NO_of_records.

Re: ABAP Code not working

Former Member — Fri, 04 Jan 2008 08:34:51 GMT

hi,

i think u missed the append statement between select and endselect statements

Re: ABAP Code not working

ThomasZloch — Fri, 04 Jan 2008 08:37:19 GMT

try:

select aufnr from ekkn into TABLE itab.

~~endselect.~~

Re: ABAP Code not working

Former Member — Fri, 04 Jan 2008 08:38:57 GMT

select aufnr from ekkn into ( itab-aufnr ).

append itab.

endselect.

Re: ABAP Code not working

Former Member — Fri, 04 Jan 2008 08:40:40 GMT

I am not a big fan of the ABAP AT end of ..... ENDAT

type of statements.

ABAP IMO doesn't always seem to handle these statements predictably.

You might find the ON CHANGE .... ENDON type of statement works better

Cheers

jimbo

Re: ABAP Code not working

i048168 — Fri, 04 Jan 2008 08:46:22 GMT

Hi,

In your code the internal table itab is not getting populated.

use the following select statement:

select aufnr from ekkn into itab.

Then the code is working. Just check it out.

Regards

Vadi

Re: ABAP Code not working

Former Member — Fri, 04 Jan 2008 08:48:23 GMT

Hi try this code changes.

DATA : BEGIN OF itab OCCURS 0,

aufnr LIKE ekkn-aufnr,

END OF itab.

DATA : count TYPE i.

DATA : no_of_records TYPE i.

CLEAR no_of_records.

SELECT aufnr FROM ekkn INTO table itab.

SORT itab BY aufnr.

LOOP AT itab.

ADD 1 TO count.

AT END OF aufnr.

IF count GE 2.

ADD 1 TO no_of_records.

CLEAR count.

ENDIF.

ENDAT.

ENDLOOP.

WRITE: 'Total Duplicated Records:', no_of_records.

awrd points if useful

Bhupal

Re: ABAP Code not working

adeel_sarwar — Fri, 04 Jan 2008 08:59:06 GMT

Hi Bhupal

Thanks for your code, i have tried it but it brings a value of 350 as duplicates for all lines. Any idea why?

thanks

Re: ABAP Code not working

Former Member — Fri, 04 Jan 2008 09:06:11 GMT

Friend,

try this....

DATA : BEGIN OF itab OCCURS 0,

aufnr LIKE ekkn-aufnr,

cnt type i,

END OF itab.

DATA : count TYPE i.

DATA : no_of_records TYPE i.

CLEAR no_of_records.

SELECT aufnr COUNT(*) FROM ekkn INTO table itab group by aufnr.

SORT itab BY aufnr.

LOOP AT itab.

IF itab-cnt eq 2.

ADD 1 TO no_of_records.

ENDIF.

ENDLOOP.

WRITE: 'Total Duplicated Records:', no_of_records.

Edited by: Ramu on Jan 4, 2008 10:07 AM

Re: ABAP Code not working

Former Member — Fri, 04 Jan 2008 09:06:21 GMT

Code is looking OK....check your itab before loop.

DATA : BEGIN OF itab OCCURS 0,

aufnr LIKE ekkn-aufnr,

END OF itab.

DATA : count(2) TYPE p.

DATA : no_of_records(3) TYPE p.

CLEAR no_of_records.

*SELECT aufnr FROM ekkn INTO TABLE itab.

itab-aufnr = '33333'.

APPEND itab.

itab-aufnr = '44444'.

APPEND itab.

itab-aufnr = '44444'.

APPEND itab.

itab-aufnr = '33333'.

APPEND itab.

itab-aufnr = '33456'.

APPEND itab.

itab-aufnr = '33456'.

APPEND itab.

itab-aufnr = '33377'.

APPEND itab.

itab-aufnr = '555444'.

APPEND itab.

SORT itab BY aufnr.

LOOP AT itab.

WRITE 😕 itab-aufnr.

ADD 1 TO count.

AT END OF aufnr.

IF count GE 2.

ADD count TO no_of_records.

ENDIF.

CLEAR count.

ENDAT.

ENDLOOP.

WRITE 😕 no_of_records.

Re: ABAP Code not working

Former Member — Fri, 04 Jan 2008 09:08:14 GMT

hi, try this change.

DATA : BEGIN OF itab OCCURS 0,

aufnr LIKE ekkn-aufnr,

END OF itab.

DATA : count TYPE i.

DATA : no_of_records TYPE i.

CLEAR no_of_records.

SELECT aufnr FROM ekkn INTO table itab.

SORT itab BY aufnr.

LOOP AT itab.

ADD 1 TO count.

AT END OF aufnr.

IF count GE 2.

WRITE:/ 'Record', itab-aufnr, 'Duplicates:', count.

ENDIF.

CLEAR count.

ENDAT.

ENDLOOP.

awrd points if useful

Bhupal

Re: ABAP Code not working

Former Member — Fri, 04 Jan 2008 09:21:35 GMT

Hi Adeel

This should work.

DATA : BEGIN OF itab OCCURS 0,

aufnr LIKE ekkn-aufnr,

END OF itab.

DATA : count TYPE i.

SELECT aufnr FROM ekkn INTO TABLE itab.

SORT itab BY aufnr DESCENDING.

LOOP AT itab.

IF NOT itab-aufnr IS INITIAL.

ADD 1 TO count.

AT END OF aufnr.

IF count GE 2.

WRITE:/'Production order',itab-aufnr,'Total Duplicated' &

'Records:', count.

CLEAR count.

ENDIF.

ENDAT.

ENDIF.

ENDLOOP

Cheers

shivika

Re: ABAP Code not working

adeel_sarwar — Fri, 04 Jan 2008 09:32:19 GMT

Hi Guys, nearlly there:)

The below code works however just a small problem as this is a query i want to pull this information through to a field called Duplicates but it brings a value of 2 everytime don't know why, but when I exit the query it shows a screen with a list of duplicates due to the write statement and the duplicates in that page are correct,

How do I pass the correct value through to the field duplicates?

DATA : BEGIN OF itab OCCURS 0,

aufnr LIKE ekkn-aufnr,

END OF itab.

DATA : count TYPE i.

SELECT aufnr FROM ekkn INTO TABLE itab.

SORT itab BY aufnr DESCENDING.

Clear Duplicates. <----

New Line Added

LOOP AT itab.

IF NOT itab-aufnr IS INITIAL.

ADD 1 TO count.

AT END OF aufnr.

IF count GE 2.

WRITE:/'Production order',itab-aufnr,'Total Duplicated' &

'Records:', count.

Duplicates = Count. <----

New Line Added

CLEAR count.

ENDIF.

ENDAT.

ENDIF.

ENDLOOP

Re: ABAP Code not working

Former Member — Fri, 04 Jan 2008 09:34:42 GMT

Hi Adeel,

This code will work better ....try this...

DATA : BEGIN OF itab OCCURS 0,

aufnr LIKE ekkn-aufnr,

cnt type i,

END OF itab.

DATA : count TYPE i.

DATA : no_of_records TYPE i.

CLEAR no_of_records.

SELECT aufnr COUNT(*) FROM ekkn INTO table itab group by aufnr.

SORT itab BY aufnr.

write:/ 'Duplicate Records'.

LOOP AT itab.

IF itab-cnt eq 2.

ADD 1 TO no_of_records.

write:/ itab-aufnr.

ENDIF.

ENDLOOP.

WRITE: 'Total Duplicated Records:', no_of_records.

Re: ABAP Code not working

kesavadas_thekkillath — Fri, 04 Jan 2008 09:36:34 GMT

for finding the duplicate count.

data:wk_lines type i,wk_lines2 type i,wk_dup type i.

sort itab ascending.

describe table itab lines wk_lines.

delete adjacent duplicates from itab comparing aufnr.

describe table itab lines wk_lines2.

wk_dup = wk_lines - wk_lines2.

write: 'no of duplicates record-' , wk_dup.

Re: ABAP Code not working

Former Member — Fri, 04 Jan 2008 09:43:29 GMT

Hi Adeel

I guess what keshu has suggested should give you the number of duplicate records. rite?

Cheers

shivika

Re: ABAP Code not working

adeel_sarwar — Fri, 04 Jan 2008 09:48:00 GMT

Hi Nope doesn't work atall that code

DATA : BEGIN OF itab OCCURS 0,

aufnr LIKE ekkn-aufnr,

END OF itab.

DATA : count TYPE i.

data:wk_lines type i,wk_lines2 type i,wk_dup type i.

sort itab ascending.

describe table itab lines wk_lines.

delete adjacent duplicates from itab comparing aufnr.

describe table itab lines wk_lines2.

wk_dup = wk_lines - wk_lines2.

DUPLICATES = wk_dup.

Re: ABAP Code not working

Former Member — Fri, 04 Jan 2008 09:48:38 GMT

Friend Shivika,

Yes....Keshu coding is too good...but it will not give the duplicate aufnr list in the screen...just it will give no.of duplicates...

Re: ABAP Code not working

Former Member — Fri, 04 Jan 2008 09:53:05 GMT

Hi Adeel

Do you want the order numbers which have duplicates on your screen output?

I could not understand your requirement for this one.

Re: ABAP Code not working

adeel_sarwar — Fri, 04 Jan 2008 09:53:59 GMT

yep but what happens is that i have a query which lists all the Production orders in the table and line by line i want it to say if there is more than 1 record in the table or not?

All the codes are excellent but the don't do that all they do is give a list of duplicates i.e. this code

DATA : BEGIN OF itab OCCURS 0,

aufnr LIKE ekkn-aufnr,

cnt type i,

END OF itab.

DATA : count TYPE i.

DATA : no_of_records TYPE i.

CLEAR no_of_records.

SELECT aufnr COUNT(*) FROM ekkn INTO table itab group by aufnr.

SORT itab BY aufnr.

write:/ 'Duplicate Records'.

LOOP AT itab.

IF itab-cnt eq 2.

ADD 1 TO no_of_records.

write:/ itab-aufnr.

ENDIF.

ENDLOOP.

WRITE: 'Total Duplicated Records:', no_of_records.