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.