REPORT Y_TEST_UPDATE_VENDOR_DEL.
PARAMETERS: P_LIFNR TYPE LIFNR OBLIGATORY.

START-OF-SELECTION.
  PERFORM UPDATE_DATA.

FORM UPDATE_DATA.
  DATA: LO_VMD_EI_API TYPE REF TO VMD_EI_API.
  DATA: L_TI_IS_MASTER_DATA TYPE VMDS_EI_MAIN,
        L_TI_IS_MASTER_DATA_IN TYPE VMDS_EI_MAIN.
  DATA: LS_VMDS_EI_EXTERN TYPE VMDS_EI_EXTERN.
  DATA: LC_LIFNR TYPE LIFNR.

  CHECK P_LIFNR IS NOT INITIAL.
  CREATE OBJECT LO_VMD_EI_API.

  LS_VMDS_EI_EXTERN-HEADER-OBJECT_INSTANCE-LIFNR = P_LIFNR.
  LS_VMDS_EI_EXTERN-HEADER-OBJECT_TASK = 'U'.
  APPEND LS_VMDS_EI_EXTERN TO L_TI_IS_MASTER_DATA_IN-VENDORS.

  * Capture all the vendor data
  CALL METHOD VMD_EI_API_EXTRACT=>GET_DATA
    EXPORTING
      IS_MASTER_DATA = L_TI_IS_MASTER_DATA_IN
    IMPORTING
      ES_MASTER_DATA = DATA(L_TI_IS_MASTER_DATA_ES)
      ES_ERROR = DATA(L_ERROR).

  * Get the current vendor data into a structure
  READ TABLE L_TI_IS_MASTER_DATA_ES-VENDORS INTO LS_VMDS_EI_EXTERN WITH KEY HEADER-OBJECT_INSTANCE-LIFNR = P_LIFNR.
  IF SY-SUBRC EQ 0.
    LS_VMDS_EI_EXTERN-HEADER-OBJECT_INSTANCE-LIFNR = P_LIFNR.
    LS_VMDS_EI_EXTERN-HEADER-OBJECT_TASK = 'U'.
    LOOP AT LS_VMDS_EI_EXTERN-CENTRAL_DATA-BANK_DETAIL-BANK_DETAILS ASSIGNING FIELD-SYMBOL(<LFS_BANK>).
      * This is the delete order
      <LFS_BANK>-TASK = 'D'.
    END LOOP.
    APPEND LS_VMDS_EI_EXTERN TO L_TI_IS_MASTER_DATA-VENDORS.

    CALL METHOD LO_VMD_EI_API->MAINTAIN_BAPI
      EXPORTING
        IS_MASTER_DATA = L_TI_IS_MASTER_DATA
        IV_COLLECT_MESSAGES = ABAP_TRUE
      IMPORTING
        ES_MASTER_DATA_CORRECT = DATA(LS_ES_MASTER_DATA_CORRECT)
        ES_MESSAGE_CORRECT = DATA(LS_ES_MESSAGE_CORRECT)
        ES_MASTER_DATA_DEFECTIVE = DATA(LS_ES_MASTER_DATA_DEFECTIVE)
        ES_MESSAGE_DEFECTIVE = DATA(LS_ES_MESSAGE_DEFECTIVE).

    IF LS_ES_MESSAGE_DEFECTIVE-IS_ERROR IS INITIAL AND
       LS_ES_MESSAGE_DEFECTIVE-MESSAGES() IS INITIAL.
      COMMIT WORK AND WAIT.
    ELSE.
      ROLLBACK WORK.
    END IF.
  END IF.
ENDFORM.