使用BDC的session编程方式导入数据

Call Transaction: 顾名思义，就是直接调用BDC进行数据批量导入。
优点：方便快捷，程序处理方便。缺点：日志管理能力差，需自己建透明表来维护数据。
BDC session：这是一种不直接运行，而是将BDC程序生成session，间接运行的一种方法。
优点：通过T-code SM35可以进行运行管理及日志管理，方便查错。缺点：相对方法1来说实现起来比较繁琐。

batch input session：它的理论是通过使用session（SM35）来达到bdc的效果，它是分三步走的：

• BDC作业的创建BDC_OPEN_GROUP
• BDC作业的执行BDC_INSERT
• BDC作业的关闭BDC_CLOSE_GROUP
  

扩展阅读：使用BDC的CALL TRANSACTION编程方式导入数据

1、程序代码：

1. *Structure for error message
   
2. TYPES : BEGIN OF ty_s_error,
   
3.            msg_err(60) TYPE c,
   
4.          END OF ty_s_error.
   
5. 
   
6. *Input Path
   
7. PARAMETERS:
   
8.    p_file   TYPE rlgrap-filename.                  " File Path
   
9. 
   
10. * Structure Decleration
    
11. DATA :
    
12.    BEGIN OF fs_field,
    
13.      bsart TYPE eban-bsart,             " Document Type.
    
14.      matnr TYPE eban-matnr,             " Material Number.
    
15.      menge TYPE eban-menge,             " Quantity Requested.
    
16.      werks TYPE eban-werks,             " Plant.
    
17.   END OF fs_field.
    
18. 
    
19. *Internal table decleration
    
20. DATA:
    
21.     t_field    LIKE TABLE OF fs_field,
    
22.     t_bdcdata  LIKE TABLE OF bdcdata.
    
23. 
    
24. DATA:
    
25.    fs_bdcdata LIKE LINE OF t_bdcdata,   "structure TYPE of bdcdata
    
26.     w_str  TYPE string.
    
27. 
    
28. * Data decleration
    
29. DATA:
    
30.    wa_path TYPE string ,
    
31.    wa_error TYPE string,
    
32.    wa_cnt   TYPE i,
    
33.    w_mode    TYPE c,
    
34.    wa_cnt1(2) TYPE n,
    
35.    it_output TYPE TABLE OF ty_s_error,
    
36.    wa_output LIKE LINE OF it_output.
    
37. 
    
38. * Opening window for path selection
    
39. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
    
40.   CALL FUNCTION 'F4_FILENAME'
    
41.     EXPORTING
    
42.       program_name  = syst-cprog
    
43.       dynpro_number = syst-dynnr
    
44.       field_name    = ' '
    
45.     IMPORTING
    
46.       file_name     = p_file.
    
47. 
    
48.   TYPES:
    
49.     fs_struct(4096) TYPE c OCCURS 0 .
    
50. 
    
51.   DATA:
    
52.     w_struct TYPE fs_struct.
    
53. 
    
54. * Uploading excel file.
    
55.   CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    
56.     EXPORTING
    
57.       i_field_seperator          = 'X'
    
58. *   I_LINE_HEADER              =
    
59.       i_tab_raw_data             = w_struct
    
60.       i_filename                 = p_file
    
61.     TABLES
    
62.       i_tab_converted_data       = t_field
    
63.     EXCEPTIONS
    
64.       conversion_failed          = 1
    
65.       OTHERS                     = 2
    
66.             .
    
67.   IF sy-subrc <> 0.
    
68.     MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
    
69.             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
70.   ENDIF.
    
71. 
    
72.   PERFORM open_group .
    
73.   LOOP AT t_field INTO fs_field.
    
74.     REFRESH: t_bdcdata.
    
75.     CLEAR  : fs_bdcdata.
    
76.     PERFORM populate_bdcdata.
    
77.     PERFORM insert_data.
    
78.   ENDLOOP.                               " LOOP AT t_f..
    
79. 
    
80. * Function to close BDC group.
    
81.   PERFORM close_group.
    
82. 
    
