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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
270 | report zunicode_002 | sapjoy | 2008.11.21 | 2562 |
269 | zunicode_001 | sapjoy | 2008.11.21 | 2397 |
268 | REPORT Z07_024 | sapjoy | 2006.12.08 | 2472 |
267 | REPORT z18_033 [47] | sapjoy | 2008.10.13 | 9031 |
266 | REPORT Z13_021 [1] | sapjoy | 2008.09.29 | 2156 |
265 | REPORT Z17_004. | sapjoy | 2007.02.11 | 2508 |
264 | REPORT z19_005 [1] | sapjoy | 2007.04.03 | 2927 |
263 | REPORT z18_035 | sapjoy | 2007.03.13 | 2450 |
262 | REPORT z16_003 [1] | sapjoy | 2008.08.07 | 2551 |
261 | REPORT z16_002 | sapjoy | 2008.08.07 | 2649 |
260 | REPORT Z04_003 [9] | sapjoy | 2007.05.16 | 2561 |
259 | <b>ABAP SOURCE는 교재에 사용된 소스들입니다.</b> [1] | sapjoy | 2006.12.02 | 3618 |
258 | REPORT z18_037 [3] | sapjoy | 2008.04.21 | 2728 |
257 | REPORT z18_038 [2] | sapjoy | 2008.04.21 | 2635 |
256 | REPORT Z07_031 [2] | sapjoy | 2006.12.08 | 2309 |
255 | REPORT Z05_001 [3] | sapjoy | 2007.05.21 | 2880 |
254 | REPORT Z05_003 | sapjoy | 2007.05.21 | 2406 |
253 | REPORT Z15_027 . | sapjoy | 2007.02.01 | 2715 |
252 | REPORT Z17_021 . | sapjoy | 2007.02.21 | 2386 |
» | REPORT Z07_016 | sapjoy | 2008.04.14 | 2804 |