Changing address using FM APAR_EBPP_CHANGE_ADDRESS - error occured

Question

Hi Guys,
             I am using using FM APAR_EBPP_CHANGE_ADDRESS to change contact person address of a customer.
I am getting following error
Error occurred in function module ADDR_CHECK  - Address No.0000072244
Any one used this FM.
Can you give me a source code example if you have one.
Thanks
Setnhil

Answer 1

I solved the issue.
Here is the code for future reference.
""Local Interface:
*"  IMPORTING
*"     VALUE(CUSTOMER) TYPE  KUNNR
*"     REFERENCE(NAME) TYPE  AD_NAME_CO
*"     REFERENCE(TEL_NUMBER) TYPE  AD_TLNMBR
*"     REFERENCE(FAX_NUMBER) TYPE  AD_FXNMBR
*"     REFERENCE(EMAIL) TYPE  AD_SMTPADR
*"  TABLES
*"      RETURN STRUCTURE  BAPIRET2
  DATA: wa_partner TYPE ebpp_partner,
        wa_address TYPE apar_ebpp_address,
        wa_return TYPE bapiret1.
  DATA: it_telephone TYPE TABLE OF apar_ebpp_adtel WITH HEADER LINE,
        it_fax TYPE TABLE OF apar_ebpp_adfax WITH HEADER LINE,
        it_email TYPE TABLE OF apar_ebpp_adsmtp WITH HEADER LINE.
  DATA: l_customer(2) VALUE '12',  " Customer
        l_retcode TYPE sy-subrc,
        l_update VALUE 'U',
        l_insert VALUE 'I',
        l_idx TYPE i VALUE 1.
  wa_partner-partnertype = l_customer.
  wa_partner-partnerkey = customer.
  CALL FUNCTION 'APAR_EBPP_GET_ADDRESS'
    EXPORTING
      i_partner          = wa_partner
  I_ADDSEL           =
   IMPORTING
     e_address          = wa_address
     e_returncode       = l_retcode
     return             = wa_return
   TABLES
     t_telephones       = it_telephone
     t_faxes            = it_fax
     t_emails           = it_email.
  T_R3MAILS          =
  T_INTERNETS        =
  T_MESSAGES         =
  IF l_retcode = 0.
Name
    wa_address-name_co = name.
Telephone No.
    READ TABLE it_telephone INDEX 1.
    IF sy-subrc EQ 0.
      it_telephone-tel_number = tel_number.
      it_telephone-updateflag = l_update.
      MODIFY it_telephone INDEX l_idx FROM it_telephone.
    ELSE.
      it_telephone-tel_number = tel_number.
      it_telephone-updateflag = l_insert.
      APPEND it_telephone TO it_telephone.
    ENDIF.
Fax
    READ TABLE it_fax INDEX 1.
    IF sy-subrc EQ 0.
      it_fax-fax_number = fax_number.
      it_fax-updateflag = l_update.
      MODIFY it_fax INDEX l_idx FROM it_fax.
    ELSE.
      it_fax-fax_number = fax_number.
      it_fax-updateflag = l_insert.
      APPEND it_fax TO it_fax.
    ENDIF.
Email
    READ TABLE it_email INDEX 1.
    IF sy-subrc EQ 0.
      it_email-smtp_addr = email.
      it_email-updateflag = l_update.
      MODIFY it_email INDEX l_idx FROM it_email.
    ELSE.
      it_email-consnumber = '001'.
      it_email-flgdefault = 'X'.
      it_email-smtp_addr = email.
      it_email-updateflag = l_insert.
      APPEND it_email TO it_email.
    ENDIF.
    CALL FUNCTION 'APAR_EBPP_CHANGE_ADDRESS'
      EXPORTING
        i_partner             = wa_partner
        i_address             = wa_address
  I_CHECKMODUS          = ' '
  I_PLEASE_COMMIT       = 'X'
     IMPORTING
       e_returncode          = l_retcode
       return                = wa_return
     TABLES
       t_telephones          = it_telephone
       t_faxes               = it_fax
       t_emails              = it_email.
  T_R3MAILS             =
  T_INTERNETS           =
  T_MESSAGES            =
    APPEND wa_return TO return.
  ENDIF.
Cheers
Senthil