*&---------------------------------------------------------------------*
*& Report Z99_88
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_88.

*" ABAP 7.40 릴리즈 이전
TYPES: BEGIN OF TY_TYPE1,
         FIELD1 TYPE NUMC4,
         FIELD2 TYPE CHAR15,
         FIELD3 TYPE I,
         FIELD4 TYPE P DECIMALS 2,
       END OF TY_TYPE1,
       TY_T_TYPE1 TYPE TABLE OF TY_TYPE1.

DATA ITAB1 TYPE TY_T_TYPE1.
DATA ITAB2 TYPE TY_T_TYPE1.

ITAB1 = VALUE #(
 ( FIELD1 = '2023' FIELD2 = 'EASY ABAP 2.0'
   FIELD3 = 10 FIELD4 = 100 )

 ( FIELD1 = '2023' FIELD2 = 'EASY ABAP 3.0'
   FIELD3 = 20 FIELD4 = 200 ) ).

MOVE-CORRESPONDING ITAB1 TO ITAB2.

SORT ITAB2 BY FIELD1.
DELETE ADJACENT DUPLICATES FROM ITAB2
  COMPARING FIELD1.

CL_DEMO_OUTPUT=>DISPLAY( ITAB2 ).


**" ABAP 7.40 릴리즈 이후
*TYPES: BEGIN OF TY_TYPE1,
*         FIELD1 TYPE NUMC4,
*         FIELD2 TYPE CHAR15,
*         FIELD3 TYPE I,
*         FIELD4 TYPE P DECIMALS 2,
*       END OF TY_TYPE1,
*       TY_T_TYPE1 TYPE TABLE OF TY_TYPE1.
*
*DATA: ITAB1 TYPE STANDARD TABLE OF TY_TYPE1
*            WITH EMPTY KEY,
*      ITAB2 TYPE SORTED TABLE OF TY_TYPE1
*            WITH UNIQUE KEY FIELD1.
*
*ITAB1 = VALUE #(
*( FIELD1 = '2023' FIELD2 = 'EASY ABAP 2.0'
*  FIELD3 = 10 FIELD4 = 100 )
*
*( FIELD1 = '2023' FIELD2 = 'EASY ABAP 3.0'
*  FIELD3 = 20 FIELD4 = 200 ) ).
*
*ITAB2 = CORRESPONDING #(
*  ITAB1 DISCARDING DUPLICATES ).
*
*CL_DEMO_OUTPUT=>DISPLAY( ITAB2 ).