MEREP_CONTACT_DELETE.abap


FUNCTION MEREP_CONTACT_DELETE.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(PERSNUMBER) LIKE  MEREP_PERSON-PERSNUMBER
*"  EXPORTING
*"     VALUE(RETURN) LIKE  BAPIRET2 STRUCTURE  BAPIRET2
*"----------------------------------------------------------------------

  DATA:
     lds_return                LIKE bapireturn1.

  CLEAR return.

  DELETE FROM merep_address
             WHERE persnumber = persnumber.

  DELETE FROM merep_e_mail
             WHERE persnumber = persnumber.

  DELETE FROM merep_person
             WHERE persnumber = persnumber.

  COMMIT WORK.

* - Person deleted successfully (Persnumber=&)
  lds_return-type       = 'S'.
  lds_return-id         = 'MEREP_SAMPLE_APPL1'.
  lds_return-number     = '007'.
  lds_return-message_v1 = persnumber.

  CALL FUNCTION 'MEREP_RETURN_GET'
    EXPORTING
      type   = lds_return-type
      id     = lds_return-id
      number = lds_return-number
      par1   = lds_return-message_v1
    IMPORTING
      return = lds_return.

  MOVE-CORRESPONDING lds_return TO return.

ENDFUNCTION.