DATA: BEGIN OF line,
col1(1) TYPE C,
col2 TYPE I,
END OF line.
DATA itab LIKE STANDARD TABLE OF line
WITH NON-UNIQUE KEY col2.
line-col1 = 'A'. line-col2 = 1.
APPEND line TO itab.
line-col1 = 'A'. line-col2 = 1.
APPEND line TO itab.
line-col1 = 'B'. line-col2 = 2.
APPEND line TO itab.
line-col1 = 'B'. line-col2 = 3.
APPEND line TO itab.
line-col1 = 'B'. line-col2 = 4.
APPEND line TO itab.
line-col1 = 'C'. line-col2 = 5.
APPEND line TO itab.
line-col1 = 'C'. line-col2 = 6.
APPEND line TO itab.
PERFORM list USING 'FIRST'.
DELETE ADJACENT DUPLICATES FROM itab COMPARING ALL FIELDS.
PERFORM list USING 'SECOND'.
*
DELETE ADJACENT DUPLICATES FROM itab COMPARING col1.
PERFORM list USING 'THIRD'.
DELETE ADJACENT DUPLICATES FROM itab.
PERFORM list USING 'FORTH'.
FORM list USING P_TEXT TYPE STRING.
LOOP AT itab INTO line.
WRITE: / P_TEXT, line-col1, line-col2.
ENDLOOP.
ENDFORM.
댓글 3
-
컨설턴트킴
2008.06.30 13:02
와우~와우~와우~ -
바람나무
2008.09.15 16:53
*sort의 필요성 느끼기 ;;
REPORT z07_027 .
DATA: BEGIN OF line,
col1(1) TYPE C,
col2 TYPE I,
END OF line.
DATA itab LIKE STANDARD TABLE OF line
WITH NON-UNIQUE KEY col2.
line-col1 = 'C'. line-col2 = 5.
APPEND line TO itab.
line-col1 = 'C'. line-col2 = 6.
APPEND line TO itab.
line-col1 = 'A'. line-col2 = 1.
APPEND line TO itab.
line-col1 = 'A'. line-col2 = 1.
APPEND line TO itab.
line-col1 = 'B'. line-col2 = 3.
APPEND line TO itab.
line-col1 = 'B'. line-col2 = 2.
APPEND line TO itab.
line-col1 = 'B'. line-col2 = 4.
APPEND line TO itab.
PERFORM list USING 'FIRST'.
DELETE ADJACENT DUPLICATES FROM itab COMPARING ALL FIELDS.
PERFORM list USING 'SECOND'.
DELETE ADJACENT DUPLICATES FROM itab COMPARING col1.
PERFORM list USING 'THIRD'.
DELETE ADJACENT DUPLICATES FROM itab.
PERFORM list USING 'FORTH'.
FORM list USING P_TEXT TYPE STRING.
LOOP AT itab INTO line.
WRITE: / P_TEXT, line-col1, line-col2.
ENDLOOP.
ENDFORM.
-
뺑기
2011.09.22 15:32
유용하게 썼습니다. ^^
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
190 | REPORT z04_05. | sapjoy | 2012.07.30 | 1439 |
189 | REPORT z03_24 [1] | sapjoy | 2012.07.30 | 1428 |
188 | REPORT z17_13 . | sapjoy | 2012.08.01 | 1427 |
187 | REPORT z04_04. | sapjoy | 2012.07.30 | 1411 |
186 | PROGRAM z13_01. | sapjoy | 2012.08.01 | 1410 |
185 | REPORT z15_24. | sapjoy | 2012.08.01 | 1400 |
184 | REPORT z16_11. | sapjoy | 2012.08.01 | 1398 |
183 | REPORT z03_25. | sapjoy | 2012.07.30 | 1367 |
182 | REPORT z12_31. | sapjoy | 2012.07.30 | 1312 |
181 | REPORT z15_12. | sapjoy | 2012.08.01 | 1295 |
180 | REPORT z12_06. | sapjoy | 2012.07.30 | 1294 |
179 | REPORT z16_04. | sapjoy | 2012.08.01 | 1246 |
178 | REPORT Z12_22 | sapjoy | 2012.07.30 | 1226 |
177 | REPORT z15_17. [1] | sapjoy | 2012.08.01 | 1219 |
176 | REPORT z15_23. [1] | sapjoy | 2012.08.01 | 1216 |
175 | REPORT z12_27. | sapjoy | 2012.07.30 | 1208 |
174 | REPORT z15_20. | sapjoy | 2012.08.01 | 1196 |
173 | report Z12_33 | sapjoy | 2012.07.30 | 1193 |
172 | REPORT z15_25. [1] | sapjoy | 2012.08.01 | 1190 |
171 | REPORT z16_10. | sapjoy | 2012.08.01 | 1183 |