ALE&IDoc& EDI(5)--Inbound Function {转载}

最新推荐文章于 2023-01-10 10:51:06 发布

cq3571885

最新推荐文章于 2023-01-10 10:51:06 发布

阅读量692

点赞数

分类专栏： 15 SAP ABAP 文章标签： function serialization workflow processing application input

15 SAP ABAP 专栏收录该内容

52 篇文章

订阅专栏

ALE/IDoc 在Outbound的时候，需要有程序来生成IDoc，在Inbound的时候需要有程序来解析IDoc，从而在R/3中生成主数据。

由于 Outbound有： Message Control, Change Point, Stand-Alone三种方式，所以就衍生出三种不同 Outbound程序。但是概念上，总体是一致的，只是实现是一些参数和功能不一样。相比而言， Inbound就比较单一，就只有一种方式，而且格式固定。

下面就放一个 Inbound Function的例子，参数的话和标准的都一样的。

FUNCTION Z_KEVIN_INBOUND .
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(INPUT_METHOD) LIKE  BDWFAP_PAR-INPUTMETHD
*"     VALUE(MASS_PROCESSING) LIKE  BDWFAP_PAR-MASS_PROC
*"  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
*"  EXCEPTIONS
*"      WRONG_FUNCTION_CALLED
*"----------------------------------------------------------------------
   INCLUDE MBDCONWF.

   DATA: BEGIN OF LS_TEST,
           ID( 4) TYPE C,
           TEXT( 32) TYPE C,
         END OF LS_TEST.

   DATA LT_TEST LIKE STANDARD TABLE OF LS_TEST.

*initialize workflow result
  WORKFLOW_RESULT = C_WF_RESULT_OK.

   LOOP AT IDOC_CONTRL.

*make sure we have the correct message passed to us
     IF IDOC_CONTRL-MESTYP NE 'ZKEVIN_INBOUND_M'.
       RAISE WRONG_FUNCTION_CALLED.
     ENDIF.

*clear application buffers
     CLEAR LS_TEST.
     REFRESH LT_TEST.

* process all data records in an IDoc and transfer them to
* application buffers

     LOOP AT IDOC_DATA WHERE DOCNUM EQ IDOC_CONTRL-DOCNUM.
       CASE IDOC_DATA-SEGNAM.
         WHEN 'ZKEVIN_TEST'.
          LS_TEST- ID = IDOC_DATA-SDATA+ 0( 4).
          LS_TEST- TEXT = IDOC_DATA-SDATA+ 4( 32).
           APPEND LS_TEST TO LT_TEST.
       ENDCASE.
     ENDLOOP.

     INSERT ZKEVIN_T FROM TABLE LT_TEST.
     IF SY-SUBRC EQ 0.
* populate return variables for success
      RETURN_VARIABLES-WF_PARAM = 'Processed_IDOCs'.
      RETURN_VARIABLES-DOC_NUMBER = IDOC_CONTRL-DOCNUM.
       APPEND RETURN_VARIABLES.

* add status record indicating success
      IDOC_STATUS-DOCNUM = IDOC_CONTRL-DOCNUM.
      IDOC_STATUS-STATUS = '53'.
      IDOC_STATUS-MSGTY = 'I'.
      IDOC_STATUS-MSGID = 'ZE'.
      IDOC_STATUS-MSGNO = '006'.
      IDOC_STATUS-MSGV1 = 'TEST ONE'.
       APPEND IDOC_STATUS.
     ENDIF.

   ENDLOOP.

ENDFUNCTION.

转自: http://blog.chinaunix.net/u1/59700/showart_1101985.html