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
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
|---|---|---|---|---|
| 511 | REPORT z05_35. [1] | sapjoy | 2012.07.31 | 909 |
| 510 | REPORT Z05_34. | sapjoy | 2012.07.31 | 844 |
| 509 | REPORT Z05_33. | sapjoy | 2012.07.31 | 874 |
| 508 | REPORT Z05_32. | sapjoy | 2012.07.31 | 840 |
| 507 | REPORT z05_31. | sapjoy | 2012.07.31 | 899 |
| 506 | REPORT z05_30. | sapjoy | 2012.07.31 | 868 |
| 505 | REPORT z05_29. | sapjoy | 2012.07.31 | 986 |
| 504 | REPORT z05_28. [1] | sapjoy | 2012.07.31 | 840 |
| 503 | REPORT z05_27. | sapjoy | 2012.07.31 | 894 |
| 502 | REPORT z05_26. | sapjoy | 2012.07.31 | 939 |
| 501 | REPORT z05_25. [1] | sapjoy | 2012.07.31 | 891 |
| 500 | REPORT z05_24. | sapjoy | 2012.07.31 | 903 |
| 499 | REPORT z05_23. | sapjoy | 2012.07.31 | 906 |
| 498 | REPORT z05_22. | sapjoy | 2012.07.31 | 884 |
| 497 | REPORT z05_21. | sapjoy | 2012.07.31 | 881 |
| 496 | REPORT z05_20. | sapjoy | 2012.07.31 | 1041 |
| 495 | REPORT z05_19. | sapjoy | 2012.07.31 | 1013 |
| 494 | REPORT z05_18. | sapjoy | 2012.07.31 | 915 |
| » | REPORT z05_17. | sapjoy | 2012.07.31 | 914 |
| 492 | REPORT z09_02. | sapjoy | 2012.07.31 | 1016 |
