Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

bdc session sample program

Former Member
0 Kudos

Hi,

Please any body send a sample program for bdc session method.

Thanks,

sreedhar.

2 REPLIES 2

Former Member
0 Kudos

See the BDC Session method program :

report zmppc011 no standard page heading line-size 120 line-count 55

message-id zz.

  • pool of form routines

include zmppn001.

  • Define BDC Table Structure

data: begin of itab_bdc_tab occurs 0.

include structure bdcdata.

data: end of itab_bdc_tab.

  • Input record layout of Leagcy File

data: begin of itab_xcel occurs 0,

matnr(18) type c,

werks(4) type c,

alnag(2) type c,

verid(4) type c,

text1(40) type c,

bstmi like mkal-bstmi,

bstma like mkal-bstma,

adatu(10) type c,

bdatu(10) type c,

stlal(2) type c,

stlan(1) type c,

serkz(1) type c,

mdv01(8) type c,

elpro(4) type c,

alort(4) type c,

end of itab_xcel.

data: begin of lt_pp04_cache occurs 0,

matnr like itab_xcel-matnr,

werks like itab_xcel-werks,

alnag like itab_xcel-alnag,

plnnr like mapl-plnnr,

arbpl like crhd-arbpl,

ktext like crtx-ktext,

end of lt_pp04_cache.

data: v_ssnnr(4) type n,

v_lines_in_xcel like sy-tabix,

v_ssnname like apqi-groupid,

v_trans_in_ssn type i,

  • wa_xcel LIKE itab_xcel,

l_tabix like sy-tabix,

v_matnr like rc27m-matnr,

v_plnnr like mapl-plnnr,

v_plnal like mapl-plnal,

v_tcode like sy-tcode value 'C223',

v_plnty like plas-plnty value 'R',

v_objty like crhd-objty value 'A',

v_plpo_steus like plpo-steus value 'PP04',

v_verwe like crhd-verwe value '0007'.

  • Parameters

selection-screen: skip 3.

selection-screen: begin of block 1 with frame.

*

parameters: p_name like rlgrap-filename

default 'C:\My Documents\InputFile.txt'

obligatory,

  • bdc session name prefix

p_bdcpfx(6) default 'ZPVCRT'

obligatory,

  • number for transction per BDC session

p_trnssn type i

default 2000 obligatory,

  • retain the BDC session after successfull execution

p_keep like apqi-qerase

default 'X',

  • user who will be executing BDC session

p_uname like apqi-userid

default sy-uname

obligatory.

*

selection-screen: end of block 1.

*

********************************************************

********************************************************

*

  • possible entry list (F4 dropdown) for input file name

at selection-screen on value-request for p_name.

*-SELECT FILE FROM USERS LOCAL PC

call function 'WS_FILENAME_GET'

exporting

  • DEF_FILENAME = ' '

def_path = 'C:\Temp\'

mask = ',.,..'

mode = 'O'

title = 'Select File '(007)

importing

filename = p_name

  • RC =

exceptions

inv_winsys = 1

no_batch = 2

selection_cancel = 3

selection_error = 4

others = 5.

if sy-subrc <> 0.

  • MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

  • WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

endif.

*

********************************************************

********************************************************

*

  • begin the show

*

start-of-selection.

  • read data from input file

perform transfer_xcel_to_itab.

*

*

loop at itab_xcel.

  • hang on to xcel line num

l_tabix = sy-tabix.

  • each line in the xcel file marks begining of new prod.version defn

  • if num-of-trnas-in-session = 0, create new BDC session

if v_trans_in_ssn is initial.

perform bdc_session_open.

endif.

  • begin new bdc script for rtg create trans

  • fill in bdc-data for prod.version maintenance screens

perform bdc_build_script.

  • insert the bdc script as a BDC transaction

perform bdc_submit_transaction.

  • keep track of how many BDC transactions were inserted in the BDC

  • session

add 1 to v_trans_in_ssn.

  • if the user-specified num of trans in BDC session is reached OR

  • if end of input file is reached, close the BDC session

if v_trans_in_ssn = p_trnssn or

l_tabix = v_lines_in_xcel.

perform bdc_session_close.

clear v_trans_in_ssn.

endif.

endloop.

top-of-page.

call function 'Z_HEADER'

  • EXPORTING

  • FLEX_TEXT1 =

  • FLEX_TEXT2 =

  • FLEX_TEXT3 =

