MEREP_CONTACT_GETDETAIL.abap
FUNCTION merep_contact_getdetail.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" VALUE(PERSNUMBER) LIKE MEREP_PERSON-PERSNUMBER
*" EXPORTING
*" VALUE(PERSON) LIKE MEREP_PERSON STRUCTURE MEREP_PERSON
*" VALUE(RETURN) LIKE BAPIRET2 STRUCTURE BAPIRET2
*" TABLES
*" ADDRESS STRUCTURE MEREP_ADDRESS
*" E_MAIL STRUCTURE MEREP_E_MAIL
*"----------------------------------------------------------------------
DATA:
lds_return LIKE bapireturn1.
CLEAR return.
SELECT SINGLE *
FROM merep_person
INTO person
WHERE persnumber = persnumber.
IF sy-subrc <> 0.
* - Person not found (Persnumber = &)
lds_return-type = 'E'.
lds_return-id = 'MEREP_SAMPLE_APPL1'.
lds_return-number = '005'.
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.
EXIT.
ENDIF.
SELECT *
FROM merep_address
INTO TABLE
address
WHERE persnumber = persnumber.
SELECT *
FROM merep_e_mail
INTO TABLE
e_mail
WHERE persnumber = persnumber.
ENDFUNCTION.