83. *&---------------------------------------------------------------------*
    
84. *&      Form  open_group
    
85. *&---------------------------------------------------------------------*
    
86. *    Function to open BDC
    
87. *----------------------------------------------------------------------*
    
88. FORM open_group.
    
89.   CALL FUNCTION 'BDC_OPEN_GROUP'
    
90. EXPORTING
    
91. *     CLIENT                    = SY-MANDT
    
92. *     DEST                      = FILLER8
    
93.     group                     = 'YH1610'    "定义产生的session名称
    
94. *     HOLDDATE                  = FILLER8
    
95.     keep                      = 'X'
    
96.     user                      = sy-uname
    
97. *     RECORD                    = FILLER1
    
98. *     PROG                      = SY-CPROG
    
99. *     DCPFM                     = '%'
    
100. *     DATFM                     = '%'
     
101. *   IMPORTING
     
102. *     QID                       =
     
103. EXCEPTIONS
     
104.    client_invalid            = 1
     
105.    destination_invalid       = 2
     
106.    group_invalid             = 3
     
107.    group_is_locked           = 4
     
108.    holddate_invalid          = 5
     
109.    internal_error            = 6
     
110.    queue_error               = 7
     
111.    running                   = 8
     
112.    system_lock_error         = 9
     
113.    user_invalid              = 10
     
114.    OTHERS                    = 11
     
115.           .
     
116.   IF sy-subrc <> 0.
     
117.     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
     
118.             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
     
119.   ELSE.
     
120.     WRITE :/ 'Group Open' .
     
121.   ENDIF.                               " IF sy-subrc <>
     
122. ENDFORM.                               " Open_group
     
123. *&---------------------------------------------------------------------*
     
124. *&      Form  POPULATE_BDCDATA
     
125. *&---------------------------------------------------------------------*
     
126. *       Function to populate data
     
127. *----------------------------------------------------------------------*
     
128. FORM populate_bdcdata .
     
129. 
     
130.   PERFORM :
     
131. 
     
132.    fill_bdc_data USING 'SAPMM06B' '0100' 'X'  ' '  ' ',
     
133.    fill_bdc_data USING  ''  ''  ''   'EBAN-BSART' fs_field-bsart,   " Document Type.
     
134.    fill_bdc_data USING  ''  ''  ''   'BDC_OKCODE' '/00',            " Enter.
     
135. 
     
136.    fill_bdc_data USING 'SAPMM06B'  '0106' 'X' ' ' ' ',
     
137.    fill_bdc_data USING  '' '' '' 'EBAN-MATNR(01)'  fs_field-matnr,   " Material Number.
     
138.    fill_bdc_data USING  '' '' ''  'EBAN-MENGE(01)' fs_field-menge,   " Quantity Requested.
     
139.    fill_bdc_data USING  '' '' ''  'EBAN-WERKS(01)' fs_field-werks,   " Plant.
     
140.    fill_bdc_data USING  '' '' ''  'BDC_OKCODE'   '/00',              " Enter.
     
141.    fill_bdc_data USING 'SAPMM06B' '0102' 'X' ''  '' ,
     
142.    fill_bdc_data USING  '' '' ''  'BDC_OKCODE' '=BU'.                 " Save.
     
143. 
     
144. ENDFORM.                               " POPULATE_BDCDATA
     
145. 
     
146. *&---------------------------------------------------------------------*
     
147. *&      Form  FILL_BDC_DATA
     
148. *&---------------------------------------------------------------------*
     
149. *       Function to populate data
     
150. *----------------------------------------------------------------------*
     
151. *      -->VALUE(P_PROGRAM)  Program name
     
152. *      -->VALUE(P_DYNPRO)   screen no
     
153. *      -->VALUE(P_BEGIN)    screen start
     
154. *      -->VALUE(P_FIELD)    field name
     
155. *      -->VALUE(P_VALUE)    field value
     
156. *----------------------------------------------------------------------*
     
157. FORM fill_bdc_data  USING    value(p_program)
     
158.                               value(p_dynpro)
     
159.                               value(p_begin)
     