.

----


  • FORM TRANSFER_XCEL_TO_ITAB *

----


  • Transfer Xcel Spreadsheet to SAP Internal Table *

----


form transfer_xcel_to_itab.

*

  • Read the tab-delimited file into itab

call function 'WS_UPLOAD'

exporting

filename = p_name

filetype = 'DAT'

  • IMPORTING

  • filelength = flength

tables

data_tab = itab_xcel

exceptions

conversion_error = 1

file_open_error = 2

file_read_error = 3

invalid_table_width = 4

invalid_type = 5

no_batch = 6

unknown_error = 7

others = 8.

*

if sy-subrc = 0.

  • sort the data

sort itab_xcel by matnr werks.

clear v_lines_in_xcel.

  • if no data in the file - error out

describe table itab_xcel lines v_lines_in_xcel.

if v_lines_in_xcel is initial.

write: / 'No data in input file'.

stop.

endif.

else.

  • if file upload failed - error out

write: / 'Error reading input file'.

stop.

endif.

endform.

----


  • FORM BDC_SESSION_OPEN *

----


  • Open BDC Session *

----


form bdc_session_open.

  • create bdc session name = prefix-from-selectn-screen + nnnn

add 1 to v_ssnnr.

concatenate p_bdcpfx v_ssnnr into v_ssnname.

  • open new bdc session

call function 'BDC_OPEN_GROUP'

exporting

client = sy-mandt

group = v_ssnname

keep = p_keep

user = p_uname

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.

endform.

----


  • FORM BDC_BUILD_SCRIPT *

----


  • Build BDC *

----


form bdc_build_script.

data: l_arbpl like crhd-arbpl,

l_text1 like mkal-text1,

l_mdv01 like mkal-mdv01,

l_mapl like mapl.

  • clear bdc-data itab - begin of new bdc transaction

clear itab_bdc_tab.

refresh itab_bdc_tab.

*

  • read material cross reference tables to determine sap part#

clear : v_matnr, v_plnnr, v_plnal.

perform read_matnr_cross_ref using itab_xcel-matnr

itab_xcel-werks

changing v_matnr.

*

  • determine the version description to use

if itab_xcel-text1 is initial.

l_text1 = itab_xcel-verid.

else.

l_text1 = itab_xcel-text1.

endif.

  • determine the routing group# and group ctr# to use

perform read_routing .

*

  • determine the production line to use

if itab_xcel-mdv01 is initial.

  • if not provided in the file then:

  • prod line = work ctr on the last PP04 op of the rtg determined above

perform read_wc_on_last_pp04 using v_plnnr v_plnal

changing l_mdv01.

  • NOTE: when executing the above form\routine, if v_plnnr is initial

  • or v_plnal is initial, THEN l_mdv01 will automatically be

  • returned blank (ie initial)

else.

l_mdv01 = itab_xcel-mdv01.

endif.

*

  • build bdc script

perform bdc_build_script_record

*

  • fill in initial screen

using: 'X' 'SAPLCMFV' '1000',

' ' 'BDC_OKCODE' '=ENTE',

' ' 'MKAL-WERKS' itab_xcel-werks,

' ' 'MKAL-MATNR' v_matnr,

' ' 'MKAL_ADMIN-DISPO' space,

' ' 'MKAL-PLNNR' space,

' ' 'MKAL_ADMIN-STTAG' space,

' ' 'MKAL-PLNNG' space,

' ' 'MKAL-MDV01' space,

' ' 'MKAL-PLNNM' space,

  • click create button on initial screen and go to detail screen

'X' 'SAPLCMFV' '1000',

' ' 'BDC_OKCODE' '=CREA',

  • fill in the detail screen and go back to initial screen

'X' 'SAPLCMFV' '2000',

' ' 'BDC_OKCODE' '=CLOS',

' ' 'MKAL_EXPAND-MATNR' v_matnr,

' ' 'MKAL_EXPAND-VERID' itab_xcel-verid,

' ' 'MKAL_EXPAND-TEXT1' l_text1,

' ' 'MKAL_EXPAND-BSTMI' itab_xcel-bstmi,

' ' 'MKAL_EXPAND-BSTMA' itab_xcel-bstma,

' ' 'MKAL_EXPAND-ADATU' itab_xcel-adatu,

