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.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
650 | REPORT z17_20 | sapjoy | 2012.08.01 | 2880 |
649 | REPORT z17_19 | sapjoy | 2012.08.01 | 2437 |
648 | REPORT z17_18 . | sapjoy | 2012.08.01 | 2339 |
647 | REPORT z17_17 . | sapjoy | 2012.08.01 | 2199 |
646 | REPORT z17_16 . | sapjoy | 2012.08.01 | 2186 |
645 | REPORT z17_15 . | sapjoy | 2012.08.01 | 2473 |
644 | REPORT z17_14 . | sapjoy | 2012.08.01 | 1708 |
643 | REPORT z17_13 . | sapjoy | 2012.08.01 | 1426 |
642 | REPORT z17_12 . | sapjoy | 2012.08.01 | 961 |
641 | REPORT z17_11 . | sapjoy | 2012.08.01 | 933 |
640 | REPORT z17_10 . | sapjoy | 2012.08.01 | 985 |
639 | REPORT z17_09 . | sapjoy | 2012.08.01 | 954 |
638 | REPORT z17_08 . | sapjoy | 2012.08.01 | 994 |
637 | REPORT z17_07 . | sapjoy | 2012.08.01 | 1086 |
636 | REPORT z17_06 . | sapjoy | 2012.08.01 | 859 |
635 | REPORT z17_05 . | sapjoy | 2012.08.01 | 1075 |
634 | REPORT z17_04 . | sapjoy | 2012.08.01 | 1018 |
633 | REPORT z17_03. | sapjoy | 2012.08.01 | 905 |
632 | REPORT z17_02 . | sapjoy | 2012.08.01 | 896 |
631 | REPORT z17_01 . | sapjoy | 2012.08.01 | 1073 |