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 = '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.