ABAP内表排序

DATA:BEGIN OF man,
      NAME(20) TYPE c,
      HIGH TYPE P DECIMALS 2,
      WEIGHT TYPE P DECIMALS 2,
     END OF man.
DATA:MAN1 Like HASHED TABLE OF   man WITH UNIQUE key NAME.

man-name = 'Joy'.
man-high = '1.79'.
man-weight = 140.
insert man INTO TABLE man1.

man-name = 'Tom'.
man-high = '1.99'.
man-weight = 160.
insert man INTO TABLE man1.

man-name = 'alex'.
man-high = '1.9'.
man-weight = 150.
insert man INTO TABLE man1.
Loop at man1 into man.
write:/ man-name,man-high,man-weight.
ENDLOOP.
SORT man1 DESCENDING by weight ASCENDING.
skip.
uline.
LOOP AT man1 INTO man.
  WRITE:/ man-name,man-high,man-weight.
ENDLOOP.

posted @ 2011-08-21 23:03  VerySky  阅读(1734)  评论(0)    收藏  举报