How can i update the ADRT table REMARK field

[Former Member]

How can i update the ADRT table REMARK field

by using only function modules or BAPI's not by direct update's

please help me

i need it urgently

[Former Member]

Hello ,

I have the same requirement.

Did you get success ? Please share.

Thank you !

[Former Member]

Hello,

I got success to update REMARK field in ADRT table.

We can do following steps :

Get Sequence number:

   CALL FUNCTION 'ADDR_SELECT_ADRCOMC_SINGLE'

     EXPORTING

       addrnumber = p_adrnr  "Address Number

     TABLES

       et_adrcomc = lt_adrcomc.

   IF sy-subrc EQ 0.

     SORT lt_adrcomc BY comm_type.

     READ TABLE lt_adrcomc

           INTO ls_adrcomc

       WITH KEY comm_type = 'INT'

       BINARY SEARCH.

     IF sy-subrc EQ 0.

       ls_commtab-consnumber = ls_adrcomc-high_value + 1. "Sequence Number

     ENDIF.

   ENDIF.

   ls_commtab-smtp_addr = p_email.   "Email Address

   ls_commtab-remark = p_remark.      "Remark to add

   ls_commtab-updateflag = 'I'.            "Flag for insert

   APPEND ls_commtab TO lt_commtab.

Update Remark in XD02 (ADRT table)

   CALL FUNCTION 'ADDR_COMM_MAINTAIN'

     EXPORTING

       address_number              = p_adrnr                "Address Number

       date_from                      = '00010101'        

       language                       = sy-langu

       table_type                     = 'ADSMTP'             "Constant

       check_address                  = 'X'

       iv_time_dependence             = 'X'

       iv_consider_adrcomc_for_insert = 'X'

     IMPORTING

       returncode                     = lv_return

     TABLES

       comm_table                     = lt_commtab.

   IF sy-subrc = 0.

     IF p_test IS INITIAL.

       CALL FUNCTION 'ADDR_MEMORY_SAVE'.

     ENDIF.

     IF sy-subrc = 0.

       WRITE : / 'Table ADRT is updated successfully for address :',

                  p_adrnr.

     ENDIF.

   ELSE.

     WRITE : / 'Error- Table ADRT is not updated for address : ',

      p_adrnr.

   ENDIF.

Once data is updated in remark field of ADRT table, it will be reflected in XD02 also.

Please let me know if I am not clear enough.

Thank you !
Harish Bhatt