' ' 'MKAL_EXPAND-BDATU' itab_xcel-bdatu,

' ' 'MKAL_EXPAND-PLTYG' v_plnty,

' ' 'MKAL_EXPAND-PLNNG' v_plnnr,

' ' 'MKAL_EXPAND-ALNAG' v_plnal,

' ' 'MKAL_EXPAND-STLAL' itab_xcel-stlal,

' ' 'MKAL_EXPAND-STLAN' itab_xcel-stlan,

' ' 'MKAL_EXPAND-SERKZ' itab_xcel-serkz,

' ' 'MKAL_EXPAND-MDV01' l_mdv01,

' ' 'MKAL_EXPAND-ELPRO' itab_xcel-elpro,

' ' 'MKAL_EXPAND-ALORT' itab_xcel-alort,

  • save the production version from initial screen

'X' 'SAPLCMFV' '1000',

' ' 'BDC_OKCODE' '=SAVE'.

endform.

----


  • FORM BDC_SUBMIT_TRANSACTION *

----


  • Submit BDC Session *

----


form bdc_submit_transaction.

    • Load BDC script as a trqansction in BDC session

call function 'BDC_INSERT'

exporting

tcode = v_tcode

tables

dynprotab = itab_bdc_tab

exceptions

internal_error = 01

not_open = 02

queue_error = 03

tcode_invalid = 04.

endform.

----


  • FORM BDC_BUILD_SCRIPT_RECORD *

----


form bdc_build_script_record using dynbegin name value.

clear itab_bdc_tab.

if dynbegin = 'X'.

move: name to itab_bdc_tab-program,

value to itab_bdc_tab-dynpro,

'X' to itab_bdc_tab-dynbegin.

else.

move: name to itab_bdc_tab-fnam,

value to itab_bdc_tab-fval.

shift itab_bdc_tab-fval left deleting leading space.

endif.

append itab_bdc_tab.

endform.

----


  • FORM BDC_SESSION_CLOSE *

----


  • Close BDC Session *

----


form bdc_session_close.

  • close the session

call function 'BDC_CLOSE_GROUP'

exceptions

not_open = 1

queue_error = 2

others = 3.

skip 2.

if sy-subrc ne 0.

write: / 'Error Closing BDC Session ' , 'RETURN CODE: ', sy-subrc.

else.

write : / 'Session created:', v_ssnname,

50 '# of transactions:', v_trans_in_ssn.

endif.

endform.

&----


*& Form read_routing_cache

&----


*FORM read_routing_cache USING pi_matnr

  • pi_werks

  • pi_alnag

  • pi_verid

  • pi_mdv01.

*

  • DATA: BEGIN OF lt_plpo OCCURS 0,

  • vornr LIKE plpo-vornr,

  • objty LIKE crhd-objty,

  • objid LIKE crhd-objid,

  • arbpl LIKE crhd-arbpl,

  • END OF lt_plpo,

  • l_mapl_plnnr LIKE mapl-plnnr.

*

    • determine the routing group#

  • CLEAR lt_pp04_cache.

    • chk if its in the cache first, if not then get it from MAPL table

    • and put it in the cache

  • READ TABLE lt_pp04_cache WITH KEY matnr = pi_matnr

  • werks = pi_werks

  • alnag = pi_alnag.

  • IF sy-subrc = 0.

    • do nothing - lt_pp04_cache header line has rtg#

  • ELSE.

    • get the routing group # from MAPL

  • SELECT plnnr INTO l_mapl_plnnr

  • FROM mapl UP TO 1 ROWS

  • WHERE matnr = pi_matnr AND

  • werks = pi_werks AND

  • plnty = 'R' AND

  • plnal = pi_alnag AND

  • loekz = space.

  • ENDSELECT.

    • put it in the cache internal table

  • IF NOT l_mapl_plnnr IS INITIAL.

  • lt_pp04_cache-matnr = pi_matnr.

  • lt_pp04_cache-werks = pi_werks.

  • lt_pp04_cache-alnag = pi_alnag.

  • lt_pp04_cache-plnnr = l_mapl_plnnr.

  • APPEND lt_pp04_cache.

  • ENDIF.

  • ENDIF.

*

    • if the rtg# was determined AND

    • -- the work center was not determined yet AND

    • -- work center was really needed for this line in the input file

    • then

    • -- read the work center from last PP04 operation on the routing

    • -- update the cache accordingly

