Example of BDC Session method

[Former Member]

Hello Friends,

Can you guide me how to create BDC with SESSION method.?

Please mantion examples.

Thanks in advance.

Regards,

nimesh master

[Former Member]

Hi,

Check the following links:

http://www.sap-img.com/bdc.htm

Regards,

Bhaskar

[Former Member]

See below example code :

Call three FM : BDC_OPEN_GROUP,BDC_INSERT and BDC_CLOSE_GROUP.

Once you execute the program and it creates the session at SM35 Transaction.

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

• Report : ZMPPC011

• Type : Data upload

• Author : Chetan Shah

• Date : 05/05/2005

• Transport : DV3K919557

• Transaction: ??

• Description: This ABAP/4 Program creates new Production Versions

• (C223). It accepts tab-delimited spreadsheet input and

• creates BDC sessions.

*

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

• Modification Log

• Date Programmer Request # Description

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

• 06/10/2005 Chetan Shah DV3K919557 Initial coding

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

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 e_{objty e}objid e~arbpl

• INTO CORRESPONDING FIELDS OF TABLE lt_plpo

• FROM plas AS b

• INNER JOIN plpo AS c

• ON b_{plnty = c}plnty AND

• b_{plnnr = c}plnnr AND

• b_{zaehl = c}zaehl

• INNER JOIN crhd AS e

• ON c_{arbid = e}objid

• 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 e_{objty e}objid e~arbpl

• INTO CORRESPONDING FIELDS OF TABLE lt_plpo

• FROM plas AS b

• INNER JOIN plpo AS c

• ON b_{plnty = c}plnty AND

• b_{plnnr = c}plnnr AND

• b_{zaehl = c}zaehl

• INNER JOIN crhd AS e

• ON c_{arbid = e}objid

• 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 e_{objty e}objid e~arbpl

into corresponding fields of table lt_plpo

from plas as b

inner join plpo as c

on b_{plnty = c}plnty and

b_{plnnr = c}plnnr and

b_{zaehl = c}zaehl

inner join crhd as e

on c_{arbid = e}objid

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

Reward Points if it is useful

Thanks

Seshu

[Former Member]

Hello friends,

I have done recording with MM01

i have also used my CALL TRANSACTION Method and its working fine.

BUT.... i want to use same for SESSION Method. Sujjest me the code.

note : my CALL TRANSACTION code is shown below :

&----

---

*& Report Z_BDC_MM01 *

*& *

&----

---

*& *

*& *

&----

---

REPORT Z_BDC_MM01 no standard page heading line-size 255.

DATA : BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.

DATA : BEGIN OF T OCCURS 0,

MATNR LIKE RMMG1-MATNR,

MBRSH LIKE RMMG1-MBRSH,

MTART LIKE RMMG1-MTART,

MAKTX LIKE MAKT-MAKTX,

MEINS LIKE MARA-MEINS,

MTPOS_MARA LIKE MARA-MTPOS_MARA,

END OF T.

start-of-selection.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = 'C:\MM01.TXT'

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

TABLES

DATA_TAB = T.

LOOP AT T.

REFRESH BDCDATA.

PERFORM ZMM01.

ENDLOOP.

&----

---

*& Form ZMM01

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM ZMM01 .

perform bdc_dynpro using 'SAPLMGMM' '0060'.

perform bdc_field using 'BDC_CURSOR'

'RMMG1-MTART'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'RMMG1-MATNR'

T-MATNR.

perform bdc_field using 'RMMG1-MBRSH'

T-MBRSH.

perform bdc_field using 'RMMG1-MTART'

T-MTART.

perform bdc_dynpro using 'SAPLMGMM' '0070'.

perform bdc_field using 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(01)'.

perform bdc_field using 'BDC_OKCODE'

'=ENTR'.

perform bdc_field using 'MSICHTAUSW-KZSEL(01)'

'X'.

perform bdc_dynpro using 'SAPLMGMM' '4004'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'BDC_CURSOR'

'MAKT-MAKTX'.

perform bdc_field using 'MAKT-MAKTX'

T-MAKTX.

perform bdc_field using 'BDC_CURSOR'

'MARA-MEINS'.

perform bdc_field using 'MARA-MEINS'

T-MEINS.

perform bdc_field using 'MARA-MTPOS_MARA'

T-MTPOS_MARA.

perform bdc_dynpro using 'SAPLSPO1' '0300'.

perform bdc_field using 'BDC_OKCODE'

'=YES'.

CALL TRANSACTION 'MM01' USING BDCDATA MODE 'A' UPDATE 'S'.

ENDFORM. " ZMM01

FORM BDC_DYNPRO USING PROGRAM DYNPRO.

CLEAR BDCDATA.

BDCDATA-PROGRAM = PROGRAM.

BDCDATA-DYNPRO = DYNPRO.

BDCDATA-DYNBEGIN = 'X'.

APPEND BDCDATA.

ENDFORM.

