*&---------------------------------------------------------------------*
*& Include ZXM01U04
*&---------------------------------------------------------------------*
DATA : LT_EKPO TYPE TABLE OF EKPO WITH HEADER LINE.
IF SY-TCODE = 'ZPOEMAIL' OR SY-CPROG = 'Z_PO_EMAIL'.
SELECT *
FROM EKPO
INTO CORRESPONDING FIELDS OF TABLE LT_EKPO
WHERE EBELN = CX_DOC-XEKKO-EBELN.
LOOP AT LT_EKPO WHERE LOEKZ <> 'L'.
EXIT.
ENDLOOP.
* All item was deleted
IF SY-SUBRC <> 0.
SY-SUBRC = 0.
EX_RETCO = 1.
ENDIF.
ENDIF.
*& Include ZXM01U04
*&---------------------------------------------------------------------*
DATA : LT_EKPO TYPE TABLE OF EKPO WITH HEADER LINE.
IF SY-TCODE = 'ZPOEMAIL' OR SY-CPROG = 'Z_PO_EMAIL'.
SELECT *
FROM EKPO
INTO CORRESPONDING FIELDS OF TABLE LT_EKPO
WHERE EBELN = CX_DOC-XEKKO-EBELN.
LOOP AT LT_EKPO WHERE LOEKZ <> 'L'.
EXIT.
ENDLOOP.
* All item was deleted
IF SY-SUBRC <> 0.
SY-SUBRC = 0.
EX_RETCO = 1.
ENDIF.
ENDIF.