REPORT  Z07_017                                                     .
DATA: BEGIN OF line,
        land(3)  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 = 'G'.   line-name   = 'Hans'.
line-age  = 20.    line-weight = '80.00'.
APPEND line TO itab.

line-land = 'USA'. line-name   = 'Nancy'.
line-age  = 35.    line-weight = '45.00'.
APPEND line TO itab.

line-land = 'USA'. line-name   = 'Howard'.
line-age  = 40.    line-weight = '95.00'.
APPEND line TO itab.

line-land = 'GB'.  line-name   = 'Jenny'.
line-age  = 18.    line-weight = '50.00'.
APPEND line TO itab.

line-land = 'F'.   line-name   = 'Michele'.
line-age  = 30.    line-weight = '60.00'.
APPEND line TO itab.

line-land = 'G'.   line-name   = 'Karl'.
line-age  = 60.    line-weight = '75.00'.
APPEND line TO itab.

PERFORM loop_at_itab.

SORT 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.