*

*

  • IF NOT lt_pp04_cache-plnnr IS INITIAL AND

  • lt_pp04_cache-arbpl IS INITIAL AND

  • ( pi_verid IS INITIAL OR

  • pi_mdv01 IS INITIAL ).

*

    • read the last PP04 operation

  • CLEAR lt_plpo.

  • REFRESH lt_plpo.

  • SELECT vornr eobjty eobjid e~arbpl

  • INTO CORRESPONDING FIELDS OF TABLE lt_plpo

  • FROM plas AS b

  • INNER JOIN plpo AS c

  • ON bplnty = cplnty AND

  • bplnnr = cplnnr AND

  • bzaehl = czaehl

  • INNER JOIN crhd AS e

  • ON carbid = eobjid

  • WHERE b~plnty = v_plnty AND

  • b~plnnr = lt_pp04_cache-plnnr AND

  • b~plnal = lt_pp04_cache-alnag AND

  • c~loekz = space AND

  • c~steus = v_plpo_steus AND

  • e~objty = v_objty AND

  • e~werks = lt_pp04_cache-werks AND

  • e~verwe = v_verwe.

  • SORT lt_plpo BY vornr DESCENDING.

  • READ TABLE lt_plpo INDEX 1.

**

  • IF NOT lt_plpo-arbpl IS INITIAL.

  • lt_pp04_cache-arbpl = lt_plpo-arbpl.

    • read work center description

  • SELECT SINGLE ktext INTO lt_pp04_cache-ktext

  • FROM crtx WHERE objty = lt_plpo-objty AND

  • objid = lt_plpo-objid AND

  • spras = sy-langu.

    • the following read will get the index of the correct record to be

    • updated in the cache

  • READ TABLE lt_pp04_cache

  • WITH KEY matnr = pi_matnr

  • werks = pi_werks

  • alnag = pi_alnag.

  • MODIFY lt_pp04_cache

  • INDEX sy-tabix

  • TRANSPORTING arbpl ktext.

  • ENDIF.

  • ENDIF.

*

*ENDFORM. " read_last_pp04_operation_cache

&----


*& Form read_routing

&----


form read_routing.

data: begin of lt_mapl occurs 0,

plnnr like mapl-plnnr,

plnal like mapl-plnal,

end of lt_mapl,

l_arbpl like crhd-arbpl.

  • get all the rtg# and grp ctr# from MAPL

select plnnr plnal

into corresponding fields of table lt_mapl

from mapl

where matnr = v_matnr and

werks = itab_xcel-werks and

plnty = v_plnty and "Rate Routing

loekz = space. "with del flag = OFF

sort lt_mapl by plnal.

if not itab_xcel-verid is initial.

  • if the verid=0001 then use the 1st good rtg-grp# and grp-ctr#

if itab_xcel-verid = '0001'.

read table lt_mapl index 1.

v_plnnr = lt_mapl-plnnr.

v_plnal = lt_mapl-plnal.

else.

  • if the verid<>0001 then use the rtg-grp# and grp-ctr# of the routing

  • whose work center on the last PP04 operation matches the given verid

loop at lt_mapl.

clear l_arbpl.

  • get the work center from the last PP04 operation

perform read_wc_on_last_pp04 using lt_mapl-plnnr

lt_mapl-plnal

changing l_arbpl.

*

if itab_xcel-verid = l_arbpl.

v_plnnr = lt_mapl-plnnr.

v_plnal = lt_mapl-plnal.

exit.

endif.

endloop.

endif.

else.

  • do nothing

endif.

  • For version IDs that are other then '0000' or 'ZWIP' :--

if itab_xcel-verid NE '0000' and

itab_xcel-verid NE 'ZWIP'.

  • if routing group# or group counter was not determined, make the

  • valid-to date 99/99/9999 so that the BDC, on execution, errors out.

if v_plnnr is initial or

v_plnal is initial.

itab_xcel-bdatu = '99/99/9999'.

endif.

