BDC使用Batch Input Session來實(shí)現(xiàn)BDC

1、【BDC】使用Batch Input Session來實(shí)現(xiàn)BDC在ABAP中，我們有兩種方法來實(shí)現(xiàn)BDC：一種是Batch input session一種是call transaction。先來測試batch input session：它的理論是通過使用session（SM35）來達(dá)到bdc的效果，它是分兩步走的：第一步是完成BDC數(shù)據(jù)的組合以及創(chuàng)建session；第二步是Process的session。1.創(chuàng)建session測試程序&-*& Report ZTEST_BDC_1 *& *&-*& Fill BDC table *& *&

2、;-* REPORT ZTEST_BDC_1 . data: ls_bdc like bdcdata, lt_bdc like standard table of bdcdata. data: w_session LIKE APQI-GROUPID value 'SESSION1-54' . start-of-selection. *1. Open one Batch input session WRITE: / '1st step', 'Open Batch Input session'. CA

3、LL FUNCTION 'BDC_OPEN_GROUP' EXPORTING CLIENT = SY-MANDT* DEST = FILLER8 GROUP = w_session* HOLDDATE = FILLER8 KEEP = 'X' USER = SY-UNAME* RECORD = FILLER1* PROG = SY-CPROG* IMPORTING* QID = EXCEPTIONS CLIENT_INVALID = 1 DESTINATION_INVALID = 2 GROUP_INVALID = 3 GROUP_IS_LOCKED = 4 H

4、OLDDATE_INVALID = 5 INTERNAL_ERROR = 6 QUEUE_ERROR = 7 RUNNING = 8 SYSTEM_LOCK_ERROR = 9 USER_INVALID = 10 OTHERS = 11 . IF SY-SUBRC = 0. WRITE: / 'Batch input session -', w_session, '- opened'. ELSE. WRITE: / 'Error opening session - SY-SUBRC =', SY-SUBRC. ENDIF. *2. fi

5、lling BDC table perform. fill_bdc_tab. *3. output the data ULINE /5(65). WRITE:/5 'Program', 15 'Screen', 25 'New Screen', 40 'Field Name', 55 'Field Value'. LOOP AT lt_bdc into ls_bdc. WRITE: /5 ls_bdc-PROGRAM, 15 ls_bdc-DYNPRO, 30 ls_bdc-DYNBEGIN, 40 ls

6、_bdc-FNAM, 55 ls_bdc-FVAL. ENDLOOP. *4. insert BDC transaction ULINE /5(65). WRITE: / '2nd step', 'Insert BDC transaction'. CALL FUNCTION 'BDC_INSERT' EXPORTING TCODE = 'FK01'* POST_LOCAL = NOVBLOCAL* PRINTING = NOPRINT* SIMUBATCH = ' '* CTUPARAMS = '

7、 ' TABLES DYNPROTAB = lt_bdc EXCEPTIONS INTERNAL_ERROR = 1 NOT_OPEN = 2 QUEUE_ERROR = 3 TCODE_INVALID = 4 PRINTING_INVALID = 5 POSTING_INVALID = 6 OTHERS = 7 . IF SY-SUBRC = 0. WRITE: / 'Vendor: ''TEST1''', 'inserted into session'. ELSE. WRITE: / 'Error insert

8、ing', 'Vendor: ''TEST1''', 'SY-SUBRC =', SY-SUBRC. ENDIF. “如果有多個(gè)transaction需要執(zhí)行，那么需要就要重新的BDC table，再調(diào)用bdc_insert  *5. close BDC transaction ULINE /5(65). WRITE: / '3rd step', 'close BDC transaction'. CALL FUNCTION 'BDC_CLOSE_GROU

9、P' EXCEPTIONS NOT_OPEN = 1 QUEUE_ERROR = 2 OTHERS = 3 . IF SY-SUBRC = 0. WRITE: / 'Batch input session -', w_session, '- closed'. ELSE. WRITE: / 'Error closing session - SY-SUBRC =', SY-SUBRC. ENDIF. *&-*& Form fill_bdc_tab*&-* Fill BDC data*-*FORM. fill_

10、bdc_tab . * clear bdc refresh:lt_bdc. * fill BDC perform. populate_bdc_tab using: '1' 'SAPMF02K' '0105', " initial create vendor screen ' ' 'BDC_CURSOR' 'RF02K-KTOKK', ' ' 'RF02K-LIFNR' 'TEST1', ' ' 'R

11、F02K-BUKRS' '0001', "Company code ' ' 'RF02K-KTOKK' 'ZTMM', "Account group ' ' 'BDC_OKCODE' '/00',  '1' 'SAPMF02K' '0110', ' ' 'BDC_CURSOR' 'LFA1-LAND1', ' ' 'LFA1-N

12、AME1' 'tang', ' ' 'LFA1-SORTL' 'can', ' ' 'LFA1-LAND1' 'CN', ' ' 'LFA1-ANRED' 'Mr.Tang', ' ' 'LFA1-SPRAS' 'EN', ' ' 'BDC_OKCODE' '/00',  '1' 'SAPMF02K&

13、#39; '0120', ' ' 'BDC_OKCODE' '=UPDA', ' ' 'BDC_CURSOR' 'LFA1-KUNNR', ' ' 'BDC_SUBSCR''SAPMF02K 1099ARI-ST', ' ' 'BDC_SUBSCR''SAPMF02K 1099ARI-01', ' ' 'BDC_SUBSCR''SAPMF02K 10

14、99ARI-02', ' ' 'BDC_SUBSCR''SAPMF02K 1099ARI-03', ' ' 'BDC_SUBSCR''SAPMF02K 1099ARI-04', ' ' 'BDC_SUBSCR''SAPMF02K 1099ARI-05', ' ' 'BDC_SUBSCR''SAPMF02K 1099ARI-06',  '1' 'SAPMF02K&#

15、39; '0210', ' ' 'BDC_CURSOR' 'LFB1-AKONT', ' ' 'LFB1-AKONT' '197100', ' ' 'BDC_OKCODE' '=UPDA'. ENDFORM. " fill_bdc_tab*&-*& Form populate_bdc_tab*&-* fill data to bdc*-* ->P_0024 text* ->P_0025 text* ->P_0026 text*-*FORM. populate_bdc_tab USING FLAG type char1 VAR1 type any VAR2 type any.  CLEAR ls_bdc. if flag = '1'. ls_bdc-program = var1. ls_bdc-dynpro = var2. ls_bdc-dynbegin = 'X'. else. ls_bdc-fnam = var1. ls_bdc-fval