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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
90 | REPORT Z15_027 . | sapjoy | 2007.02.01 | 2715 |
89 | REPORT zBADI_FIND | sapjoy | 2009.01.15 | 2724 |
88 | REPORT z18_037 [3] | sapjoy | 2008.04.21 | 2728 |
87 | report zunicode_034. [1] | sapjoy | 2008.11.21 | 2734 |
86 | REPORT Z03_005 [1] | sapjoy | 2006.12.02 | 2735 |
85 | REPORT Z03_021 [5] | sapjoy | 2007.05.15 | 2737 |
84 | REPORT Z17_019 [1] | sapjoy | 2007.02.14 | 2748 |
83 | REPORT Z07_002 . | sapjoy | 2006.12.06 | 2755 |
82 | REPORT Z15_026 | sapjoy | 2007.01.31 | 2758 |
81 | REPORT ZDYNAMIC_ITAB_08. | sapjoy | 2009.02.16 | 2760 |
80 | Z01_021 [1] | sapjoy | 2006.12.02 | 2771 |
79 | REPORT Z18_001 | sapjoy | 2007.03.02 | 2774 |
78 | report zunicode_026. | sapjoy | 2008.11.21 | 2782 |
77 | FIELD_EXIT_STCD2_0 | sapjoy | 2008.12.16 | 2792 |
76 | Report Z15_047 [3] | sapjoy | 2007.12.05 | 2798 |
» | REPORT Z07_016 | sapjoy | 2008.04.14 | 2804 |
74 | report zunicode_017. | sapjoy | 2008.11.21 | 2810 |
73 | REPORT Z03_006 [5] | sapjoy | 2006.12.02 | 2812 |
72 | REPORT Z09_006 [1] | sapjoy | 2006.12.18 | 2839 |
71 | DBZF1SSEL | sapjoy | 2006.12.19 | 2842 |