BDC 经典实例

桃扇骨 2022-09-30 06:17 197阅读 0赞

BDC（batch data communication）是SAP常用的一种数据传输方法。用于一些数据量大，但是对速度又要求不高的数据传输。

在实施中，很多开发顾问都忽略了BDC的日志和出错管理。这给用户在使用中带来了很大的不便。比如：哪些数据是成功生成的，哪些是失败的？那些失败的，原因的是什么？程序问题还是数据问题？

我觉得，既然是要做一套程序，那就应该尽可能地为客户考虑，减少日后的维护量。对于BDC程序来讲，日志和出错管理应该是必备的。

下面讲一下，BDC的两种通用写法。

1.    Call Transaction: 顾名思义，就是直接调用BDC进行数据批量导入。优点：方便快捷，程序处理方便。缺点：日志管理能力差，需自己建透明表来维护数据。我只是把它用作测试用途，不做正式使用。

2.    BDC Insert：这是一种不直接运行，而是将BDC程序生成session，间接运行的一种方法。优点：通过T-code SM35可以进行运行管理及日志管理，方便查错。缺点：相对方法1来说实现起来比较繁琐。我主要是用这种方法来实现BDC功能。

下面主要来谈一下BDC Insert这种方法。

1.   需要在程序中调用 function 'BDC\_INSERT'来把BDCDATA生成SESSION.

2.   程序RSBDCSUB是执行SESSION的专用程序，要建立相应的VARIANT，后续建立JOB中使用

3.   建立BATCH JOB来定期执行RSBDCSUB，从而实现，SESSION自动执行的目的

4.   当然，不使用程序RSBDCSUB和JOB，每次手工在SM35中执行SESSION也是可以的

下面是我写的一个实例：

*\* Program Name: Z\_KEVIN\_ADV\_BDC* 
*\* Author      : Kevin.Zhang* 
*\* Module      : N/A* 
*\** 
*\** 
*\** 
*\*----------------------------------------------------------------------\** 
*\* Author      Date     Commented as  Description* 
*\** 
*REPORT\*$\*$----------------------------------------------------------------$\*$\** 
*\*$\*$----------------------------------------------------------------$\*$\** 
 
*\*                   Tables* 
*TABLES\*-----------------------------------------------------------------------* 
*\*-----------------------------------------------------------------------* 
:   GT\_TABLE  ,    *"internal order table* 
LIKE"order type 
LIKE"order number 
LIKE"description 
LIKE"company code 
LIKE"business area 
LIKE"profit center 
LIKE"function area 
ENDOFDATABEGINOFOCCURS0"existed IO 
INCLUDESTRUCTUREDATAENDOFDATABEGINOFOCCURS0"the profit center not existing IO 
INCLUDESTRUCTUREDATAENDOFDATABEGINOFOCCURS0"the submitted IO 
INCLUDESTRUCTUREDATAENDOFDATABEGINOFOCCURS0"BDC DATA 
INCLUDESTRUCTUREDATAENDOFDATABEGINOFOCCURS10"message table 
INCLUDESTRUCTUREDATAENDOFDATALIKEOCCURS0WITHHEADERLINE\*----------------------------------------------------------------------- 
*\*-----------------------------------------------------------------------* 
: GV\_GROUP()    ,      *"BDC Name* 
12TYPEC"BDC User 
1TYPECVALUE'X'" ' '=Delete,'X'=keep after processing 
LIKE"Date 
 
:  GV\_FLAG()  , 
TYPEI"number of orders 
 
: GV\_C170(), 
50VALUE'\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_'\*$\*$----------------------------------------------------------------$\*$\* 
*\*$\*$----------------------------------------------------------------$\*$\** 
*\*                   Selection Screen* 
*PARAMETERS1TYPECDEFAULT'B'NO            BDCMODE     BDCRUN-BDC\_AMODUS   \-DISPLAY. 
 
SCREENCOMMENT1070TEXT001PARAMETERS128DEFAULT'C:/TEMP/\*.txt'SELECTION-  . 
\*                   At Selection Screen 
\*--------- AT SELECTION-SCREEN ON VALUE-REQUEST ---------- 
 SELECTION-  \-REQUEST  IN\_FILE. 
 
CALLFUNCTION'WS\_FILENAME\_GET' 
EXPORTING 
'\*.txt' 
'C:/DATA' 
MASK',All Files,\*.\*,Text Files,\*.txt;\*.doc.' 
MODE'O' 
TITLE'Please choose file to use ' 
IMPORTING 
          INV\_WINSYS       =       NO\_BATCH         =       SELECTION\_CANCEL =       SELECTION\_ERROR  =                  = . 
 
 
