topic Re: problem with logic in Application Development and Automation Discussions

problem with logic

Former Member — Tue, 05 Mar 2013 15:09:35 GMT

Hello all ,

iam new to abap.

i have a requirement where i need retain the fiest 3 records for the combination werks and matnr in an internal table and delete ramaining records for that combination

can any one pls help me how can i do this.

thanks

Ramesh

Re: problem with logic

Former Member — Tue, 05 Mar 2013 15:39:34 GMT

Ramesh, there are many ways to achieve this.

sort table1 by werks matnr.

table2[] = table1[].

delete adj duplicates from table2 comparing werks matnr.

loop at table2 into wa2.

clear counter.

loop at table1 assigning <fs1> where werks = wa2-werks and matnr = wa-matnr.

counter = counter + 1.

if counter > 3.

clear <fs1>-werks.

endif.

endloop.

delete table1 where werks is initial.

thanks,

Vikram.M

Re: problem with logic

former_member295881 — Tue, 05 Mar 2013 15:44:43 GMT

Hi Ramesh.

Maybe try something like this

Declare a work area same as your internal table.

Data: wa_itab type (same as your internal table),

lv_tabix type sy-tabix.

Loop at itab into wa_itab,

lv_tabix = sy-tabix.

if lv_tabix > 3.

delete itab from wa_itab index lv_tabix.

endif.

Endloop.

Re: problem with logic

Former Member — Tue, 05 Mar 2013 15:49:28 GMT

Hi,

Try this for deleting first 3 rows.

while sy-tabix > 4.

delete it where <condition>.

endwhile.

Re: problem with logic

RaymondGiuseppi — Tue, 05 Mar 2013 16:05:40 GMT

Another understanding of your requirement (seemingly not so clear ?)

SORT itab BY matnr werks STABLE.
LOOP AT itab assiging <fs>.
  AT NEW werks.
    CLEAR counter.
  ENDAT.
  ADD 1 TO counter.
  IF counter GT 3
    DELETE itab.
  ENDIF.
ENDLOOP.

Regards,

Raymond

Re: problem with logic

vigneshyeram — Tue, 05 Mar 2013 16:58:18 GMT

Hi Ramesh,

You can follow the logic given by . Its correct.

Thanks & Regards,

Vignesh Yeram