REPORT Z07_016.
DATA: BEGIN OF line,
land(5) TYPE c,
name(10) TYPE c,
age TYPE i,
weight TYPE p DECIMALS 2,
END OF line.
DATA itab LIKE STANDARD TABLE OF line WITH NON-UNIQUE KEY land.
line-land = 'SEOUL'. line-name = 'CHO'.
line-age = 20. line-weight = '80.00'.
APPEND line TO itab.
line-land = 'DAEGU'. line-name = 'KIM'.
line-age = 35. line-weight = '45.00'.
APPEND line TO itab.
line-land = 'BUSAN'. line-name = 'LEE'.
line-age = 40. line-weight = '95.00'.
APPEND line TO itab.
line-land = 'SUWON'. line-name = 'HAN'.
line-age = 18. line-weight = '50.00'.
APPEND line TO itab.
PERFORM loop_at_itab.
SORT itab.
PERFORM loop_at_itab.
SORT itab STABLE.
PERFORM loop_at_itab.
SORT itab DESCENDING BY land weight ASCENDING.
PERFORM loop_at_itab.
FORM loop_at_itab.
LOOP AT itab INTO line.
WRITE: / line-land, line-name, line-age,
line-weight.
ENDLOOP.
SKIP.
ENDFORM.
예제번호가 7-4-4이네요....ㅋㅋ