endif.

    • determine the routing group#

  • CLEAR lt_pp04_cache.

    • chk if its in the cache first, if not then get it from MAPL table

    • and put it in the cache

  • READ TABLE lt_pp04_cache WITH KEY matnr = pi_matnr

  • werks = pi_werks

  • alnag = pi_alnag.

  • IF sy-subrc = 0.

    • do nothing - lt_pp04_cache header line has rtg#

  • ELSE.

    • get the routing group # from MAPL

    • put it in the cache internal table

  • IF NOT l_mapl_plnnr IS INITIAL.

  • lt_pp04_cache-matnr = pi_matnr.

  • lt_pp04_cache-werks = pi_werks.

  • lt_pp04_cache-alnag = pi_alnag.

  • lt_pp04_cache-plnnr = l_mapl_plnnr.

  • APPEND lt_pp04_cache.

  • ENDIF.

  • ENDIF.

*

    • if the rtg# was determined AND

    • -- the work center was not determined yet AND

    • -- work center was really needed for this line in the input file

    • then

    • -- read the work center from last PP04 operation on the routing

    • -- update the cache accordingly

*

*

  • IF NOT lt_pp04_cache-plnnr IS INITIAL AND

  • lt_pp04_cache-arbpl IS INITIAL AND

  • ( pi_verid IS INITIAL OR

  • pi_mdv01 IS INITIAL ).

*

    • read the last PP04 operation

  • CLEAR lt_plpo.

  • REFRESH lt_plpo.

  • SELECT vornr eobjty eobjid e~arbpl

  • INTO CORRESPONDING FIELDS OF TABLE lt_plpo

  • FROM plas AS b

  • INNER JOIN plpo AS c

  • ON bplnty = cplnty AND

  • bplnnr = cplnnr AND

  • bzaehl = czaehl

  • INNER JOIN crhd AS e

  • ON carbid = eobjid

  • WHERE b~plnty = v_plnty AND

  • b~plnnr = lt_pp04_cache-plnnr AND

  • b~plnal = lt_pp04_cache-alnag AND

  • c~loekz = space AND

  • c~steus = v_plpo_steus AND

  • e~objty = v_objty AND

  • e~werks = lt_pp04_cache-werks AND

  • e~verwe = v_verwe.

  • SORT lt_plpo BY vornr DESCENDING.

  • READ TABLE lt_plpo INDEX 1.

**

  • IF NOT lt_plpo-arbpl IS INITIAL.

  • lt_pp04_cache-arbpl = lt_plpo-arbpl.

    • read work center description

  • SELECT SINGLE ktext INTO lt_pp04_cache-ktext

  • FROM crtx WHERE objty = lt_plpo-objty AND

  • objid = lt_plpo-objid AND

  • spras = sy-langu.

    • the following read will get the index of the correct record to be

    • updated in the cache

  • READ TABLE lt_pp04_cache

  • WITH KEY matnr = pi_matnr

  • werks = pi_werks

  • alnag = pi_alnag.

  • MODIFY lt_pp04_cache

  • INDEX sy-tabix

  • TRANSPORTING arbpl ktext.

  • ENDIF.

  • ENDIF.

endform. " read_last_pp04_operation_cache

&----


*& Form read_wc_on_last_pp04

&----


form read_wc_on_last_pp04 using pi_plnnr

pi_plnal

changing pe_arbpl.

data: begin of lt_plpo occurs 0,

vornr like plpo-vornr,

objty like crhd-objty,

objid like crhd-objid,

arbpl like crhd-arbpl,

end of lt_plpo.

  • get all the PP04 operations for the given rtg# & grp-ctr#

select vornr eobjty eobjid e~arbpl

into corresponding fields of table lt_plpo

from plas as b

inner join plpo as c

on bplnty = cplnty and

bplnnr = cplnnr and

bzaehl = czaehl

inner join crhd as e

on carbid = eobjid

where b~plnty = v_plnty and "Rate Routing

b~plnnr = pi_plnnr and

b~plnal = pi_plnal and

c~loekz = space and "Oper Del Flag = OFF

c~steus = v_plpo_steus and "PP04

e~objty = v_objty. "WC Obj Type = 'A'

  • read the last operation

sort lt_plpo by vornr descending.

read table lt_plpo index 1.

pe_arbpl = lt_plpo-arbpl.

endform. " read_wc_on_last_pp04

Former Member
0 Kudos

hi,

check this one:

example1:

REPORT ZSR_BDC_MADHU_SESSION.

PARAMETER: P_FILE LIKE RLGRAP-FILENAME DEFAULT 'C:/DATA2.TXT'.

TYPES: BEGIN OF FF,

