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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
30 | REPORT Z07_020 | sapjoy | 2006.12.08 | 2152 |
29 | REPORT Z07_019 | sapjoy | 2006.12.08 | 2284 |
28 | REPORT Z07_018 | sapjoy | 2006.12.08 | 2341 |
» | REPORT Z07_017 | sapjoy | 2006.12.08 | 2609 |
26 | REPORT Z07_015 | sapjoy | 2006.12.08 | 2426 |
25 | REPORT Z07_014 | sapjoy | 2006.12.08 | 2098 |
24 | REPORT Z07_013 | sapjoy | 2006.12.08 | 2544 |
23 | REPORT Z07_012 | sapjoy | 2006.12.08 | 2326 |
22 | REPORT Z07_011 [1] | sapjoy | 2006.12.07 | 2183 |
21 | REPORT Z07_010. | sapjoy | 2006.12.07 | 2527 |
20 | REPORT Z07_009 | sapjoy | 2006.12.07 | 2258 |
19 | REPORT Z07_008 | sapjoy | 2006.12.07 | 2462 |
18 | REPORT Z07_007 | sapjoy | 2006.12.07 | 2698 |
17 | Z07_005 | sapjoy | 2006.12.06 | 2353 |
16 | Z07_001 | sapjoy | 2006.12.06 | 2396 |
15 | REPORT Z07_002 . | sapjoy | 2006.12.06 | 2755 |
14 | REPORT Z06_001 MESSAGE-ID ZTEST . [1] | sapjoy | 2006.12.05 | 3205 |
13 | Dynamic Table Maintenance [1] | sapjoy | 2006.12.04 | 4094 |
12 | <b>ABAP SOURCE는 교재에 사용된 소스들입니다.</b> [1] | sapjoy | 2006.12.02 | 3618 |
11 | REPORT Z04_005 . | sapjoy | 2006.12.02 | 2595 |