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
유용하게 썼습니다. ^^
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
50 | REPORT Z11_010 | sapjoy | 2006.12.22 | 2358 |
49 | REPORT Z11_008 | sapjoy | 2006.12.22 | 2496 |
48 | REPORT Z11_005 | sapjoy | 2006.12.22 | 2273 |
47 | REPORT z11_004 . | sapjoy | 2006.12.22 | 2465 |
46 | REPORT Z11_001 | sapjoy | 2006.12.20 | 2976 |
45 | PUT_SPFLI PUT_SFLIGHT PUT_SBOOK | sapjoy | 2006.12.19 | 2614 |
44 | REPORT Z09_010 | sapjoy | 2006.12.19 | 2523 |
43 | DBZF1SSEL | sapjoy | 2006.12.19 | 2842 |
42 | REPORT Z09_006 [1] | sapjoy | 2006.12.18 | 2839 |
41 | REPORT Z09_005 | sapjoy | 2006.12.18 | 2514 |
40 | REPORT z09_002 | sapjoy | 2006.12.15 | 2602 |
39 | REPORT Z07_033 | sapjoy | 2006.12.08 | 2317 |
38 | REPORT Z07_031 [2] | sapjoy | 2006.12.08 | 2309 |
37 | REPORT Z07_030 [4] | sapjoy | 2006.12.08 | 2438 |
» | REPORT Z07_027 [3] | sapjoy | 2006.12.08 | 2374 |
35 | REPORT Z07_026 [3] | sapjoy | 2006.12.08 | 2632 |
34 | REPORT Z07_023 | sapjoy | 2006.12.08 | 2255 |
33 | REPORT Z07_022 | sapjoy | 2006.12.08 | 2070 |
32 | REPORT Z07_024 | sapjoy | 2006.12.08 | 2472 |
31 | REPORT Z07_021 [2] | sapjoy | 2006.12.08 | 2453 |