Hi Experts,
Our requirement is to trigger the idoc from ECC to PI.
when we run the program, it is not showing any issues, either in ECC or in PI. no Dump in SM58.
But the idoc is not creating in the ECC.
When i test it form WE19, it is creating Dump in SM58.
When i execute LUW, it is showing the Function module does not exist or exception raised.
Program:
REPORT zhr_idoc_zdepinfo.
CONSTANTS: c_depseg TYPE edidd-segnam VALUE 'ZDEPINFO'.
CONSTANTS: c_idoctp TYPE edidc-idoctp VALUE 'ZDEPINFO'.
DATA s_ctrl_rec TYPE edidc. "Idoc Control Record
DATA: ls_dep TYPE zbapidepinfo, "Dependent Record
lt_dep TYPE TABLE OF zbapidepinfo, "Dependent Deatils
ls_ret TYPE bapireturn.
DATA t_edidd TYPE edidd OCCURS 0 WITH HEADER LINE."Data Records
DATA t_comm_idoc TYPE edidc OCCURS 0 WITH HEADER LINE."Generated Communication IDOc
PARAMETERS: p_mestyp TYPE edidc-mestyp DEFAULT 'ZDEPINFO', "Message Type
p_rcvprt TYPE edidc-rcvprt DEFAULT 'LS', "Partner type of receiver
p_logsys TYPE edidc-rcvprn DEFAULT 'PITCLNT200',
p_rcvpor TYPE edidc-rcvpor DEFAULT 'SAPPIT', " MOD1
p_sndprn TYPE edidc-sndprn DEFAULT 'RD1CLNT100',
p_sndprt TYPE edidc-sndprt DEFAULT 'LS',
p_curdat TYPE sy-datum DEFAULT sy-datum,
P_MANDT TYPE SY-MANDT DEFAULT '200'. " MOD1
START-OF-SELECTION.
** Dependent Details**********
CLEAR: ls_dep,lt_dep[].
CALL FUNCTION 'ZBAPI_DEPINFO_DELTA'
EXPORTING
aedtm = p_curdat
IMPORTING
return = ls_ret
TABLES
it_dep = lt_dep.
****** preapare data for IDoc ************************
CLEAR ls_dep.
LOOP AT lt_dep INTO ls_dep.
t_edidd-segnam = c_depseg.
t_edidd-sdata = ls_dep.
APPEND t_edidd.
CLEAR t_edidd.
ENDLOOP.
***** preapare control data *********
s_ctrl_rec-rcvpor = p_rcvpor. "Receiver Port
s_ctrl_rec-mestyp = p_mestyp. "Message type
s_ctrl_rec-idoctp = c_idoctp. "Basic IDOC type
s_ctrl_rec-rcvprt = p_rcvprt. "Partner type of receiver
s_ctrl_rec-rcvprn = p_logsys. "Partner number of receiverp
s_ctrl_rec-sndprt = p_sndprt. "Sender Partner type
s_ctrl_rec-sndprn = p_sndprn. "Sender Partner Number
s_ctrl_rec-sTATUS = '03'. " STATUS " MOD1
********* Send IDoc ***********************
CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE'
EXPORTING
master_idoc_control = s_ctrl_rec
TABLES
communication_idoc_control = t_comm_idoc[]
master_idoc_data = t_edidd[]
EXCEPTIONS
error_in_idoc_control = 1
error_writing_idoc_status = 2
error_in_idoc_data = 3
sending_logical_system_unknown = 4
OTHERS = 5.
IF sy-subrc <> 0.
* Implement suitable error handling here
ELSE.
COMMIT WORK.
ENDIF.
Any help will be highly appreciable.
Thanks in advance for your help.
Regards
Bhargava krishna