[SAP ABAP开发技术总结]IDoc

数据段是IDoc结构组件，是IDoc的构成的单元。它由Segment type（数据段类型）与Segm. definition（数据段定义）两部分组成，其中Segment type的名称与SAP版本无关，但Segm. definition名称是与SAP版本有关的，外部系统就是根据Segm. definition名称来确定当前数据段的版本的：

SAP提供的标准数据段类型定义中，Segment type名称以“E1”开头，而Segm. definition名称则以“E2”开头（如果为用户自定的数据段，则数据段类型名应以“Z1”开头，数据段定义名称应以“Z2”开头），且后面跟上版本号（如上面的006），如数据段类型E1FIKPF对应多个版本的数据段定义（包括最初版本在内共7个版本）：

双击006版本，即可查看数据段类型F1FIKPF的最新具体定义，如上上图所示

IDoc数据段中各个字段的数据类型均为字符类型（如上上图中的Export leng），在出站时已将原数据类型都转换为字符型了。另外，在ABAP程序中，访问IDoc中的具体某个字段时，需要通过Segment type（数据段类型）名而不是Segm. definition（数据段定义）名，如：E1FIKPF-BUKRS，而不是E2FIKPF006-BUKRS之类的。

IDoc Type中的数据段类型实质会在数据字典中的创建相应的结构，如上图数据段类型E1FIKPF：

18.4.2. IDoc定义（WE30）

IDoc类型中定义了数据段以及数据段的层级和次序

标准SAP系统提供的IDoc类型称为基本类型（Basic type），该类型可以通过IDoc扩展（Extention）进行调整，即在SAP IDoc类型结构的基础上增加新的数据段或者在数据段中增加新字段

如果是自己完全创建一个新的类型，不扩展任何类型，则选择“Basic Type”，否则如果是要从已存在类型来扩展出新的类型时，需要选择“Extension”，并且需要指定basic type

18.4.3. 自定义IDoc发送与接收实例

该实例使用800发送端向810接收端发送Idoc进行实验

18.4.3.1. 发送端800（outbound）配置

1、创建segment（WE31）

segment，类似于创建XML的节点及节点属性，即定义XML文档中的节点及节点属性。

2、创建IDOC Type（WE30）

创建IDOC Type，定义结点间的相互逻辑关系

先输入YPOIDOC，然后点击创建，紧跟着选择create new：

在主界面中，先点击创建按钮，将YPOHEAD添加，设置Mandatory seg打勾，min ＝ 1， max ＝ 1，代表我们每个IDOC仅包含一张采购订单：

然后在YPOHEAD下添加YPOITEM，同样的Mandatory seg打勾，min ＝ 1， max ＝99999：

3、创建Message Type（WE81）

先切换到编辑状态，然后点击New Entries，输入YPO_MESS_TYPE即可。

4、关联Message Type和IDOC Type（WE82）

5、创建接收端RFC Destination（SM59）

创建一个到接收端810的物理连接，由于是该实例是在同一个SAP系统内部进行实验，所以“连接类型”选择的是ABAP Connection连接，名为ZTO810：

6、创建到收端的端口（WE21）

注：这里讲的端口不是单纯的指定Socket端口号，而是指连接到RFC目标系统的统称，包括IP、端口等信息，实质上是在SM59创建的物理连接基础之上创建的另一种逻辑名而已

基于上面第5步创建的RFC Destionation，创建端口Port，类型选TRANSACTIONAL RFC，名为TO810PORT，RFC destination则填写ZTO810：

7、创建发送端Logical System并分配（SALE）

为发送端800创建逻辑系统 Z800LS：

并将逻辑系统分配到发送端800：

注：这里不需要为本端（Client 800）在本端创建发送端逻辑系统的合作和伴配置文件，但需要在接收端810中配置

8、创建接收端Logical System（SALE）

为接收端810创建逻辑系统 Z810LS，这将在下一步创建到接收端的合作伙伴配置文件Partner profile（WE20）时用到：

