本帖最后由 kanter 于 2015-5-21 15:53 编辑

IDOC 是用于在不同的 SAP 系统之间或 SAP 系统与外部系统之间传输信息的一种文档表示

形式。

本实例讲述从 SAP 客户端： SAPDEV 200 传送自定义表中的内容至 SAPPROD 700。

其中 SAPPROD 700 的在 200 中逻辑系统名称为： DEVCLNT700

SAPDEV 200 的在 200 中逻辑系统名称为： DEVCLNT200

传送的表结构如下：此表在 DEV200 和 PRD700 中均存在。

本实例中在讲述 DEV200 和 PRD700 之间的通讯设置中，如有不明白之处，还请参考本人的

另一个文档“ ALE 配置及操作详解(阵全)”。

本实例讲述的是不通过消息控制的，处于不同物理地址的 SAP 系统间的数据传输。

一、使用 TCODE： WE31 创建一个段，该段须在 DEV200 和 PRD700 同时存在。

该段中只包含一个字段。

二、使用 TCODE： WE30 创建一个 IDOC 基本类型，该类型须在 DEV200 和 PRD700 同时

存在。

该段中只包含一个字段。

三、使用 TCODE： WE81 创建一个逻辑消息类型。只需在 DEV200 中创建。

四、 TCODE： WE82 在 DEV200 中指定逻辑消息类型和 IDOC 基本类型的对应关系。

五、使用 TCODE： BD64 在 DEV200 中添加消息类型 ZMSGDEPARTMENT，并产生合作伙

伴文件及分配，详细操作请见“ ALE 配置及操作详解(阵全)”。如下图：

BD64 界面。

在 DEV200 中产生的对应于 PRD700 的 RFC 端口。通过 TCODE： WE21 查看。

在 DEV200 中产生的对应于 PRD700 的合作伙伴参数，消息类型为

ZMSGDEPARTMENT，可使用 TCODE： WE20 查看。

六、 TCODE： SE38 在 DEV200 中写该 IDOC 的出站处理程序。代码如下：

*&---------------------------------------------------------------------*

*& Report ZCREATEMATARIALIDOC

*&

*&---------------------------------------------------------------------*

REPORT ZCREATEDEPARTMENTIDOC.

DATA: G_IDOC_CTL LIKE EDIDC,

ZSEGDEPARTMENT LIKE ZSEGDEPARTMENT.

DATA: GI_RET_CTL LIKE EDIDC OCCURS 0,

GI_IDOC_DATA LIKE EDIDD OCCURS 0 WITH HEADERLINE.

PERFORM BUILD_IDOC_CTL.

PERFORM BUILD_IDOC_SEG.

PERFORM CREATE_IDOC.

*&---------------------------------------------------------------------*

*& Form CREATE_IDOC

*&---------------------------------------------------------------------*

* text

FORM CREATE_IDOC.

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 = 5 .

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ELSE.

COMMIT WORK.

ENDIF.

ENDFORM. " CREATE_IDOC

MSN： jsfeiyu@163.com 阵全

*&---------------------------------------------------------------------*

*& Form BUILD_IDOC_CTL

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

*

*----------------------------------------------------------------------*

FORM BUILD_IDOC_CTL.

* TYPE

G_IDOC_CTL-IDOCTP = 'ZTYPDEPARTMENT'. "IDOC TYPE

G_IDOC_CTL-MESTYP = 'ZMSGDEPARTMENT'. "MESSAGE TYPE

* RECEIVER

G_IDOC_CTL-RCVPRT = 'LS'. "PARTNER TYPE

G_IDOC_CTL-RCVPRN = 'DEVCLNT700'. "PARTNER NO

G_IDOC_CTL-RCVPOR = 'A000000017'. "PORT

* SENDER

G_IDOC_CTL-SNDPRT = 'LS'. "PARTNER TYPE

G_IDOC_CTL-SNDPRN = 'DEVCLNT200'. "PARTNER NO

* G_IDOC_CTL-SNDPOR = 'A000000017'. "PORT

