使用Batch Input Session来实现BDC（转）

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
" 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.                    "fill_bdc_tab
"populate_bdc_tab

原文地址：http://scnblogs.techweb.com.cn/tcsapbw/archives/379.html

使用Batch Input Session来实现BDC（转）

猜你喜欢