Process Internal table -Logic

Question

Hi,
My internal table has following data
A      10     30
A      20     50
A      00     100
B      20     40
B      10     90
I need output as
    (Lowest)   (Highest)
A   10               100
B   10               90
How do we do?
rgds
Praveen

Answer 1

Namesh,
Program does'nt work for  3  or more records. any ideas?
<
report x.
DATA: BEGIN OF ITAB OCCURS 0,
      FLD1  TYPE CHAR20,
      NUM1  TYPE I,
      NUM2  TYPE I,
      END   OF ITAB.
*A 10 30
*A 20 50
*A 00 100
*B 20 40
*B 10 90
*C 0  40
*C 10 120
ITAB-FLD1 = 'A'.
ITAB-NUM1 = '10'.
ITAB-NUM2 = '30'.
APPEND ITAB.
ITAB-FLD1 = 'A'.
ITAB-NUM1 = '20'.
ITAB-NUM2 = '50'.
APPEND ITAB.
ITAB-FLD1 = 'A'.
ITAB-NUM1 = '00'.
ITAB-NUM2 = '100'.
APPEND ITAB.
ITAB-FLD1 = 'B'.
ITAB-NUM1 = '20'.
ITAB-NUM2 = '40'.
APPEND ITAB.
ITAB-FLD1 = 'B'.
ITAB-NUM1 = '10'.
ITAB-NUM2 = '90'.
APPEND ITAB.
itab-fld1 = 'C'.
itab-num1 = '0'.
itab-num2 = '40'.
append itab.
itab-fld1 = 'C'.
itab-num1 = '10'.
itab-num2 = '120'.
append itab.
DATA: ITAB2    LIKE ITAB OCCURS 0 WITH HEADER LINE,
      ITAB_TMP LIKE ITAB OCCURS 0 WITH HEADER LINE.
DATA: NEW_FLD TYPE C.
LOOP AT ITAB.
  AT NEW FLD1.
    NEW_FLD = 'X'.
  ENDAT.
  IF NEW_FLD = 'X'.
    ITAB_TMP[] = ITAB[].
    DELETE ITAB_TMP WHERE FLD1 = ITAB-FLD1.
    CLEAR NEW_FLD.
    SORT ITAB_TMP BY FLD1 ASCENDING
                     NUM1 ASCENDING.
    READ TABLE ITAB_TMP INDEX 1.
    ITAB2-FLD1 = ITAB_TMP-FLD1.
    ITAB2-NUM1 = ITAB_TMP-NUM1.
    SORT ITAB_TMP BY FLD1 ASCENDING
                     NUM2 DESCENDING.
    READ TABLE ITAB_TMP INDEX 1.
    ITAB2-NUM2 = ITAB_TMP-NUM2.
    APPEND ITAB2.
  ENDIF.
ENDLOOP.
LOOP AT ITAB2.
  WRITE: / ITAB2-FLD1,
           ITAB2-NUM1,
           ITAB2-NUM2.
ENDLOOP. >