FORM BDC_FIELD USING FNAM FVAL.

CLEAR BDCDATA.

BDCDATA-FNAM = FNAM.

BDCDATA-FVAL = FVAL.

APPEND BDCDATA.

ENDFORM.

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

Give me code for SESSION method for same T-code MM01.

Regards,

Nimesh Master

[S0025444845]

Hi,

Iam giving u the example

&----

---

*& Report ZREPORT_BDC_SESSION_01 *

*& *

&----

---

*& *

*& *

&----

---

REPORT zreport_bdc_session_01 .

**// Include program for top and global data declaration

*INCLUDE zreport_bdc_01_top.

*

*// Include for subroutines

*INCLUDE zreport_bdc_01_forms.

*// Types

TYPES:

BEGIN OF typ_itab,

lifnr TYPE rf02k-lifnr,

ekorg TYPE rf02k-ekorg,

ktokk TYPE rf02k-ktokk,

name1 TYPE lfa1-name1,

sortl TYPE lfa1-sortl,

ort01 TYPE lfa1-ort01,

pstlz TYPE lfa1-pstlz,

land1 TYPE lfa1-land1,

waers TYPE lfm1-waers,

END OF typ_itab.

*// GlobalInternal tables

DATA:

it_itab TYPE STANDARD TABLE OF typ_itab,

it_bdc TYPE STANDARD TABLE OF bdcdata,

it_msg TYPE STANDARD TABLE OF bdcmsgcoll.

*// Global worlareas

DATA:

wa_itab TYPE typ_itab,

wa_bdc TYPE bdcdata,

wa_msg TYPE bdcmsgcoll.

*// global variables.

DATA:

g_ret TYPE c ,

g_file TYPE char20,

g_msg TYPE char100,

tmp_file TYPE string,

g_qid TYPE apqi-qid.

*// global constants.

CONSTANTS:

c_e TYPE c VALUE 'E',

c_s TYPE c VALUE 'S'.

*// selection screen

PARAMETERS:

p_file TYPE char20 OBLIGATORY DEFAULT 'C:\VENDOR19.TXT'.

g_file = p_file.

CALL FUNCTION 'WS_QUERY'

EXPORTING

filename = g_file

query = 'FE'

IMPORTING

return = g_ret.

IF g_ret NE '1'.

MESSAGE text-001 TYPE c_e.

STOP.

ENDIF.

START-OF-SELECTION.

tmp_file = p_file.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = tmp_file

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

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

• CLIENT = SY-MANDT

• DEST = FILLER8

group = 'ZSESSION01'

• HOLDDATE = FILLER8

keep = 'X'

user = sy-uname

• RECORD = FILLER1

• PROG = SY-CPROG

IMPORTING

qid = g_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 it_itab INTO wa_itab.

PERFORM f_bdcsys TABLES it_bdc

USING 'SAPMF02K' '0107' 'X'.

PERFORM f_bdcdata:

TABLES it_bdc

USING 'BDC_CURSOR' 'RF02K-KTOKK',

TABLES it_bdc

USING 'BDC_OKCODE' '/00',

TABLES it_bdc

USING 'RF02K-LIFNR' wa_itab-lifnr,

TABLES it_bdc

USING 'RF02K-EKORG' wa_itab-ekorg,

TABLES it_bdc

USING 'RF02K-KTOKK' wa_itab-ktokk.

PERFORM f_bdcsys TABLES it_bdc

USING 'SAPMF02K' '0110' 'X'.

PERFORM f_bdcdata:

TABLES it_bdc

USING 'BDC_CURSOR' 'LFA1-LAND1',

TABLES it_bdc

USING 'BDC_OKCODE' '/00',

TABLES it_bdc

USING 'LFA1-NAME1' wa_itab-name1,

TABLES it_bdc

USING 'LFA1-SORTL' wa_itab-sortl,

TABLES it_bdc

USING 'LFA1-ORT01' wa_itab-ort01,

TABLES it_bdc

USING 'LFA1-PSTLZ' wa_itab-pstlz,

TABLES it_bdc

USING 'LFA1-LAND1' wa_itab-land1.

PERFORM f_bdcsys TABLES it_bdc

USING 'SAPMF02K' '0120' 'X'.

PERFORM f_bdcdata: TABLES it_bdc

USING 'BDC_OKCODE' '/00'.

PERFORM f_bdcsys TABLES it_bdc

USING 'SAPMF02K' '0310' 'X'.

PERFORM f_bdcdata: TABLES it_bdc

USING 'BDC_CURSOR' 'LFM1-WAERS',

TABLES it_bdc

USING 'BDC_OKCODE' '/00',

TABLES it_bdc

USING 'LFM1-WAERS' wa_itab-waers.

PERFORM f_bdcsys TABLES it_bdc

USING 'SAPMF02K' '0320' 'X'.

PERFORM f_bdcdata: TABLES it_bdc

USING 'BDC_CURSOR' 'RF02K-LIFNR',