LIFNR LIKE RF02K-LIFNR,

KTOKK LIKE RF02K-KTOKK,

NAME1 LIKE LFA1-NAME1,

SORTL LIKE LFA1-SORTL,

LAND1 LIKE LFA1-LAND1,

SPRAS LIKE LFA1-SPRAS,

END OF FF.

DATA: P_FILE1 TYPE STRING,

V_INDEX TYPE I VALUE 1,

V_INDEX1 TYPE I VALUE 1,

VS_COUNT TYPE I VALUE 0,

VF_COUNT TYPE I VALUE 0,

VT_COUNT TYPE I VALUE 0.

DATA: IT_FF TYPE FF OCCURS 0 WITH HEADER LINE.

DATA: IF_FF TYPE FF OCCURS 0 WITH HEADER LINE.

DATA: IS_FF TYPE FF OCCURS 0 WITH HEADER LINE.

DATA: IT_BDC LIKE BDCDATA OCCURS 0 WITH HEADER LINE.

DATA: IT_MSG TYPE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

START-OF-SELECTION.

PERFORM GET_DATA.

PERFORM GENERATE.

PERFORM BDC_INSERT.

PERFORM CLOSE_SESSION.

FORM GET_DATA .

P_FILE1 = P_FILE.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = P_FILE1

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

  • HEADER_LENGTH = 0

  • READ_BY_LINE = 'X'

  • DAT_MODE =

  • CODEPAGE = ' '

  • IGNORE_CERR = ABAP_TRUE

  • REPLACEMENT = '#'

  • CHECK_BOM = ' '

  • IMPORTING

  • FILELENGTH =

  • HEADER =

TABLES

DATA_TAB = IT_FF

EXCEPTIONS

FILE_OPEN_ERROR = 1

FILE_READ_ERROR = 2

NO_BATCH = 3

GUI_REFUSE_FILETRANSFER = 4

INVALID_TYPE = 5

NO_AUTHORITY = 6

UNKNOWN_ERROR = 7

BAD_DATA_FORMAT = 8

HEADER_NOT_ALLOWED = 9

SEPARATOR_NOT_ALLOWED = 10

HEADER_TOO_LONG = 11

UNKNOWN_DP_ERROR = 12

ACCESS_DENIED = 13

DP_OUT_OF_MEMORY = 14

DISK_FULL = 15

DP_TIMEOUT = 16

OTHERS = 17.

ENDFORM. " get_data

FORM GENERATE .

DATA: LV_MSG(255) TYPE C.

LOOP AT IT_FF.

PERFORM POPULATE USING :

'SAPMF02K' '0100' 'X',

'' 'BDC_OKCODE' '/00',

'' 'RF02K-LIFNR' IT_FF-LIFNR,

'' 'RF02K-KTOKK' IT_FF-KTOKK,

'SAPMF02K' '110' 'X',

'' 'BDC_OKCODE' '/00',

'' 'LFA1-NAME1' IT_FF-NAME1,

'' 'LFA1-SORTL' IT_FF-SORTL,

'' 'LFA1-LAND1' IT_FF-LAND1,

'' 'lfa1-spras' IT_FF-SPRAS,

'SAPMF02K' '120' 'X',

'' 'BDC_OKCODE' '/00',

'SAPMF02K' '0130' 'X',

'' 'BDC_OKCODE' '=ENTR',

'SAPLSPO1' '0300' 'X',

'' 'BDC_OKCODE' '=YES'.

CALL TRANSACTION 'XK01'

USING IT_BDC

MODE 'N'

UPDATE 'S'

MESSAGES INTO IT_MSG.

IF SY-SUBRC = 0.

READ TABLE IT_FF INDEX V_INDEX.

IS_FF-LIFNR = IT_FF-LIFNR.

IS_FF-KTOKK = IT_FF-KTOKK.

IS_FF-NAME1 = IT_FF-NAME1.

IS_FF-SORTL = IT_FF-SORTL.

IS_FF-LAND1 = IT_FF-LAND1.

IS_FF-SPRAS = IT_FF-SPRAS.

APPEND IS_FF.

VS_COUNT = VS_COUNT + 1.

ELSE.

READ TABLE IT_FF INDEX V_INDEX.

IF_FF-LIFNR = IT_FF-LIFNR.

IF_FF-NAME1 = IT_FF-NAME1.

