第一步WE31创建段(SEGMENT):ZLM_SMT01
第二步WE30创建IDOC基本类型 :ZLM_IDOC_TYPE1
第三步WE81创建IDOC消息类型 :ZLM_IDOC_MSG1
第四步WE82关联基本类型和消息类型
第五步SM59创建远程连接 :19TO21
第六步WE21创建端口 :ZLM_PORT01(own port name) A000000059(generate port name)
第七步BD54创建逻辑系统 :ZLM_DEV19
第八步WE20配置接收方信息:
这一步才是关键:
发送端程序:
REPORT ZLM_IDOC_01 .
*&---------------------------------------------------------------------*
*&IDOC控制变量和数据变量定义
*&---------------------------------------------------------------------*
DATA : g_idoc_ctl LIKE edidc ,
gi_ret_ctl LIKE edidc OCCURS 0 WITH HEADER LINE ,
gi_idoc_data LIKE edidd OCCURS 0 WITH HEADER LINE ,
control_record_in TYPE edidc .
DATA :
idoc_status TYPE string .
DATA :
l_data TYPE ZLM_SMT01 .
*&---------------------------------------------------------------------*
*&控制数据
*&---------------------------------------------------------------------*
g_idoc_ctl -idoctp = 'ZLM_IDOC_TYPE1' . "IDOC TYPE
g_idoc_ctl -mestyp = 'ZLM_IDOC_MSG1' . "MESSAGE TYPE
g_idoc_ctl -outmod = '2' . "传输模式
"接收端配置
g_idoc_ctl -rcvprn = 'ZLM_DEV19' . "接收方的合作伙伴编号
g_idoc_ctl -rcvprt = 'LS' . "接收方伙伴类型
g_idoc_ctl -rcvpor = 'ZLM_PORT01' . "接收者端口(SAP 系统,EDI 子系统)
"发送端配置
g_idoc_ctl -sndprt = 'LS' . "发送方伙伴类型
g_idoc_ctl -sndprn = 'ZLM_DEV21' . "发送方合作伙伴
*维护数据
gi_idoc_data -segnam = 'ZLM_SMT01' .
gi_idoc_data -dtint2 = 0 .
l_data -CARRID = '11' .
l_data -CONNID = '12' .
l_data -COUNTRYFR = '13' .
MOVE l_data TO gi_idoc_data -sdata .
APPEND gi_idoc_data .
*&---------------------------------------------------------------------*
*&分发程序
*&---------------------------------------------------------------------*
CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE'
EXPORTING
master_idoc_control = g_idoc_ctl
TABLES
communication_idoc_control = gi_ret_ctl
master_idoc_data = gi_idoc_data
EXCEPTIONS
error_in_idoc_control = 1
error_writing_idoc_status = 2
error_in_idoc_data = 3
sending_logical_system_unknown = 4
OTHERS