160.                               value(p_field)
     
161.                               value(p_value).
     
162. 
     
163.   CLEAR fs_bdcdata.
     
164.   IF p_begin = 'X'.
     
165. *" Screen Values.
     
166.     fs_bdcdata-program = p_program.    " program name
     
167.     fs_bdcdata-dynpro  = p_dynpro.     " screen no
     
168.     fs_bdcdata-dynbegin   = p_begin.   " screen start
     
169.     APPEND fs_bdcdata TO t_bdcdata.
     
170.   ELSE.
     
171. *" Filed Values.
     
172.     CLEAR fs_bdcdata.
     
173.     fs_bdcdata-fnam = p_field.         " Field name
     
174.     fs_bdcdata-fval = p_value.         " Field value
     
175.     CONDENSE fs_bdcdata-fval.
     
176.     APPEND fs_bdcdata TO t_bdcdata.
     
177. 
     
178.   ENDIF.                               " IF P_BEGIN = 'X'
     
179. 
     
180. ENDFORM.                               " FILL_BDC_DATA
     
181. 
     
182. *&---------------------------------------------------------------------*
     
183. *&      Form  INSERT_DATA
     
184. *&---------------------------------------------------------------------*
     
185. *       text
     
186. *----------------------------------------------------------------------*
     
187. FORM insert_data .
     
188. *Data decleration
     
189.   DATA:
     
190.        t_msg TYPE TABLE OF bdcmsgcoll,   " Collecting messages
     
191.        w_msg TYPE bdcmsgcoll,
     
192.        w_msg1(51).
     
193. 
     
194.   CALL FUNCTION 'BDC_INSERT'
     
195.    EXPORTING
     
196.      tcode                  = 'ME51'
     
197. *   POST_LOCAL             = NOVBLOCAL
     
198. *   PRINTING               = NOPRINT
     
199. *   SIMUBATCH              = ' '
     
200. *   CTUPARAMS              = ' '
     
201.     TABLES
     
202.       dynprotab              = t_bdcdata
     
203.    EXCEPTIONS
     
204.      internal_error         = 1
     
205.      not_open               = 2
     
206.      queue_error            = 3
     
207.      tcode_invalid          = 4
     
208.      printing_invalid       = 5
     
209.      posting_invalid        = 6
     
210.      OTHERS                 = 7.
     
211.   IF sy-subrc <> 0.
     
212. *    Error Found
     
213.     WRITE : / 'DATA Not INSERTED'.
     
214.   ELSE.
     
215.     WRITE : / 'DATA INSERTED'.
     
216.   ENDIF .                              " IF sy-subr
     
217. ENDFORM.                               " INSERT_DATA
     
218. 
     
219. *&---------------------------------------------------------------------*
     
220. *&      Form  CLOSE_GROUP
     
221. *&---------------------------------------------------------------------*
     
222. *       Function to close BDC group
     
223. *----------------------------------------------------------------------*
     
224. FORM close_group .
     
225.   CALL FUNCTION 'BDC_CLOSE_GROUP'
     
226.     EXCEPTIONS
     
227.       not_open    = 1
     
228.       queue_error = 2
     
229.       OTHERS      = 3.
     
230.   IF sy-subrc <> 0.
     
231.     MESSAGE 'UNABLE TO CLOSE BDC SESSION !' TYPE 'S' DISPLAY LIKE 'E'.
     
232.   ENDIF.                               " IF sy-subrc ..
     
233.   WRITE : / 'CLOSED SESSION'.
     
234. ENDFORM.                               " CLOSE_GROUP

复制代码

2、执行程序

选择上传数据文件，然后SM35

查看session，选择刚刚用程序上传数据产生的session，点击‘Process’
处理模式：

• Foreground - Step by step processing will be done by you.
• Background – All the Processing will be done in Background.
• Display Error – If there is any error, it will be displayed in log otherwise it is similar to background mode.
  

选择一种处理模式，点击'process'

如果这个session的状态，是'√'状态表示处理成功，'钟表'状态正在处理
如果有错误，我们可以点击Log，查看处理日志