REPORT z05_17.
DATA: BEGIN OF gs_line,
col1 TYPE c,
col2 TYPE i,
END OF gs_line.
DATA gt_itab LIKE STANDARD TABLE OF gs_line WITH NON-UNIQUE KEY col1.
gs_line-col1 = 'B'.
gs_line-col2 = 3.
APPEND gs_line TO gt_itab.
gs_line-col1 = 'C'.
gs_line-col2 = 4.
APPEND gs_line TO gt_itab.
gs_line-col1 = 'A'.
gs_line-col2 = 2.
APPEND gs_line TO gt_itab.
gs_line-col1 = 'A'.
gs_line-col2 = 1.
APPEND gs_line TO gt_itab.
SORT gt_itab.
PERFORM write_data.
SORT gt_itaB BY col1 col2.
PERFORM write_data.
SORT gt_itab BY col1 DESCENDING col2 ASCENDING.
PERFORM write_data.
FORM write_data.
LOOP AT gt_itab INTO gs_line.
WRITE: / gs_line-col1, gs_line-col2.
ENDLOOP.
ULINE.
ENDFORM. "WRITE_DATA
DATA: BEGIN OF gs_line,
col1 TYPE c,
col2 TYPE i,
END OF gs_line.
DATA gt_itab LIKE STANDARD TABLE OF gs_line WITH NON-UNIQUE KEY col1.
gs_line-col1 = 'B'.
gs_line-col2 = 3.
APPEND gs_line TO gt_itab.
gs_line-col1 = 'C'.
gs_line-col2 = 4.
APPEND gs_line TO gt_itab.
gs_line-col1 = 'A'.
gs_line-col2 = 2.
APPEND gs_line TO gt_itab.
gs_line-col1 = 'A'.
gs_line-col2 = 1.
APPEND gs_line TO gt_itab.
SORT gt_itab.
PERFORM write_data.
SORT gt_itaB BY col1 col2.
PERFORM write_data.
SORT gt_itab BY col1 DESCENDING col2 ASCENDING.
PERFORM write_data.
FORM write_data.
LOOP AT gt_itab INTO gs_line.
WRITE: / gs_line-col1, gs_line-col2.
ENDLOOP.
ULINE.
ENDFORM. "WRITE_DATA
댓글 0
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
|---|---|---|---|---|
| 509 | REPORT Z05_33. | sapjoy | 2012.07.30 | 852 |
| 508 | REPORT Z05_32. | sapjoy | 2012.07.30 | 816 |
| 507 | REPORT z05_31. | sapjoy | 2012.07.30 | 877 |
| 506 | REPORT z05_30. | sapjoy | 2012.07.30 | 850 |
| 505 | REPORT z05_29. | sapjoy | 2012.07.30 | 974 |
| 504 | REPORT z05_28. [1] | sapjoy | 2012.07.30 | 824 |
| 503 | REPORT z05_27. | sapjoy | 2012.07.30 | 867 |
| 502 | REPORT z05_26. | sapjoy | 2012.07.30 | 918 |
| 501 | REPORT z05_25. [1] | sapjoy | 2012.07.30 | 870 |
| 500 | REPORT z05_24. | sapjoy | 2012.07.30 | 878 |
| 499 | REPORT z05_23. | sapjoy | 2012.07.30 | 888 |
| 498 | REPORT z05_22. | sapjoy | 2012.07.30 | 873 |
| 497 | REPORT z05_21. | sapjoy | 2012.07.30 | 864 |
| 496 | REPORT z05_20. | sapjoy | 2012.07.30 | 1020 |
| 495 | REPORT z05_19. | sapjoy | 2012.07.30 | 995 |
| 494 | REPORT z05_18. | sapjoy | 2012.07.30 | 901 |
| » | REPORT z05_17. | sapjoy | 2012.07.30 | 898 |
| 492 | REPORT z09_02. | sapjoy | 2012.07.30 | 992 |
| 491 | REPORT z08_05. | sapjoy | 2012.07.30 | 809 |
| 490 | REPORT z08_04. | sapjoy | 2012.07.30 | 876 |
