Aller au contenu

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