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.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
610 | REPORT z15_06. | sapjoy | 2012.08.01 | 896 |
609 | REPORT z17_02 . | sapjoy | 2012.08.01 | 896 |
608 | REPORT z05_17. | sapjoy | 2012.07.30 | 898 |
607 | REPORT z05_18. | sapjoy | 2012.07.30 | 901 |
606 | REPORT Z14_18. | sapjoy | 2012.08.01 | 903 |
605 | REPORT z17_03. | sapjoy | 2012.08.01 | 905 |
604 | REPORT Z07_06. | sapjoy | 2012.07.30 | 908 |
603 | REPORT z07_02. | sapjoy | 2012.07.30 | 909 |
602 | REPORT z12_29. | sapjoy | 2012.07.30 | 910 |
601 | REPORT Z14_01. | sapjoy | 2012.08.01 | 910 |
600 | REPORT z14_16. [1] | sapjoy | 2012.08.01 | 910 |
599 | REPORT z05_11. | sapjoy | 2012.07.30 | 912 |
598 | REPORT z05_04. | sapjoy | 2012.07.30 | 913 |
597 | REPORT z05_02. | sapjoy | 2012.07.30 | 914 |
596 | REPORT z12_08. | sapjoy | 2012.07.30 | 915 |
595 | REPORT z05_26. | sapjoy | 2012.07.30 | 918 |
594 | REPORT z12_21. | sapjoy | 2012.07.30 | 920 |
593 | REPORT Z14_20. | sapjoy | 2012.08.01 | 921 |
592 | REPORT Z05_08. | sapjoy | 2012.07.30 | 923 |
591 | REPORT z05_09. | sapjoy | 2012.07.30 | 924 |