但与上面创建发送端逻辑系统不一样的是，在发送端系统800中是不需要将它分配给Client 810，而分配操作是在接收端810中进行的，这一分配操作请参考后面接收端（Inbound）配置章节

9、创建接收端合作和伴配置文件Partner profile（WE20）

合作和伴配置文件将Message Type消息类型、receiver port RFC目标端口、IDoc类型关联起来

创建一个patner no为Z810LS的合作和伴配置文件，该配置文件描述了将IDoc发往何处：

上图中合作伙伴编号填上一步创建的接收端逻辑系统，类型选择LS。Ty.选择是“用户”类型，代理人为本系统（发送端800）中的用户，如果在Idoc发送过程中出现什么问题，会向此用户发送邮件。当上面信息填好后，点击保存（保存之后才可以对Outbound parmtrs进行设置）。

然后，点击outbound下方的加号，创建一个outbound parameter。Message Type为YPO_MESS_TYPE，receiver port为TO810PORT，output mode选择Transfer idoc immed.，Basic Type填写YPOIDOC，保存即可：

10、通过ABAP程序发送IDOC

程序的思路就是，把每个IDOC节点按字符串形式逐个添加，而字符串的添加次序自然也体现了IDOC节点间的逻辑关系。代码如下：

DATA: ls_pohead TYPE ypohead,"IDoc数据段：头
      ls_poitem TYPE ypoitem,"IDoc数据段：Item
      ls_edidc TYPE edidc,"IDoc的控制记录
      lt_edidc TYPE TABLE OF edidc,
      lt_edidd TYPE TABLE OF edidd WITH HEADER LINE."IDoc的数据记录
CLEAR ls_edidc.
*系统根据下面4行即可与WE20(合作和伴配置文件)设置关联起来
ls_edidc-mestyp = 'YPO_MESS_TYPE'. "Message Type
ls_edidc-idoctp = 'YPOIDOC'. "IDOC Type
ls_edidc-rcvprn = 'Z810LS'. "partner Number of Recipient接收方合作伙伴
ls_edidc-rcvprt = 'LS'.     "partner Type of Receiver接收方类型为逻辑系统

*添加IDOC节点
CLEAR lt_edidd.
lt_edidd-segnam = 'YPOHEAD'."头节点
lt_edidd-dtint2 = 0.
CLEAR ls_pohead.
ls_pohead-ebeln = '4001122334'."采购单号
ls_pohead-bukrs = '1000'."公司代码
ls_pohead-bedat = '20090630'."日期
lt_edidd-sdata = ls_pohead. "节点内容：ls_pohead结构中的数据最后被拼接成字符串再赋值给lt_edidd-sdata，最大长度不能超过1000
APPEND lt_edidd.

CLEAR lt_edidd.
lt_edidd-segnam = 'YPOITEM'."Item节点
lt_edidd-dtint2 = 0.
CLEAR ls_poitem.
ls_poitem-ebeln = '4001122334'."采购单号
ls_poitem-ebelp = '0001'."Item行号
ls_poitem-matnr = '000000000000004527'."物料号
ls_poitem-menge = '3'."数量
ls_poitem-meins = 'ST'."单位
lt_edidd-sdata = ls_poitem.
APPEND lt_edidd.

CLEAR lt_edidd.
lt_edidd-segnam = 'YPOITEM'."Item节点
lt_edidd-dtint2 = 0.
CLEAR ls_poitem.
ls_poitem-ebeln = '4001122334'."采购单号
ls_poitem-ebelp = '0002'."Item行号
ls_poitem-matnr = '000000000000009289'."物料号
ls_poitem-menge = '5'."数量
ls_poitem-meins = 'M'."单位
lt_edidd-sdata = ls_poitem.
APPEND lt_edidd.
CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE'"发送IDoc
EXPORTING
    master_idoc_control            = ls_edidc "IDoc控制记录
TABLES
    communication_idoc_control     = lt_edidc "接收：用来接收IDoc发送情况
    master_idoc_data               = lt_edidd "IDoc数据记录
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.
WRITE: 'Idoc sent:'.
LOOP AT lt_edidc INTO ls_edidc.
    NEW-LINE.
    WRITE: 'Idoc number is', ls_edidc-docnum,
           '; receiver partner is', ls_edidc-rcvprn,
           '; sender partner',ls_edidc-sndprn.
