Problem while updating Tel no and Fax no using BAPI_BUPA_ADDRESS_CHANGE

Question

Hi,
Im trying to update the Telephone number and Fax number using a BAPI but unable to update in Tcode BP .can you please tell teh solution.my code is below.
data : i_tel like BAPIADTEL occurs 0 with header line,
       i_fax like BAPIADFAX occurs 0 with header line,
       i_telx like BAPIADTELX occurs 0 with header line,
       i_faxx like BAPIADFAXX occurs 0 with header line.
i_tel-telephone = '800-266-3377'.
append i_tel.
i_fax-fax = '505-796-9601'.
append i_fax.
i_telx-telephone = 'X'.
append i_telx.
i_faxx-fax = 'X'.
append i_faxx.
To add Telephone number and FAX number
CALL FUNCTION 'BAPI_BUPA_ADDRESS_CHANGE'
  EXPORTING
    businesspartner              = '0007000006'
TABLES
   BAPIADTEL                    = i_tel[]
   BAPIADFAX                    = i_fax[]
   BAPIADTEL_X                  = i_telx[]
   BAPIADFAX_X                  = i_faxx[].
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.
if sy-subrc =0.
write:/5 'Successfully updated'.
endif.
Regards,
Deepthi.

Answer 1

DATA : i_tel LIKE bapiadtel OCCURS 0 WITH HEADER LINE,
         i_fax LIKE bapiadfax OCCURS 0 WITH HEADER LINE,
         i_telx LIKE bapiadtelx OCCURS 0 WITH HEADER LINE,
         i_faxx LIKE bapiadfaxx OCCURS 0 WITH HEADER LINE,
         i_return LIKE bapiret2 OCCURS 0 with header line.
  i_tel-telephone = '800-266-3356'.
  APPEND i_tel.
  i_fax-fax = '505-796-9656'.
  APPEND i_fax.
  i_telx-telephone = 'X'.
  i_telx-updateflag = 'I'.
  APPEND i_telx.
  i_faxx-fax = 'X'.
  i_faxx-updateflag = 'I'.
  APPEND i_faxx.
To add Telephone number and FAX number
  CALL FUNCTION 'BAPI_BUPA_ADDRESS_CHANGE'
    EXPORTING
      businesspartner = '0007000006'
    TABLES
      bapiadtel       = i_tel[]
      bapiadfax       = i_fax[]
      bapiadtel_x     = i_telx[]
      bapiadfax_x     = i_faxx[]
      return          = i_return.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.
  IF sy-subrc = 0.
    WRITE:/5 'Successfully updated'.
  ENDIF.
data:v_msg(255) type c.
loop at i_return.
CALL FUNCTION 'FORMAT_MESSAGE'
  EXPORTING
    ID              = i_return-id
    LANG            = 'EN'
    NO              = i_return-number
    V1              = i_return-message
  IMPORTING
    MSG             = v_msg
  EXCEPTIONS
    NOT_FOUND       = 1
    OTHERS          = 2 .
write:/5 v_msg.
endloop.