TABLES it_bdc

USING 'BDC_OKCODE' '=ENTR'.

PERFORM f_bdcsys TABLES it_bdc

USING 'SAPLSPO1' '0300' 'X'.

PERFORM f_bdcdata: TABLES it_bdc

USING 'BDC_OKCODE' '=YES'.

CALL FUNCTION 'BDC_INSERT'

EXPORTING

tcode = 'MK01'

• 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

.

IF sy-subrc <> 0.

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

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

ENDIF.

REFRESH: it_bdc.

ENDLOOP.

• LOOP AT it_msg INTO wa_msg WHERE msgtyp = c_e .

*

• CALL FUNCTION 'FORMAT_MESSAGE'

• EXPORTING

• id = wa_msg-msgid

• lang = sy-langu

• no = wa_msg-msgnr

• v1 = wa_msg-msgv1

• v2 = wa_msg-msgv2

• v3 = wa_msg-msgv3

• v4 = wa_msg-msgv4

• IMPORTING

• msg = g_msg

• EXCEPTIONS

• not_found = 1

• OTHERS = 2.

• IF sy-subrc <> 0.

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

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

• ENDIF.

*

• WRITE:/ ' MESSAGE: ', g_msg .

• ENDLOOP.

*

• REFRESH it_msg.

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.

• SUBMIT rsbdcbtc WITH qid = g_qid .

&----

---

*& Form f_bdcsys

&----

---

• text

----

---

• -->P_IT_BDC text

• -->P_0129 text

• -->P_0130 text

• -->P_0131 text

----

---

FORM f_bdcsys TABLES p_it_bdc STRUCTURE bdcdata

USING value(p_0129)

value(p_0130)

value(p_0131).

p_it_bdc-program = p_0129.

p_it_bdc-dynpro = p_0130.

p_it_bdc-dynbegin = p_0131.

APPEND p_it_bdc TO p_it_bdc.

CLEAR p_it_bdc.

ENDFORM. " f_bdcsys

&----

---

*& Form f_bdcdata

&----

---

• text

----

---

• -->P_IT_BDC text

• -->P_0168 text

• -->P_0169 text

----

---

FORM f_bdcdata TABLES p_it_bdc STRUCTURE bdcdata

USING value(p_0168)

value(p_0169).

p_it_bdc-fnam = p_0168.

p_it_bdc-fval = p_0169.

APPEND p_it_bdc TO p_it_bdc.

CLEAR p_it_bdc.

ENDFORM. " f_bdcdata

You can process the session by going in tcode SM35

Sudha

reward points if helpful.

[Former Member]

Hi,

REPORT ZBHVEND no standard page heading line-size 255.

*include bdcrecx1.

*

*start-of-selection.

*

*perform open_group.

DATA:BEGIN OF ITAB OCCURS 0,

LIFNR LIKE LFA1-LIFNR,

KTOKK LIKE LFA1-KTOKK,

NAME1 LIKE LFA1-NAME1,

SORTL LIKE LFA1-SORTL,

LAND1 LIKE LFA1-LAND1,

REGIO LIKE LFA1-REGIO,

END OF ITAB.

DATA BDCTAB LIKE BDCDATA OCCURS 0 WITH HEADER LINE.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = 'C:/BHARAT/VEND.TXT'

FILETYPE = 'ASC'

TABLES

DATA_TAB = ITAB.

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

GROUP = 'VENDOR'

KEEP = 'X'

USER = SY-UNAME

PROG = SY-CPROG.

LOOP AT ITAB.

perform bdc_dynpro using 'SAPMF02K' '0107'.

perform bdc_field using 'BDC_CURSOR'

'RF02K-LIFNR'.

perform bdc_field using 'RF02K-LIFNR'

ITAB-LIFNR.

perform bdc_field using 'RF02K-KTOKK'

ITAB-KTOKK.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_dynpro using 'SAPMF02K' '0110'.

perform bdc_field using 'BDC_CURSOR'

'LFA1-NAME1'.

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-REGIO'

ITAB-REGIO.

perform bdc_field using 'BDC_OKCODE'

'/00'.

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

*perform bdc_transaction using 'MK01'.

*

*perform close_group.

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = 'MK01'

TABLES

DYNPROTAB = BDCTAB.

REFRESH BDCTAB.

ENDLOOP.

CALL FUNCTION 'BDC_CLOSE_GROUP'.

FORM BDC_DYNPRO USING PROGRAM DYNPRO.

CLEAR BDCTAB.

BDCTAB-PROGRAM = PROGRAM.

BDCTAB-DYNPRO = DYNPRO.

BDCTAB-DYNBEGIN = 'X'.

APPEND BDCTAB.

ENDFORM.

FORM BDC_FIELD USING FNAM FVAL.

CLEAR BDCTAB.

BDCTAB-FNAM = FNAM.

BDCTAB-FVAL = FVAL.

APPEND BDCTAB.

ENDFORM.

rgds,

bharat.