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 Z05_008 [2] | sapjoy | 2007.05.27 | 2611 |
189 | REPORT Z05_007 [2] | sapjoy | 2007.05.26 | 2192 |
188 | REPORT Z05_003 | sapjoy | 2007.05.21 | 2406 |
187 | REPORT z05_005 | sapjoy | 2007.05.21 | 2160 |
186 | REPORT Z05_002 | sapjoy | 2007.05.21 | 2172 |
185 | REPORT Z05_001 [3] | sapjoy | 2007.05.21 | 2880 |
184 | REPORT Z04_019 [2] | sapjoy | 2007.05.21 | 2476 |
183 | REPORT Z04_018 | sapjoy | 2007.05.21 | 2109 |
182 | REPORT Z04_017 | sapjoy | 2007.05.21 | 2233 |
181 | REPORT z04_014 | sapjoy | 2007.05.21 | 2216 |
180 | REPORT Z04_015 | sapjoy | 2007.05.16 | 2111 |
179 | REPORT Z04_011 [1] | sapjoy | 2007.05.16 | 2249 |
178 | REPORT Z04_012 [1] | sapjoy | 2007.05.16 | 2064 |
177 | REPORT Z04_022 | sapjoy | 2007.05.16 | 2092 |
176 | REPORT Z04_021 [4] | sapjoy | 2007.05.16 | 2206 |
175 | REPORT Z04_008 [1] | sapjoy | 2007.05.16 | 2150 |
174 | REPORT Z04_003 [9] | sapjoy | 2007.05.16 | 2561 |
173 | REPORT Z04_001 | sapjoy | 2007.05.16 | 2375 |
172 | REPORT Z03_030 | sapjoy | 2007.05.15 | 2166 |
171 | REPORT Z03_028 | sapjoy | 2007.05.15 | 2102 |