IF_FF-SORTL = IT_FF-SORTL.

IF_FF-LAND1 = IT_FF-LAND1.

IF_FF-SPRAS = IT_FF-SPRAS.

APPEND IF_FF.

VF_COUNT = VF_COUNT + 1.

ENDIF.

V_INDEX = V_INDEX + 1.

IF NOT IT_MSG[] IS INITIAL.

LOOP AT IT_MSG.

CALL FUNCTION 'FORMAT_MESSAGE'

EXPORTING

ID = IT_MSG-MSGID

LANG = '-D'

NO = IT_MSG-MSGNR

V1 = IT_MSG-MSGV1

V2 = IT_MSG-MSGV2

V3 = IT_MSG-MSGV3

V4 = IT_MSG-MSGV4

IMPORTING

MSG = LV_MSG

EXCEPTIONS

NOT_FOUND = 1

OTHERS = 2.

IF SY-SUBRC = 0.

WRITE:/ LV_MSG.

ENDIF.

ENDLOOP.

ENDIF.

CLEAR: IT_BDC[],

IT_MSG[].

ENDLOOP.

VT_COUNT = VS_COUNT + VF_COUNT.

WRITE:/ 'total = ' , VT_COUNT.

WRITE:/ 'succesfully = ' , VS_COUNT.

LOOP AT IS_FF.

WRITE:/ IS_FF-LIFNR,

IS_FF-KTOKK,

IS_FF-NAME1,

IS_FF-SORTL,

IS_FF-LAND1.

ENDLOOP.

LOOP AT IF_FF.

WRITE:/ IF_FF-LIFNR,

IF_FF-KTOKK,

IF_FF-NAME1,

IF_FF-SORTL,

IF_FF-LAND1.

ENDLOOP.

ENDFORM. " generate

FORM POPULATE USING VALUE(P_VAL1)

VALUE(P_VAL2)

VALUE(P_VAL3).

IF NOT P_VAL1 IS INITIAL.

IT_BDC-PROGRAM = P_VAL1.

IT_BDC-DYNPRO = P_VAL2.

IT_BDC-DYNBEGIN = P_VAL3.

ELSE.

IT_BDC-FNAM = P_VAL2.

IT_BDC-FVAL = P_VAL3.

ENDIF.

APPEND IT_BDC.

CLEAR IT_BDC.

ENDFORM. " POPULATE

FORM CLOSE_SESSION .

CALL FUNCTION 'BDC_CLOSE_GROUP'

  • EXCEPTIONS

  • NOT_OPEN = 1

  • QUEUE_ERROR = 2

  • OTHERS = 3

.

IF SY-SUBRC <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " close_session

FORM BDC_INSERT .

DATA: LV_DATE LIKE SY-DATUM.

LV_DATE = SY-DATUM - 1.

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

  • DEST = FILLER8

GROUP = 'ZSR'

HOLDDATE = LV_DATE

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.

LOOP AT IF_FF.

PERFORM POPULATE USING :

'SAPMF02K' '0100' 'X',

'' 'BDC_OKCODE' '/00',

'' 'RF02K-LIFNR' IF_FF-LIFNR,

'' 'RF02K-KTOKK' IF_FF-KTOKK,

'SAPMF02K' '0110' 'X',

'' 'BDC_OKCODE' '/00',

'' 'LFA1-NAME1' IF_FF-NAME1,

'' 'LFA1-SORTL' IF_FF-SORTL,

'' 'LFA1-LAND1' IF_FF-LAND1,

'SAPMF02K' '0120' 'X',

'' 'BDC_OKCODE' '/00',

'SAPLSPO1' '0300' 'X',

'' 'BDC_OKCODE' '=YES'.

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = 'XK01'

  • POST_LOCAL = NOVBLOCAL

  • PRINTING = NOPRINT

  • SIMUBATCH = ' '

  • CTUPARAMS = ' '

TABLES

DYNPROTAB = IT_BDC.

  • EXCEPTIONS

  • INTERNAL_ERROR = 1

  • NOT_OPEN = 2

  • QUEUE_ERROR = 3

  • TCODE_INVALID = 4

  • PRINTING_INVALID = 5

  • POSTING_INVALID = 6

  • OTHERS = 7

.

CLEAR IT_BDC[].

IF SY-SUBRC <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDLOOP.

ENDIF.