\*$\*$                          Main Program                          $\*$\* 
\*--------- START-OF-SELECTION ---------- 
OF   GT\_TABLE. 
 
              FILENAME            = IN\_FILE 
'DAT' 
TABLES 
          CONVERSION\_ERROR    =       FILE\_OPEN\_ERROR     =       FILE\_READ\_ERROR     =       INVALID\_TABLE\_WIDTH =       INVALID\_TYPE        =       NO\_BATCH            =       UNKNOWN\_ERROR       =                     = . 
 
IF0     COLLECT\_MESSAGES                                                                      IN\_FILE  . 
ENDIF   GT\_TABLE   AUFNR GSBER . 
DELETEADJACENTDUPLICATESFROMCOMPARING   OPEN\_GROUP. 
PERFORM   BDC\_CLOSE\_GROUP. 
PERFORM\*--------- END-OF-SELECTION ---------- 
 
\*$\*$                         Subroutines                            $\*$\* 
\*&---------------------------------------------------------------------\* 
\*&---------------------------------------------------------------------\* 
\*----------------------------------------------------------------------\* 
\*  <--  p2        text 
FORM  GV\_USER = SY-UNAME. 
 
CALLFUNCTION'BDC\_OPEN\_GROUP' 
EXPORTING 
CLIENT          = GV\_GROUP 
      KEEP     = GV\_KEEP 
   SY-SUBRC <> . 
\*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 
ENDIFENDFORM" OPEN\_GROUP 
 
\*&      Form  FILL\_BDC\_DATA 
\*       text 
\*  -->  p1        text 
\*----------------------------------------------------------------------\* 
 FILL\_BDC\_DATA. 
 
CLEAR    GT\_TABLE. 
CLEAR     GT\_BDCDATA. 
REFRESH     GT\_MESSTAB. 
CLEAR\*   Check if Profit Center exists.* 
SELECTSINGLEFROM            PRCTR = GT\_TABLE-PRCTR. 
 
IF0       GT\_PRFT\_CNTR. 
MOVETO       GT\_PRFT\_CNTR. 
'X'    . 
 
*      \*  COAS 
WHERE     SY-SUBRC = . 
CLEAR      \-CORRESPONDING GT\_TABLE  GT\_EXISTS. 
APPEND      GV\_FLAG = . 
ENDIF     GV\_FLAG <> . 
 
PERFORMUSING'X''SAPMKAUF''0100'"order type* 
' ''COAS-AUART'                                 . 
 
PERFORMUSING'X''SAPLSPO4''0300'"control area 
' ''SVALD-VALUE(01)''1000'                                 . 
 
PERFORMUSING'X''SAPMKAUF''0100'"ok code 
' ''BDC\_OKCODE''/00'       BDCDATA :     ,                 *"order master data* 
' ''COAS-AUFNR'                                 GT\_TABLE-KTEXT, 
' ''COAS-BUKRS'                                 GT\_TABLE-GSBER, 
' ''COAS-PRCTR'                                 GT\_TABLE-FUNCA, 
' ''BDC\_OKCODE''=SICH'\*     PERFORM CALL\_TRANSACTION. "for test purpose 
 
PERFORM      \-CORRESPONDING GT\_TABLE  GT\_SUBMIT. 
APPEND    . 
ENDLOOPENDFORM" FILL\_BDC\_DATA 
 
*\*&      Form  BDC\_INSERT* 
*\*       text* 
*\*  -->  p1        text* 
*\*----------------------------------------------------------------------\** 
 BDC\_INSERT. 
CALLFUNCTION'BDC\_INSERT' 
EXPORTING 
'KO01' 
TABLES 
   SY-SUBRC <> . 
*\*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.* 
ENDIFENDFORM" BDC\_INSERT 
 
*\*&      Form  BDC\_CLOSE\_GROUP* 
*\*       text* 
*\*  -->  p1        text* 
*\*----------------------------------------------------------------------\** 
 BDC\_CLOSE\_GROUP. 
CALLFUNCTION'BDC\_CLOSE\_GROUP'   SY-SUBRC <> . 
*\*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.* 
ENDIFENDFORM" BDC\_CLOSE\_GROUP 
 
*\*&      Form  CALL\_TRANSACTION* 
*\*       text* 
*\*  -->  p1        text* 
*\*----------------------------------------------------------------------\** 
 CALL\_TRANSACTION. 
