move-corresponding abap V2

REPORT ztestcra2.

TYPES : BEGIN OF lty_mat,

material   TYPE /bic/oiymaterial,

rt_confmat TYPE /bi0/oirt_confmat,

END OF lty_mat.

TYPES : BEGIN OF lty_mat2,

rt_confmat TYPE /bi0/oirt_confmat,

END OF lty_mat2.

DATA : lt_mat TYPE STANDARD TABLE OF lty_mat,

ls_mat TYPE lty_mat.

DATA : lt_mat2 TYPE STANDARD TABLE OF lty_mat2.

SELECT /bic/ymaterial /bic/yrt_cfmat INTO TABLE lt_mat

FROM /bic/pymaterial UP TO 200000 ROWS

WHERE objvers = 'A'

AND /bic/ymaterial <> ''

AND /bic/yrt_cfmat <> ''.

lt_mat2 = CORRESPONDING #( lt_mat ).

SORT lt_mat2 BY rt_confmat.

DELETE ADJACENT DUPLICATES FROM lt_mat2.

WRITE 'alors ?'.