I am trying to update some of the customized fields of tcode xd01, but unable to do so.
Please help.
The code is given below:
CLEAR: addr_no,addr_grp.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = v_kunnr
IMPORTING
output = v_kunnr.
SELECT SINGLE adrnr
FROM kna1
INTO addr_no
WHERE kunnr = v_kunnr.
SELECT SINGLE addr_group
FROM adrc
INTO addr_grp
WHERE addrnumber = addr_no.
gi_bapiad1vl-addr_group = addr_grp.
ztitle = wa_final_output-title.
CASE ztitle.
WHEN 'MS.'.
gi_bapiad1vl-title = '0001'.
WHEN 'MR.'.
gi_bapiad1vl-title = '0002'.
WHEN 'COMPANY'.
gi_bapiad1vl-title = '0003'.
WHEN 'MR and MRS'.
gi_bapiad1vl-title = '0004'.
WHEN 'DR.'.
gi_bapiad1vl-title = '0005'.
ENDCASE.
gi_bapiad1vl-name = wa_final_output-name1.
gi_bapiad1vl-name_2 = wa_final_output-name2.
gi_bapiad1vl-city = wa_final_output-ort01.
gi_bapiad1vl-po_box_reg = wa_final_output-regio.
gi_bapiad1vl-postl_cod1 = wa_final_output-pstlz.
gi_bapiad1vl-street = wa_final_output-stras.
gi_bapiad1vl-str_suppl1 = wa_final_output-str_suppl1.
gi_bapiad1vl-country = wa_final_output-land1.
gi_bapiad1vl-langu = 'EN'.
gi_bapiad1vl-sort1 = wa_final_output-sort1.
gi_bapiad1vl-sort2 = wa_final_output-sort2.
gi_bapiad1vl-transpzone = wa_final_output-lzone.
APPEND gi_bapiad1vl.
CLEAR gi_bapiad1vl.
objid = v_kunnr.
CALL FUNCTION 'BAPI_ADDRESSORG_SAVEREPLICA'
EXPORTING
obj_type = 'KNA1'
obj_id = objid
OBJ_ID_EXT = ' '
CONTEXT = '0001'
iv_check_address = 'X'
IMPORTING
return = return1
address_number = lv_addrnum
TABLES
bapiad1vl = gi_bapiad1vl
bapiadtel = gi_bapiadtel
bapiadfax = gi_bapiadfax
bapiadsmtp = gi_bapiadsmtp.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
ENDFORM.