How to find max records

[Former Member]

Hi,

My program is :

DATA : BEGIN OF itab OCCURS 0,

item(2) TYPE c,

code(2) TYPE c,

val TYPE i,

END OF itab.

itab-item = 'AA'.

itab-code = 'A1'.

itab-val = '5'.

APPEND itab.

itab-item = 'AA'.

itab-code = 'A1'.

itab-val = '6'.

APPEND itab.

itab-item = 'AA'.

itab-code = 'A2'.

itab-val = '7'.

APPEND itab.

itab-item = 'BB'.

itab-code = 'B1'.

itab-val = '5'.

APPEND itab.

itab-item = 'BB'.

itab-code = 'C1'.

itab-val = '5'.

APPEND itab.

itab-item = 'BB'.

itab-code = 'C1'.

itab-val = '2'.

APPEND itab.

now i want output like:

item code val

AA A1 6

AA A2 7

BB B1 5

BB C1 5.

Thanks n Regards.

[GauthamV]

try this.

Loop at itab.

sort itab item ascending val descending.

delete adjacent duplicates from itab comparing item.

endloop.

[Former Member]

Hi,

u can do it this way,

loop at itab.

write:/5 itab-item ,

8 itab-code,

11 itab-val.

endloop.

Hope this helps.

thanx.

Pritha.

[Former Member]

Hi

Remove the quotes from the val field assigning statements.

SORT itab BY item code val DESCENDING.

LOOP AT itab.

lv_val = itab-val.

AT NEW item code.

WRITE  : / itab-item, itab-code, lv_val.

ENDAT.

ENDLOOP.

Pushpraj

[former_member222860]

Hi,

Here's the code

sort itab by item ascending code ascending val descending.
delete adjacent duplicates from itab comparing code.

loop at itab.
write:/ itab-item, itab-code, itab-val.
endloop.

thanks\

Mahesh

Edited by: Mahesh Reddy on Feb 6, 2009 7:57 AM

[viquar_iqbal]

DATA : BEGIN OF itab OCCURS 0,
item(2) TYPE c,
code(2) TYPE c,
val TYPE i,
END OF itab.

itab-item = 'AA'.
itab-code = 'A1'.
itab-val = '5'.

APPEND itab.

itab-item = 'AA'.
itab-code = 'A1'.
itab-val = '6'.

APPEND itab.


itab-item = 'AA'.
itab-code = 'A2'.
itab-val = '7'.

APPEND itab.


itab-item = 'BB'.
itab-code = 'B1'.
itab-val = '5'.

APPEND itab.

itab-item = 'BB'.
itab-code = 'C1'.
itab-val = '5'.

APPEND itab.

itab-item = 'BB'.
itab-code = 'C1'.
itab-val = '2'.

APPEND itab.
SORT itab BY val DESCENDING.
DELETE ADJACENT DUPLICATES FROM itab COMPARING item  code.
SORT itab.
LOOP AT itab .
  WRITE:/

  itab-item,
  itab-code,
  itab-val .
ENDLOOP.

This will definetely work!

[Former Member]

Thanks Gautham and Viquar Iqbal .it is solved.

[Mohamed_Mukhtar]

hI,

DATA : BEGIN OF itab OCCURS 0,
item(2) TYPE c,
code(2) TYPE c,
val TYPE i,
END OF itab.

itab-item = 'AA'.
itab-code = 'A1'.
itab-val = '5'.

APPEND itab.

itab-item = 'AA'.
itab-code = 'A1'.
itab-val = '6'.

APPEND itab.

itab-item = 'AA'.
itab-code = 'A2'.
itab-val = '7'.

APPEND itab.

itab-item = 'BB'.
itab-code = 'B1'.
itab-val = '5'.

APPEND itab.

itab-item = 'BB'.
itab-code = 'C1'.
itab-val = '5'.

APPEND itab.

itab-item = 'BB'.
itab-code = 'C1'.
itab-val = '2'.

APPEND itab.

BREAK-POINT.

SORT itab BY item code val DESCENDING .

DELETE ADJACENT DUPLICATES FROM itab COMPARING item code.

BREAK-POINT.

[Former Member]

Hi,

Please try this -

---

sort itab by item code.

delete adjacent duplicates from itab comparing item code.

loop at itab.

write : / itab-item ,itab-code,itab-val.

endloop.

Regards

Pinaki