ENDFORM. " BUILD_IDOC_CTL

*&---------------------------------------------------------------------*

*& Form BUILD_IDOC_SEG

*&---------------------------------------------------------------------*

FORM BUILD_IDOC_SEG.

* HEAD DATA

GI_IDOC_DATA-SEGNAM = 'ZSEGDEPARTMENT'. "SEGMENT NAME

GI_IDOC_DATA-SEGNUM = 1. "SEGMENT NO

ZSEGDEPARTMENT-DEPT_NAME = '资讯部'. "部门名称

MOVE ZSEGDEPARTMENT TO GI_IDOC_DATA-SDATA.

APPEND GI_IDOC_DATA.

ENDFORM. " BUILD_IDOC_SEG

七、PRD700 中，使用 BD64 查看在本文档中第五步产生的分配模型。

BD64 所见图

WE21 所见图

八、 PRD700 中使用 TCODE： SE37 创建一个函数，代码如下：可通过复制系统标准的

入站处理函数代码，再更改！

FUNCTION ZIDOC_INPUT_DEPARTMENT.

*"----------------------------------------------------------------------

*"*"Local interface:

*" IMPORTING

MSN： jsfeiyu@163.com 阵全

*" VALUE(INPUT_METHOD) LIKE BDWFAP_PAR-INPUTMETHD

*" VALUE(MASS_PROCESSING) LIKE BDWFAP_PAR-MASS_PROC

*" VALUE(NO_APPLICATION_LOG) LIKE SY-DATAR OPTIONAL

*" VALUE(MASSSAVEINFOS) LIKE MASSSAVINF STRUCTURE MASSSAVINF

*" OPTIONAL

*" EXPORTING

*" VALUE(WORKFLOW_RESULT) LIKE BDWF_PARAM-RESULT

*" VALUE(APPLICATION_VARIABLE) LIKE BDWF_PARAM-APPL_VAR

*" VALUE(IN_UPDATE_TASK) LIKE BDWFAP_PAR-UPDATETASK

*" VALUE(CALL_TRANSACTION_DONE) LIKE BDWFAP_PAR-CALLTRANS

*" TABLES

*" IDOC_CONTRL STRUCTURE EDIDC

*" IDOC_DATA STRUCTURE EDIDD

*" IDOC_STATUS STRUCTURE BDIDOCSTAT

*" RETURN_VARIABLES STRUCTURE BDWFRETVAR

*" SERIALIZATION_INFO STRUCTURE BDI_SER

*"----------------------------------------------------------------------

* SET RETURN_VARIABLES VALUE

READ TABLE IDOC_CONTRL INDEX 1.

RETURN_VARIABLES-DOC_NUMBER = IDOC_CONTRL-DOCNUM.

RETURN_VARIABLES-WF_PARAM = 'Processed_IDOCs'.

APPEND RETURN_VARIABLES.

* SET IDOC_STATUS VALUE.

CLEAR IDOC_STATUS.

IDOC_STATUS-STATUS = '53'.

IDOC_STATUS-DOCNUM = IDOC_CONTRL-DOCNUM.

IDOC_STATUS-REPID = SY-REPID.

APPEND IDOC_STATUS.

****以下代码为测试,可通过IDOC_DATA取得

DATA:ZD TYPE ZDEPARTMENT.

ZD-DEPT_NAME = 'ABC'.

INSERT INTO ZDEPARTMENT VALUES ZD.

ENDFUNCTION.

九、在 PRD700 中使用 TCODE：WE42 创建该 IDOC 的入站处理代码

可复制其它标准的。

十、在 PRD700 中，TCODE：WE20 创建 DEV200 的参数合作伙伴。

十一、在 DEV200 中执行相关出站处理程序，第六步所写的。并用 WE02 查看出站 IDOC

状态。

十二、在 PRD700 使用 WE02 查看进站 IDOC 状态。

十三、在 PRD700 是，查看表 ZDEPARTMENT，部门“ ABC”已加入。

[size=14.666666984558105px]