【BDC】使用Batch Input Session来实现BDC

BDC 使用使用 Batch Input Session 来实现来实现 BDC 在 ABAP 中 我们有两种方法来实现 BDC 一种是 Batch input session 一种是 call transaction 先来测试 batch input session 它的理论是通过使用 session SM35 来达到 bdc 的效果 它是分两步走的 第一步是完成 BDC 数据的组合以及创建 session 第二步是 Process 的 session 1 创建创建 session 测试程序 Report ZTEST BDC 1 Fill BDC table 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 CALL 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 HOLDDATE 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 filling 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 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 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 inserting Vendor TEST1 SY SUBRC SY SUBRC ENDIF 如果有多个 transaction 需要执行 那么需要就要重新的 BDC table 再调用 bdc insert 5 close BDC transaction ULINE 5 65 WRITE 3rd step close BDC transaction CALL FUNCTION BDC CLOSE GROUP 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 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 RF02K BUKRS 0001 Company code RF02K KTOKK ZTMM Account group BDC OKCODE 00 1 SAPMF02K 0110 BDC CURSOR LFA1 LAND1 LFA1 NAME1 tang LFA1 SORTL can LFA1 LAND1 CN LFA1 ANRED Mr Tang LFA1 SPRAS EN BDC OKCODE 00 1 SAPMF02K 0120 BDC OKCODE UPDA BDC CURSOR LFA1 KUNNR BDC SUBSCR SAPMF02K 1099ARI ST BDC SUBSCR SAPMF02K 1099ARI 01 BDC SUBSCR SAPMF02K 1099ARI 02 BDC SUBSCR SAPMF02K 1099ARI 03 BDC SUBSCR SAPMF02K 1099ARI 04 BDC SUBSCR SAPMF02K 1099ARI 05 BDC SUBSCR SAPMF02K 1099ARI 06 1 SAPMF02K 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 var2 endif APPEND ls bdc to lt bdc ENDFORM populate bdc tab 关于上面的 Hard coding 填加数据