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
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
|---|---|---|---|---|
| 670 |
<b>easy abap 소스 전체 파일 입니다.
[188]  | sapjoy | 2008.05.01 | 10126 |
| 669 | REPORT z18_033 [47] | sapjoy | 2008.10.13 | 9031 |
| 668 | REPORT Z15_003 [49] | sapjoy | 2008.04.15 | 7498 |
| 667 | report zunicode_027. [4] | sapjoy | 2008.11.21 | 6262 |
| 666 | REPORT Z20_01. | sapjoy | 2012.08.01 | 5067 |
| 665 | REPORT z18_03. | sapjoy | 2012.08.01 | 4562 |
| 664 | Z01_012 [9] | sapjoy | 2006.12.02 | 4551 |
| 663 | Z_EXPORT_GRAPHIC_FROM_SE78 [1] | sapjoy | 2011.03.28 | 4443 |
| 662 | report zsapdoi_002. | sapjoy | 2008.12.26 | 4405 |
| 661 | REPORT zsmw0010 | sapjoy | 2010.10.11 | 4313 |
| 660 | REPORT z18_028 | sapjoy | 2007.04.09 | 4278 |
| 659 | report zsalv_045 . | sapjoy | 2010.08.20 | 4262 |
| 658 | Dynamic Table Maintenance [1] | sapjoy | 2006.12.04 | 4094 |
| 657 | REPORT ZTABLE_UTIL | sapjoy | 2010.10.09 | 4010 |
| 656 | REPORT Z19_02. | sapjoy | 2012.08.01 | 3930 |
| 655 | report zsaptip_009 [1] | sapjoy | 2010.12.10 | 3852 |
| 654 | INCLUDE ZXF04U01 | sapjoy | 2008.12.15 | 3695 |
| 653 | REPORT ZTEST_ABAPTPDF | sapjoy | 2010.10.09 | 3691 |
| 652 | REPORT Z_3DGRAPH. [1] | sapjoy | 2010.10.17 | 3659 |
| 651 | REPORT zfalv_011. | sapjoy | 2011.02.16 | 3624 |
