Need help to change user email id in table ADR6

Question

Hi,
i want to update user email id in table adr6. i hv written following code but not working to change email in table adr6.
      DATA lo_nd_email TYPE REF TO if_wd_context_node.
      DATA lo_el_email TYPE REF TO if_wd_context_element.
      DATA ls_email TYPE wd_this->element_email.
      DATA lv_mail_id LIKE ls_email-mail_id.
    navigate from <CONTEXT> to <EMAIL> via lead selection
      lo_nd_email = wd_context->get_child_node( name = wd_this->wdctx_email ).
    get element via lead selection
      lo_el_email = lo_nd_email->get_element(  ).
    get single attribute
      lo_el_email->get_attribute(
        EXPORTING
          name =  `MAIL_ID`
        IMPORTING
          value = lv_mail_id ).
      DATA:lv_bname TYPE BAPIBNAME-BAPIBNAME.
      DATA:lt_return TYPE TABLE OF bapiret2.
      DATA:PER_NO TYPE AD_PERSNUM,
           ADDR_NO TYPE ADRC-ADDRNUMBER."AD_ADDRNUM.
      DATA:SEARCH TYPE REF TO IF_WD_CONTEXT_NODE.
      SEARCH = WD_CONTEXT->GET_CHILD_NODE( 'USER' ).
      SEARCH->GET_ATTRIBUTE( EXPORTING NAME = 'BNAME'
           IMPORTING VALUE =  lv_bname ).
      DATA:wa_address TYPE bapiaddr3.
      DATA : CONS_NO TYPE AD_CONSNUM.
    IF lv_mail_id IS INITIAL.
          get message manager
          DATA lo_api_controller TYPE REF TO if_wd_controller.
          DATA lo_message_manager TYPE REF TO if_wd_message_manager.
          lo_api_controller ?= wd_this->wd_get_api( ).
          CALL METHOD lo_api_controller->get_message_manager
            RECEIVING
              message_manager = lo_message_manager.
          report message
          CALL METHOD lo_message_manager->report_error_message
            EXPORTING
              message_text  = 'Please Enter Email Id'.
    ENDIF.
   DATA:l_addr type addr_keynr.
   DATA:C_YES(1).
        CLEAR:C_YES.
        C_YES = 'X'.
   TYPES: ty_comm_smtp TYPE  adsmtp ,             
        ty_returncode TYPE SZAD_FIELD-RETURNCODE,
        ty_error TYPE ADDR_ERROR,
        adsuse TYPE ADSUSE.
    DATA:EMAIL_ID TYPE AD_SMTPADR,
         lt_comm_smtp TYPE STANDARD TABLE OF ty_comm_smtp,    """"Data Object
         lv_returncode TYPE STANDARD TABLE OF ty_returncode,
         error_table TYPE STANDARD TABLE OF ty_error,
         lt_adsuse  TYPE STANDARD TABLE OF adsuse.
    data:ls_comm_smtp like LINE OF lt_comm_smtp,
         ls_returncode like LINE OF lv_returncode .
    CALL FUNCTION  'SUSR_USER_ADDRESSKEY_GET'
      EXPORTING  BNAME    = lv_bname
      IMPORTING  PERSNUMBER    = l_addr-persnumber
                 ADDRNUMBER    = l_addr-addrnumber
           EXCEPTIONS ADDRESS_NOT_FOUND = 1
                      OTHERS            = 2.
  IF SY-SUBRC = 0.
    REFRESH: lt_comm_smtp.
      CALL FUNCTION 'ADDR_PERS_COMP_COMM_GET'
           EXPORTING
                address_handle    = ''
                address_number    = l_addr-addrnumber
                person_handle     = ''
                person_number     = l_addr-persnumber
                DATE_FROM         = '00010101'
              LANGUAGE          = SY-LANGU
                table_type        = 'ADSMTP'
                iv_current_state  = space                       "*981i
           IMPORTING
                returncode        = ls_returncode
           TABLES
                comm_table        = lt_comm_smtp
                error_table       = error_table
                et_usage          = lt_adsuse                   "*981i
           EXCEPTIONS
                parameter_error   = 1
                address_not_exist = 2
                person_not_exist  = 3
                internal_error    = 4
                OTHERS            = 99.
      IF sy-subrc <> 0.
        IF sy-subrc = 1 OR sy-subrc = 2 OR sy-subrc = 3.
         raise_message 'AM' 'A' 885 'ADDR_PERS_COMP_COMM_GET' space
         space space internal_error.
        ELSE.
         same_message_dia_a internal_error.
        ENDIF.
      ENDIF.
  ENDIF.
    CLEAR:ls_comm_smtp, email_id.
    READ TABLE lt_comm_smtp INTO ls_comm_smtp INDEX 1.
    EMAIL_ID = ls_comm_smtp-smtp_addr.    """""""OLD EMAIL ID which we get from ADDR_PERS_COMP_COMM_GET
    CONS_NO = ls_comm_smtp-CONSNUMBER.
    CLEAR:ls_comm_smtp.
    ls_comm_smtp-CONSNUMBER = CONS_NO.
    ls_comm_smtp-FLGDEFAULT = 'X'.
    ls_comm_smtp-HOME_FLAG = 'X'.
    ls_comm_smtp-UPDATEFLAG = 'U'.
    ls_comm_smtp-smtp_addr = lv_mail_id.
    TRANSLATE email_id TO UPPER CASE.
    ls_comm_smtp-smtp_srch = email_id.
    REFRESH :lt_comm_smtp.
     append ls_comm_smtp to lt_comm_smtp.
  IF SY-SUBRC = 0.
    CALL FUNCTION 'ADDR_PERS_COMP_COMM_MAINTAIN'
         EXPORTING
              address_handle    = ' '
              address_number    = l_addr-addrnumber
              person_handle     = ' '
              person_number     = l_addr-persnumber
              table_type        = 'ADSMTP'
              iv_time_dependence = C_YES                   "*981i
        IMPORTING
             returncode        =  ls_returncode
        TABLES
             comm_table        =  lt_comm_smtp
             error_table       =  error_table
        EXCEPTIONS
             parameter_error   = 1
             address_not_exist = 2
             person_not_exist  = 3
             internal_error    = 4
             OTHERS            = 99.
      IF sy-subrc <> 0.
        EXIT.
      ENDIF.
  ENDIF.
  IF sy-subrc = 0.
      COMMIT WORK.
  ENDIF.
i hv also tried second approch available on sdn CALL FUNCTION 'ADDR_COMM_MAINTAIN'. but in this fm person number we can't pass.
please help me

Answer 1

Hi Abhilesh,
You can use the following FM's to update the Email ID. There are many posts ADDR* FM using for updating Email ID.  Please have a look if you have a doubt.
DATA: iadsmtp TYPE adsmtp    OCCURS 0 WITH HEADER LINE.
"Retrieving Address Details
CALL FUNCTION 'ADDR_COMM_GET'
      EXPORTING
        address_number =  addrnr
        table_type     = 'ADSMTP'
      TABLES
        comm_table     = iadsmtp
      EXCEPTIONS
        OTHERS         = 0.
READ TABLE iadsmtp index 1.
if sy-subrc is initial.
iadsmtp-SMTP_ADDR = 'new mail ID'.  " Here pass your New Email ID
Modify iadsmtp.
Endif.
  CALL FUNCTION 'ADDR_COMM_MAINTAIN'
      EXPORTING
        address_number           = addrnr
        table_type               = 'ADSMTP'
        substitute_all_comm_data = 'X'
      TABLES
        comm_table               = iadsmtp
      EXCEPTIONS
        OTHERS                   = 0.
Then call FM 'ADDR_SINGLE_SAVE'  to do the Commit.