ENDLOOP.
ENDIF.

选中消息，并点击“处理”按钮后，该消息就会发往目的客户端810，状态从准备发送到成功发送：

发送的数据可以选择数据记录节点来查看：

以上都是在发送端800进行的，下面登录到接收端810去看看IDoc接收情况：

由于在接收端810未配置到发送端800的合作伙伴配置文件，所以出错。下面章节在接收端810中进行发送端800的相关配置

18.4.3.2. 接收端810（Inbound）配置

由于该实例是在同一服务器的同一实例中进行的，又由于Segment、IDoc Type、Message Type这些都是跨Client的，所以上面1、2、3、4步就不需要在810端再次配置了，这些是共享的（但如果不是在同一服务器上，则需要像上面那样进行配置）

1、创建发送端RFC Destination（SM59）

创建到发送端810的物理连接

2、创建发送端的端口（WE21）

基于上面创建的RFC Destionation，创建端口Port，类型选TRANSACTIONAL RFC，名为FRM800PORT，RFC destination则填写上面创建的RFC远程目标ZFROM800：

3、将接收端Logical System分配到Client 810（SALE）

如果是在不同的服务器中，则接收端需要像在发送端那样：发送端逻辑系统Z800LS与接收端逻辑系统Z810LS都需要被创建，并且还需要将接收端逻辑系统Z810LS分配到Client 810，并且还需要以发送端逻辑系统Z800LS为基础创建发送端合作伙伴配置文件

由于是在同一服务器的同一实例中，所以在发送端中创建的发送端逻辑系统Z800LS与接收端逻辑系统Z810LS在此端是通用共享，这里不需要再次创建（outbound中已经创建了这两个逻辑系统了），但（outbound章节中并未分配到具体的Client）Z810LS逻辑系统没有分配到相应的Client，这一步操作需要在接收端完成，所以需要在此进行分配：

4、创建入站处理函数

创建一个function：Y_IDOC_PO_PROCESS.

当IDOC设置完毕之后，SAP可以自动调用该Funtion Module处理IDOC，所以这个函数的参数接口是有规范的，可以从IDOC_INPUT_BBP_IV这些标准函数拷贝参数接口部分：

"ypohead\ypoitem实为上面定义的IDoc类型
DATA: ls_chead TYPE ypohead,
      ls_citem TYPE ypoitem.
CLEAR idoc_contrl.
READ TABLE idoc_contrl INDEX 1.
IF idoc_contrl-mestyp <> 'YPO_MESS_TYPE'.
    RAISE wrong_function_called.
ENDIF.
LOOP AT idoc_contrl.
    LOOP AT idoc_data WHERE docnum = idoc_contrl-docnum.
      CASE idoc_data-segnam.
        WHEN 'YPOHEAD'.
          "直接将字符赋值给结构，赋值过程中会按照结构中的字段长度来划分各字段
          ls_chead = idoc_data-sdata.
          WRITE: / 'Head',ls_chead.
        WHEN 'YPOITEM'.
          ls_citem = idoc_data-sdata.
          WRITE: / 'Item',ls_citem.
        WHEN OTHERS.
      ENDCASE.
    ENDLOOP.
    "根据数据处理情况设置当前IDoc处理的状态
    IF 1 = 0.
      CLEAR idoc_status.
      idoc_status-docnum = idoc_contrl-docnum."当前正处理的IDoc
      idoc_status-status = '53'. "IDOC处理成功
      APPEND idoc_status.
    ELSE.
      CLEAR idoc_status.
      idoc_status-docnum = idoc_contrl-docnum.
      idoc_status-status = '51'. "IDOC不成功
      idoc_status-msgty = 'E'. "错误信息
      idoc_status-msgid = 'YMSG'.
      idoc_status-msgno = '001'.
      APPEND idoc_status.
    ENDIF.
ENDLOOP.
ENDFUNCTION.