Hi All,
I am trying to change the fax and email address fields for contact person for customer using IDOC_INPUT_ADR3MAS. but not working.
I am writing the below code. Please let me know how these two fields can be updated if i am doing wrong
CLEAR : gt_idoc_contrl[], gt_idoc_data[], gt_idoc_status[], gt_idoc_return[], gt_serial_info[].
wa_idoc_contrl-docnum = p_idocnum.
wa_idoc_contrl-direct = 2.
wa_idoc_contrl-idoctp = c_adrmas03.
wa_idoc_contrl-mestyp = 'ZSC_MT_ADRMAS'.
APPEND wa_idoc_contrl TO gt_idoc_contrl.
CLEAR wa_idoc_contrl.
CLEAR : gv_segnum.
LOOP AT t_clientbcon INTO ls_client_bcon.
i_e1adrmas-obj_type = 'BUS1006001'.
i_e1adrmas-obj_id = ls_client_bcon-parnr.
i_e1adrmas-context = '0001'.
gv_sdata = i_e1adrmas.
gv_segnum = gv_segnum + 1.
wa_idoc_data-mandt = sy-mandt.
wa_idoc_data-docnum = gv_idocnum .
wa_idoc_data-segnum = gv_segnum.
wa_idoc_data-segnam = c_e1adrmas.
wa_idoc_data-psgnum = '000000'.
wa_idoc_data-hlevel = '01'.
wa_idoc_data-dtint2 = '1000'.
wa_idoc_data-sdata = gv_sdata.
APPEND wa_idoc_data TO gt_idoc_data.
CLEAR: wa_idoc_data.
i_e1bpadfax-country = 'US'.
i_e1bpadfax-fax = ls_client_bcon-fax.
gv_sdata = i_e1bpadfax.
gv_segnum = gv_segnum + 1.
wa_idoc_data-mandt = sy-mandt.
wa_idoc_data-docnum = gv_idocnum .
wa_idoc_data-segnum = gv_segnum.
wa_idoc_data-segnam = c_e1bpadfax.
wa_idoc_data-psgnum = '000000'.
wa_idoc_data-hlevel = '02'.
wa_idoc_data-dtint2 = '1000'.
wa_idoc_data-sdata = gv_sdata.
APPEND wa_idoc_data TO gt_idoc_data.
CLEAR: wa_idoc_data.
i_e1bpadsmtp-e_mail = ls_client_bcon-email.
gv_sdata = i_e1bpadsmtp.
gv_segnum = gv_segnum + 1.
wa_idoc_data-mandt = sy-mandt.
wa_idoc_data-docnum = gv_idocnum .
wa_idoc_data-segnum = gv_segnum.
wa_idoc_data-segnam = c_e1bpadsmtp.
wa_idoc_data-psgnum = '000000'.
wa_idoc_data-hlevel = '02'.
wa_idoc_data-dtint2 = '1000'.
wa_idoc_data-sdata = gv_sdata.
APPEND wa_idoc_data TO gt_idoc_data.
CLEAR: wa_idoc_data.
ENDLOOP.
CALL FUNCTION 'IDOC_INPUT_ADR3MAS'
EXPORTING
input_method = gv_input
mass_processing = gv_mass
TABLES
idoc_contrl = gt_idoc_contrl
idoc_data = gt_idoc_data
idoc_status = gt_idoc_status
return_variables = gt_idoc_return
serialization_info = gt_serial_info
EXCEPTIONS
wrong_function_called = 1
OTHERS = 2.