ENDFORM. " bdc_insert

<b>example 2:simple one</b>

REPORT ZSR_BDC_SESSION.

DATA: BEGIN OF ITAB OCCURS 0,

LIFNR LIKE RF02K-LIFNR,

KTOKK LIKE RF02K-KTOKK,

NAME1 LIKE LFA1-NAME1,

SORTL LIKE LFA1-SORTL,

LAND1 LIKE LFA1-LAND1,

SPRAS LIKE LFA1-SPRAS,

END OF ITAB.

DATA : BDCTAB LIKE BDCDATA OCCURS 0 WITH HEADER LINE.

  • BDCMSG LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

START-OF-SELECTION.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = 'z:\flatfiles\sr1.txt'

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

  • HEADER_LENGTH = 0

  • READ_BY_LINE = 'X'

  • DAT_MODE = ' '

  • CODEPAGE = ' '

  • IGNORE_CERR = ABAP_TRUE

  • REPLACEMENT = '#'

  • CHECK_BOM = ' '

  • IMPORTING

  • FILELENGTH =

  • HEADER =

TABLES

DATA_TAB = ITAB

  • EXCEPTIONS

  • FILE_OPEN_ERROR = 1

  • FILE_READ_ERROR = 2

  • NO_BATCH = 3

  • GUI_REFUSE_FILETRANSFER = 4

  • INVALID_TYPE = 5

  • NO_AUTHORITY = 6

  • UNKNOWN_ERROR = 7

  • BAD_DATA_FORMAT = 8

  • HEADER_NOT_ALLOWED = 9

  • SEPARATOR_NOT_ALLOWED = 10

  • HEADER_TOO_LONG = 11

  • UNKNOWN_DP_ERROR = 12

  • ACCESS_DENIED = 13

  • DP_OUT_OF_MEMORY = 14

  • DISK_FULL = 15

  • DP_TIMEOUT = 16

  • OTHERS = 17

.

IF SY-SUBRC <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

*perform open_group.

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

  • DEST = FILLER8

GROUP = 'SR'

  • 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.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

LOOP AT ITAB.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0100'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'RF02K-KTOKK'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'/00'.

PERFORM BDC_FIELD USING 'RF02K-LIFNR'

ITAB-LIFNR.

PERFORM BDC_FIELD USING 'RF02K-KTOKK'

ITAB-KTOKK.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0110'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'LFA1-SPRAS'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'/00'.

PERFORM BDC_FIELD USING 'LFA1-NAME1'

ITAB-NAME1.

PERFORM BDC_FIELD USING 'LFA1-SORTL'

ITAB-SORTL.

PERFORM BDC_FIELD USING 'LFA1-LAND1'

ITAB-LAND1.

PERFORM BDC_FIELD USING 'LFA1-SPRAS'

ITAB-SPRAS.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0120'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'LFA1-KUNNR'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'/00'.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0130'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'LFBK-BANKS(01)'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=ENTR'.

PERFORM BDC_DYNPRO USING 'SAPLSPO1' '0300'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=YES'.

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = 'XK01'

  • POST_LOCAL = NOVBLOCAL

  • PRINTING = NOPRINT

  • SIMUBATCH = ' '

  • CTUPARAMS = ' '

TABLES

DYNPROTAB = BDCTAB

  • 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.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDLOOP.

CALL FUNCTION 'BDC_CLOSE_GROUP'.

*perform close_group.

&----


*& Form bdc_dynpro

&----


  • text

----


  • -->P_0069 text

  • -->P_0070 text

----


FORM BDC_DYNPRO USING VALUE(P_0069)

VALUE(P_0070).

CLEAR BDCTAB.

BDCTAB-PROGRAM = P_0069.

BDCTAB-DYNPRO = P_0070.

BDCTAB-DYNBEGIN = 'X'.

APPEND BDCTAB.

ENDFORM. " bdc_dynpro

&----


*& Form bdc_field

&----


  • text

----


  • -->P_0074 text

  • -->P_0075 text

----


FORM BDC_FIELD USING VALUE(P_0074)

VALUE(P_0075).

IF P_0075 IS NOT INITIAL.

CLEAR BDCTAB.

BDCTAB-FNAM = P_0074.

BDCTAB-FVAL = P_0075.

APPEND BDCTAB.

ENDIF.

ENDFORM. " bdc_field