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
유용하게 썼습니다. ^^
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
450 | REPORT Z15_006 [2] | sapjoy | 2007.01.23 | 2408 |
449 | REPORT Z05_003 | sapjoy | 2007.05.21 | 2406 |
448 | REPORT z18_012 [1] | sapjoy | 2007.03.09 | 2404 |
447 | REPORT ZBADI_003. | sapjoy | 2009.01.14 | 2403 |
446 | zunicode_001 | sapjoy | 2008.11.21 | 2397 |
445 | MODULE create_dropdown_box | sapjoy | 2007.12.12 | 2397 |
444 | Z07_001 | sapjoy | 2006.12.06 | 2396 |
443 | REPORT z15_016 | sapjoy | 2007.01.29 | 2396 |
442 | REPORT ZSMARTFORMS_07. | sapjoy | 2009.01.22 | 2389 |
441 | REPORT Z03_013 [4] | sapjoy | 2007.05.14 | 2388 |
440 | REPORT Z15_045 | sapjoy | 2007.03.08 | 2388 |
439 | REPORT Z17_021 . | sapjoy | 2007.02.21 | 2386 |
438 | REPORT Z15_004 | sapjoy | 2007.01.23 | 2385 |
437 | report zsalv_020 . | sapjoy | 2010.08.20 | 2381 |
» | REPORT Z07_027 [3] | sapjoy | 2006.12.08 | 2376 |
435 | REPORT Z02_005 . | sapjoy | 2006.12.02 | 2375 |
434 | REPORT Z04_001 | sapjoy | 2007.05.16 | 2375 |
433 | MODULE f4_drum_s101 INPUT. 2 | sapjoy | 2006.12.26 | 2375 |
432 | REPORT Z13_015 [2] | sapjoy | 2007.09.13 | 2373 |
431 | module f4_CARRID input | sapjoy | 2007.07.21 | 2369 |