CALLTRANSACTION'KO01'USING                            BDCMODE 
INTO\*  IF SYST-SUBRC <> 0. 
*\*         EXPORTING* 
*\*              MSGNO = SY-MSGNO* 
*\*              MSGV1 = SY-MSGV1* 
*\*              MSGV3 = SY-MSGV3* 
*\*              MSGV5 = ' '* 
*\*              ERROR = ERROR* 
*\*              MSGLN = MSGLN.* 
 
 
.                               *" CALL\_TRANSACTION* 
 
*\*&      Form  BDCDATA* 
*\*       text* 
*\*      -->P\_0310   text* 
*\*----------------------------------------------------------------------\** 
 BDCDATA  P\_BEGIN P\_FIELD1 P\_FIELD2. 
 
CLEAR   P\_BEGIN. 
WHEN'X'      GT\_BDCDATA-  = P\_FIELD1. 
DYNPRO      GT\_BDCDATA-DYNBEGIN = . 
WHEN      GT\_BDCDATA-FNAM  = P\_FIELD1. 
  . 
APPENDENDFORM" BDCDATA 
*\*&      Form  WRITE\_REPORT* 
*\*       text* 
*\*  -->  p1        text* 
*\*----------------------------------------------------------------------\** 
 WRITE\_REPORT. 
 
DESCRIBETABLELINES   GV\_LIN >= . 
PERFORMUSING'Z3''I''000' 
'The following Internal Orders already exist.'''''''     COLLECT\_MESSAGES                                       GV\_C\_ULINE   . 
LOOPAT       COLLECT\_MESSAGES                                    GT\_EXISTS-AUFNR   . 
ENDLOOP     COLLECT\_MESSAGES                                     GV\_C\_ULINE   . 
ENDIF    GT\_PRFT\_CNTR  GV\_LIN. 
 
 
IF1     COLLECT\_MESSAGES                         . 
PERFORMUSING'Z3''I''000' 
''''''     COLLECT\_MESSAGES                           . 
 
LOOPAT       COLLECT\_MESSAGES                                    GT\_PRFT\_CNTR-AUFNR 
''''    . 
 
PERFORMUSING'Z3''I''000' 
''''''  . 
 
 
DESCRIBETABLELINES   GV\_LIN >= . 
PERFORMUSING'Z3''I''000' 
'BDC was created for the following Internal Orders.' 
''''''     COLLECT\_MESSAGES                                       GV\_C\_ULINE   . 
 
LOOPAT       COLLECT\_MESSAGES                                    GT\_SUBMIT-AUFNR   . 
ENDLOOP     COLLECT\_MESSAGES                                       GV\_C\_ULINE   . 
ENDIF   COLLECT\_MESSAGES                                          . 
PERFORMUSING'Z3''I''000' 
''''''   GT\_TABLE   GSBER = . 
 
LOOPAT     COLLECT\_MESSAGES                                  GT\_TABLE-AUFNR   . 
ENDLOOP   COLLECT\_MESSAGES                                     GV\_C\_ULINE   . 
.                               *" WRITE\_REPORT* 
 
 
*\*&      Form  COLLECT\_MESSAGES* 
*\*       Collects messgaes into rep tree table and writes them to* 
*\*----------------------------------------------------------------------\** 
*\*      -->P\_MSGTY  messgae type* 
*\*      -->P\_MSG1  text 1* 
*\*      -->P\_MSG3  text 3* 
*\*----------------------------------------------------------------------\** 
 COLLECT\_MESSAGES     P\_MSGID 
                               P\_MSGNR 
                               P\_MSGV2 
                               P\_MSGV4. 
 
CLEAR  GT\_IMESG-ARBGB = P\_MSGID. 
  GT\_IMESG-TXTNR = P\_MSGNR. 
02'@ '  GT\_IMESG-MSGV1+() = P\_MSGV1. 
  GT\_IMESG-MSGV3 = P\_MSGV3. 
   GT\_IMESG. 
 
CONCATENATE               GV\_C170   SPACE. 
WRITEENDFORM" collect\_messages

*[http://blog.csdn.net/zcywset15/archive/2008/07/29/2728001.aspx][http_blog.csdn.net_zcywset15_archive_2008_07_29_2728001.aspx]*

[http_blog.csdn.net_zcywset15_archive_2008_07_29_2728001.aspx]: http://blog.csdn.net/zcywset15/archive/2008/07/29/2728001.aspx