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.