Bdc with session method

hi all,
i need to upload these transactions(MB1A, MB31,MB1A )one after the other.i have the data in flat file(excel). I need to use BDC for this. I am prefering SESSION method for this.Can any one help me to acieve this. shall i record the transactions one after the othet and keep BDC_INSERT after the perform statements. will achieve this. Help me with a sample code for this

Hi Kiran,
Upload data into internal table (itab) using the below function modules.And then by using session method populate that in the BDCDATA internal table as you generally do session method.
PARAMETERS: filename LIKE rlgrap-filename .
PARAMETERS: kzheader AS CHECKBOX.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
 EXPORTING
 mask = '*.xls'
 static = 'X'
 CHANGING
 file_name = filename.
START-OF-SELECTION.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 filename = filename
 i_begin_col = begcol
 i_begin_row = begrow
 i_end_col = endcol
 i_end_row = endrow
 TABLES
 intern = itab
 EXCEPTIONS
 inconsistent_parameters = 1
 upload_ole = 2
 OTHERS = 3.
IF sy-subrc <> 0.
 WRITE:/ 'Upload Error ', SY-SUBRC.
ENDIF.
Reward points if useful.
Thanks & Regards,
khan.
Edited by: Ahmed Khan on Apr 29, 2008 8:01 AM

Similar Messages

BDC using session method

hai
can anyone post me bdc using session method plz

Hi,
ABAP BDC SESSION METHOD SAMPLE CODE
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.
Reward Points if useful
Raghunath.S
9986076729

Step by step BDC using session method

hello experts,
im loking for BDC by session method, but i couldnt find any tutorial on BDC- session method.
can anyone suggest any link ot tutorial wher i can find step by step tutorial on bdc by session method.
your suggestion will help me lot,
thank you,
regards,
nikhil

Hi Nikhil,
This is the basic program to learn BDC session .Run this program and change the file path.
Make a recording for MM01 In T-Code SHDB for creating material.
*& Report ZBDC_SESSION
REPORT ZBDC_SESSION no standard page heading line-size 255.
DATA : BEGIN OF BDC OCCURS 100 ,
 MBRSH TYPE RMMG1-MBRSH,
 MTART TYPE RMMG1-MTART,
 MAKTX TYPE MAKT-MAKTX,
 MEINS TYPE MARA-MEINS,
 END OF BDC.
 ITAB LIKE TABLE OF BDC WITH HEADER LINE,
 DATA : BDCDATA LIKE TABLE OF BDCDATA WITH HEADER LINE.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
 FILENAME ='D:\MM01.TXT'
 FILETYPE = 'ASC'
 HAS_FIELD_SEPARATOR = 'X'
HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
CHECK_BOM = ' '
VIRUS_SCAN_PROFILE =
NO_AUTH_CHECK = ' '
IMPORTING
FILELENGTH =
HEADER =
TABLES
 DATA_TAB = BDC
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 = 'ZAK'
HOLDDATE = FILLER8
 KEEP = 'X'
 USER = SY-UNAME
RECORD = FILLER1
PROG = SY-CPROG
DCPFM = '%'
DATFM = '%'
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.
*include bdcrecx1.
*start-of-selection.
*perform open_group.
LOOP AT BDC.
CLEAR BDCDATA[].
REFRESH BDCDATA[].
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'
 'ZRAW001'.
perform bdc_field using 'RMMG1-MBRSH'
 'M'.
BDC-MBRSH.
perform bdc_field using 'RMMG1-MTART'
 'FERT'.
BDC-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 'MAKT-MAKTX'
 'NUT'.
BDC-MAKTX.
perform bdc_field using 'BDC_CURSOR'
 'MARA-MEINS'.
perform bdc_field using 'MARA-MEINS'
 'PC'.
BDC-MEINS.
perform bdc_field using 'MARA-MTPOS_MARA'
 'NORM'.
perform bdc_dynpro using 'SAPLSPO1' '0300'.
perform bdc_field using 'BDC_OKCODE'
 '=YES'.
*perform bdc_transaction using 'MM01'.
*perform close_group.
CALL FUNCTION 'BDC_INSERT'
EXPORTING
 TCODE = 'MM01'
POST_LOCAL = NOVBLOCAL
PRINTING = NOPRINT
SIMUBATCH = ' '
CTUPARAMS = ' '
TABLES
 DYNPROTAB = BDCDATA
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'
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.
 Start new screen *
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR BDCDATA.
BDCDATA-PROGRAM = PROGRAM.
BDCDATA-DYNPRO = DYNPRO.
BDCDATA-DYNBEGIN = 'X'.
APPEND BDCDATA.
ENDFORM.
 Insert field *
FORM BDC_FIELD USING FNAM FVAL.
IF FVAL IS NOT INITIAL.
 CLEAR BDCDATA.
 BDCDATA-FNAM = FNAM.
 BDCDATA-FVAL = FVAL.
 APPEND BDCDATA.
ENDIF.
ENDFORM.

Can u send me the link which describes me in about bdc with direct method

Can u send me the link which describes me in about bdc with direct method with examples in detail

Hi,
http://help.sap.com/saphelp_nw04/helpdata/en/eb/3e7cf7940e11d295df0000e82de14a/frameset.htm
and
http://help.sap.com/saphelp_nw04/helpdata/en/eb/3e7cf7940e11d295df0000e82de14a/frameset.htm
For BDC:
http://myweb.dal.ca/hchinni/sap/bdc_home.htm
https://www.sdn.sap.com/irj/sdn/wiki?path=/display/home/bdc&
http://www.sap-img.com/abap/learning-bdc-programming.htm
http://www.sapdevelopment.co.uk/bdc/bdchome.htm
http://www.sap-img.com/abap/difference-between-batch-input-and-call-transaction-in-bdc.htm
http://help.sap.com/saphelp_47x200/helpdata/en/69/c250684ba111d189750000e8322d00/frameset.htm
http://www.sapbrain.com/TUTORIALS/TECHNICAL/BDC_tutorial.html
Check these link:
http://www.sap-img.com/abap/difference-between-batch-input-and-call-transaction-in-bdc.htm
http://www.sap-img.com/abap/question-about-bdc-program.htm
http://www.itcserver.com/blog/2006/06/30/batch-input-vs-call-transaction/
http://www.planetsap.com/bdc_main_page.htm
reward if useful
regards,
Anji

BDC by session method

hi,
I am using bdc by session method to update some 8000 records. After the session is completed it is showing 2400 errors, I rectified the error in the flat file. I want to know that can I run the same session or do I have to delete the sucessful records from File and run the BDC program again.

Hi suchender , the commit in Session method is implicit and so the 5600 records would already be updated . Hence you will have to run the session only for the remaining records ..
Best Regards,
Manthan.

BDC ( Call Session Method)

how to make bdc using call session method.

Hi,
Use this code,you can easily understand which u want to know
DATA: BEGIN OF itab OCCURS 0,
 str(255),
 END OF itab.
DATA: BEGIN OF itab1 OCCURS 0,
 lifnr LIKE lfa1-lifnr,
 name1 LIKE lfa1-name1,
 ort01 LIKE lfa1-ort01,
 END OF itab1.
DATA: jtab LIKE bdcdata OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
 filename = 'D:\ABAP EVE\ffile5.txt'
 filetype = 'ASC'
TABLES
 data_tab = itab
EXCEPTIONS
 conversion_error = 1
 file_open_error = 2
 file_read_error = 3
 invalid_type = 4
 no_batch = 5
 unknown_error = 6
 invalid_table_width = 7
 gui_refuse_filetransfer = 8
 customer_error = 9
 no_authority = 10
 OTHERS = 11.
IF sy-subrc <> 0.
WRITE:/ 'no file exist'.
ENDIF.
LOOP AT itab.
SPLIT itab-str AT ',' INTO itab1-lifnr itab1-name1 itab1-ort01.
APPEND itab1.
ENDLOOP.
CALL FUNCTION 'BDC_OPEN_GROUP'
EXPORTING
 client = sy-mandt
DEST = FILLER8
 group = 'ZCSSESSIONM1'
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.
LOOP AT itab1.
PERFORM prginfo USING 'SAPMZBDCCT' '123'.
PERFORM fldinfo USING 'i01' itab1-lifnr.
PERFORM fldinfo USING 'i02' itab1-name1.
PERFORM fldinfo USING 'i03' itab1-ort01.
CALL TRANSACTION 'ZCSBDCCT' USING jtab.
CALL FUNCTION 'BDC_INSERT'
 EXPORTING
 tcode = 'ZCSBDCCT'
 POST_LOCAL = NOVBLOCAL
 PRINTING = NOPRINT
 SIMUBATCH = ' '
 CTUPARAMS = ' '
 TABLES
 dynprotab = jtab
 EXCEPTIONS
 internal_error = 1
 not_open = 2
 queue_error = 3
 tcode_invalid = 4
 printing_invalid = 5
 posting_invalid = 6
 OTHERS = 7.
ENDLOOP.
CALL FUNCTION 'BDC_CLOSE_GROUP'.
*& Form prginfo
 text
 -->PRGNAME text
 -->SCRNUMBER text
FORM prginfo USING prgname scrnumber.
CLEAR jtab.
REFRESH jtab.
jtab-program = prgname.
jtab-dynpro = scrnumber.
jtab-dynbegin = 'X'.
APPEND jtab.
ENDFORM. "prginfo
*& Form fldinfo
 text
 -->FLDNM text
 -->FLDVAL text
FORM fldinfo USING fldnm fldval.
CLEAR jtab.
jtab-fnam = fldnm.
jtab-fval = fldval.
APPEND jtab.
ENDFORM. "fldinfo
MPP CODE.
TOP-INCLUDE.
DATA: OK_CODE TYPE SY-UCOMM.
DATA: I01(10),I02(20),I03(26).
DATA: WA TYPE LFA1.
PAI
CASE OK_CODE.
 WHEN 'INSERT'.
 MOVE I01 TO WA-LIFNR.
 MOVE I02 TO WA-NAME1.
 MOVE I03 TO WA-ORT01.
 INSERT INTO LFA1 VALUES WA.
 IF SY-SUBRC = 0.
 MESSAGE I001(ZCSMSG).
 ELSE.
 MESSAGE I002(ZCSMSG).
 ENDIF.
 WHEN 'EXIT'.
 LEAVE PROGRAM.
ENDCASE.
Create the 3 io's in layout and 2 pushbuttons(exit,insert).
Open SM35 TCode -> select the session -> Click on "Process" from application toolbar
-> select mode of execution(foreground/background) -> click on "process".
Flatfile data:
300001,Yogesh,Secundrabad
320003,Wreline,Mexico
320004,Alexme,New York
And store this in "D:\ABAP EVE\ffile5.txt" path
Reward,if it is useful.
Thanks,
Chandu.

Bdc doubt (session method)

hi all,
i have read from many materials that using session methods we can run multiple transactions at a time
whereas using call transaction only one transaction at a
time.
so iwant to know that how we can run multiple transaction at a time.
plz clear my doubt
thanks & regards
sanjeev

Hi,
   In session method we can call two different
   trasaction by calling function
   BDC_insert with two different tcodes
   and they will be part of same session
     bdc_open_group
    CALL FUNCTION 'BDC_OPEN_GROUP'
         EXPORTING
              CLIENT = SY-MANDT
              GROUP = WS-MAPPE
              KEEP   = 'X'
              USER   = SY-UNAME.
ws-tcode = 'VA01'.
    CALL FUNCTION 'BDC_INSERT'
       EXPORTING
            TCODE     = WS-TCODE       " Transaction code
       TABLES
            DYNPROTAB = BDCDATA.       " Transaction data
refresh bdcdata
    ws-tcode = 'VA02'.
   CALL FUNCTION 'BDC_INSERT'
       EXPORTING
            TCODE     = WS-TCODE       " Transaction code
       TABLES
            DYNPROTAB = BDCDATA.       " Transaction data
where as in call trasansction we can call only one
transaction at a time
call transaction 'VA01' using bdcdata messages into
messtab.
call transaction 'VA02' using bdcdata messages into
messtab.
regards
amole

Error log with session method

hi frnds
 we can handle error in call transaction method by using bdcmsgcoll,
 error is handled by system using session method and these errors can be analysed by going to tr sm35 . is there is any way by which i will use session method in my program and all the errors will be written in the o/p of the list.
is this is possible , if so pls give me some sample code
thanks
pankaj

Hi,
check the belwo sample code.
Declaration of local constants
CONSTANTS : lc_tcode TYPE tstc-tcode VALUE 'ME31K',
 lc_n TYPE ctu_mode VALUE 'N'.
Declaration of local variables
DATA: lv_msg TYPE string,
 lv_subrc LIKE sy-subrc,
 lv_opt TYPE ctu_params.
lv_opt-defsize = c_x.
lv_opt-dismode = lc_n.
lv_opt-updmode = c_l.
REFRESH i_messtab.
Call the transaction to create the Purchasing Contracts
CALL TRANSACTION lc_tcode USING i_bdcdata
 OPTIONS FROM lv_opt
 MESSAGES INTO i_messtab.
MOVE sy-subrc TO lv_subrc.
IF lv_subrc NE 0.
 v_err_cnt = v_err_cnt + 1.
 IF NOT i_messtab[] IS INITIAL.
 READ TABLE i_messtab WITH KEY msgtyp = 'E'.
 IF sy-subrc EQ 0.
 CALL FUNCTION 'FORMAT_MESSAGE'
 EXPORTING
 id = i_messtab-msgid
 lang = sy-langu
 no = i_messtab-msgnr
 v1 = i_messtab-msgv1
 v2 = i_messtab-msgv2
 v3 = i_messtab-msgv3
 v4 = i_messtab-msgv4
 IMPORTING
 msg = lv_msg.
 MOVE: p_wa_header-lifnr TO wa_error-lifnr,
 p_wa_header-evart TO wa_error-evart,
 p_wa_header-vedat TO wa_error-vedat,
 p_wa_header-ekorg TO wa_error-ekorg,
 p_wa_header-ekgrp TO wa_error-ekgrp,
 p_wa_header-epstp TO wa_error-epstp,
 p_wa_header-knttp TO wa_error-knttp,
 p_wa_header-bukrs TO wa_error-bukrs,
 p_wa_header-kdatb TO wa_error-kdatb,
 p_wa_header-kdate TO wa_error-kdate,
 p_wa_header-ktwrt TO wa_error-ktwrt,
 p_wa_header-waers TO wa_error-waers,
 p_wa_header-wkurs TO wa_error-wkurs,
 p_wa_header-inco1 TO wa_error-inco1,
 p_wa_header-inco2 TO wa_error-inco2,
 p_wa_header-ihran TO wa_error-ihran,
 p_wa_header-angnr TO wa_error-angnr,
 lv_msg TO wa_error-msg.
 APPEND wa_error TO i_error.
 CLEAR wa_error.
 ELSE.
 READ TABLE i_messtab WITH KEY msgtyp = 'S'.
 IF sy-subrc EQ 0.
 CALL FUNCTION 'FORMAT_MESSAGE'
 EXPORTING
 id = i_messtab-msgid
 lang = sy-langu
 no = i_messtab-msgnr
 v1 = i_messtab-msgv1
 v2 = i_messtab-msgv2
 v3 = i_messtab-msgv3
 v4 = i_messtab-msgv4
 IMPORTING
 msg = lv_msg.
 ENDIF.
 ENDIF.
 ENDIF.
ELSE.
 v_cnt = v_cnt + 1.
ENDIF.
REFRESH i_bdcdata.
*& Form prepare_field_catalog
 Prepare Field catalog
 <--P_I_FIELDCAT[] Internal table for Field Catalog
FORM prepare_field_catalog CHANGING pt_fieldcat TYPE t_fieldcat.
Declaration of local workarea
DATA: lwa_fieldcat TYPE slis_fieldcat_alv.
Declaration of local constants
CONSTANTS : lc_long_text(1) TYPE c VALUE 'L'.
*--Call the functino module to get the field catalog.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 i_program_name = sy-repid
 i_internal_tabname = 'I_SUCCESS'
 i_inclname = sy-repid
 CHANGING
 ct_fieldcat = pt_fieldcat[]
 EXCEPTIONS
 inconsistent_interface = 1
 program_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.
ELSE.
 LOOP AT pt_fieldcat INTO lwa_fieldcat.
 CASE lwa_fieldcat-fieldname.
 WHEN 'VEDAT'.
 lwa_fieldcat-ddictxt = lc_long_text.
 lwa_fieldcat-seltext_l = text-004.
 MODIFY i_fieldcat FROM lwa_fieldcat
 INDEX sy-tabix TRANSPORTING ddictxt seltext_l .
 CLEAR lwa_fieldcat.
 WHEN 'KDATB'.
 lwa_fieldcat-ddictxt = lc_long_text.
 lwa_fieldcat-seltext_l = text-005.
 MODIFY i_fieldcat FROM lwa_fieldcat
 INDEX sy-tabix TRANSPORTING ddictxt seltext_l .
 CLEAR lwa_fieldcat.
 WHEN 'KDATE'.
 lwa_fieldcat-ddictxt = lc_long_text.
 lwa_fieldcat-seltext_l = text-006.
 MODIFY i_fieldcat FROM lwa_fieldcat
 INDEX sy-tabix TRANSPORTING ddictxt seltext_l .
 CLEAR lwa_fieldcat.
 WHEN 'IHRAN'.
 lwa_fieldcat-ddictxt = lc_long_text.
 lwa_fieldcat-seltext_l = text-007.
 MODIFY i_fieldcat FROM lwa_fieldcat
 INDEX sy-tabix TRANSPORTING ddictxt seltext_l .
 CLEAR lwa_fieldcat.
 ENDCASE.
 ENDLOOP. "LOOP AT pt_fieldcat INTO lwa_fieldcat.
ENDIF. "IF sy-subrc <> 0
ENDFORM. " prepare_field_catalog
*& Form display_output
To display the success contracts output in ALV
FORM display_output .
Declaration of local workarea
DATA : lwa_layout TYPE slis_layout_alv.
Declaration of local constants
CONSTANTS : lc_chk(1) TYPE c VALUE 'X',
 lc_page TYPE slis_formname VALUE 'SUB_TOP_OF_PAGE'.
Subroutine to prepare the Field Catalog
PERFORM prepare_field_catalog CHANGING i_fieldcat[].
Subroutine to build layout
lwa_layout-box_tabname = 'I_SUCCESS'.
lwa_layout-no_input = lc_chk.
lwa_layout-colwidth_optimize = lc_chk.
lwa_layout-zebra = lc_chk.
lwa_layout-cell_merge = lc_chk.
FM to call the ALV Grid
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = sy-repid
 i_bypassing_buffer = c_x
 i_callback_top_of_page = lc_page
 is_layout = lwa_layout
 it_fieldcat = i_fieldcat[]
 TABLES
 t_outtab = i_success
 EXCEPTIONS
 program_error = 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.
ENDFORM. " display_output
Rewrad if helpful.
Regards,
Nagaraj

FB01 Posting with Session Method

Hi Experts,
I am trying to post the data in FB01 transaction code through POSTING_INTERFACE_START, POSTING_INTERFACE_DOCUMENT, AND POSTING_INTERFACE_END and it is working fine with Call Transaction method but I want in Batch input session method.
Can anyone guide me on the same what i have to do for the same?
Edited by: Rajneesh Gupta on Mar 10, 2010 7:19 AM
Edited by: Rajneesh Gupta on Mar 10, 2010 7:20 AM

Hi,
check the following coding in the program: RFBIBL01 Batch Input Documents
just identify how it is working
FORM MAPPE_OEFFNEN.
CHECK FUNCTION NE 'D'.
Interne Buchungsschnittstelle initialisieren
CALL FUNCTION 'POSTING_INTERFACE_START'
    EXPORTING
      I_FUNCTION = FUNCTION
      I_CLIENT   = BGR00-MANDT
      I_GROUP    = BGR00-GROUP
      I_XBDCC    = XBDCC
      I_HOLDDATE = BGR00-START
      I_KEEP     = BGR00-XKEEP
      I_MODE     = ANZ_MODE
      I_UPDATE   = UPDATE
      I_USER     = BGR00-USNAM.
IF FUNCTION = 'B'.
    PERFORM LOG_MSG USING C_MSGID 'I' '007'
                          GROUP_COUNT BGR00-GROUP SPACE SPACE.
ENDIF.
GROUP_OPEN = 'X'.
ENDFORM.
regards,
ashok

BDC Program - Session Method For Add and Edit Data

Hi,
How to write a BDC program (For Session Method) to upload Sales Order Data (VA01) and at the same
time to modify the data if the Order exists?
Thanks
Murthy

Hi,
go to SHDB
Create a project and recording the Va01 and then u write the code for That recording.

BDC Vs Session Method

Can any body explain wth steps these two methods of uploading? and explain the difference between them?

Hi suchender , the commit in Session method is implicit and so the 5600 records would already be updated . Hence you will have to run the session only for the remaining records ..
Best Regards,
Manthan.

About bdc using session method

how to update mm thru mk01. please provide the source code with a flat file to be updated.
it's urgent.

Well, you can go do the following steps:
1. Go to SHDB, create a new recording session for the t-code mk01.
2. Go though the t-code and create an entry and complete the transaction.
3. Once that's done, it will record everthing, save and transfer it to a program.
4. Go to the program in change mode, upload the flat file into a internal table using FM 'upload' or 'gui_upload'.
5. Use the internal table to populate further interies into the tcode.
Please go through the following link to understand the process better:
http://www.sap-img.com/abap/learning-bdc-programming.htm
Please go through the following code also:
report ZABC_BDC
 no standard page heading line-size 255.
include bdcrecx1.
*parameters: dataset(132) lower case.
 DO NOT CHANGE - the generated data section - DO NOT CHANGE ***
If it is nessesary to change the data section use the rules:
1.) Each definition of a field exists of two lines
2.) The first line shows exactly the comment
 '* data element: ' followed with the data element
 which describes the field.
 If you don't have a data element use the
 comment without a data element name
3.) The second line shows the fieldname of the
 structure, the fieldname must consist of
 a fieldname and optional the character '_' and
 three numbers and the field length in brackets
4.) Each field must be type C.
Generated data section with specific formatting - DO NOT CHANGE ***
data: begin of record,
data element: MATNR
 MATNR_001(018),
data element: MBRSH
 MBRSH_002(001),
data element: MTART
 MTART_003(004),
data element: XFELD
 KZSEL_01_004(001),
data element: MAKTX
 MAKTX_005(040),
data element: MEINS
 MEINS_006(003),
 end of record.
End generated data section ***
DATA : ITAB LIKE TABLE OF RECORD WITH HEADER LINE.
start-of-selection.
CALL FUNCTION 'UPLOAD'
EXPORTING
CODEPAGE = ' '
 FILENAME = 'C:\Documents and Settings\sa01.indelgpttrg\Desktop'
 FILETYPE = 'DAT'
ITEM = ' '
FILEMASK_MASK = ' '
FILEMASK_TEXT = ' '
FILETYPE_NO_CHANGE = ' '
FILEMASK_ALL = ' '
FILETYPE_NO_SHOW = ' '
LINE_EXIT = ' '
USER_FORM = ' '
USER_PROG = ' '
SILENT = 'S'
IMPORTING
FILESIZE =
CANCEL =
ACT_FILENAME =
ACT_FILETYPE =
TABLES
 DATA_TAB = ITAB
EXCEPTIONS
CONVERSION_ERROR = 1
INVALID_TABLE_WIDTH = 2
INVALID_TYPE = 3
NO_BATCH = 4
UNKNOWN_ERROR = 5
GUI_REFUSE_FILETRANSFER = 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.
*perform open_dataset using dataset.
perform open_group.
*do.
*read dataset dataset into record.
*do.
LOOP AT ITAB.
if sy-subrc <> 0. exit. endif.
perform bdc_dynpro using 'SAPLMGMM' '0060'.
perform bdc_field using 'BDC_CURSOR'
 'RMMG1-MTART'.
perform bdc_field using 'BDC_OKCODE'
 '=AUSW'.
perform bdc_field using 'RMMG1-MATNR'
 ITAB-MATNR_001.
perform bdc_field using 'RMMG1-MBRSH'
 ITAB-MBRSH_002.
perform bdc_field using 'RMMG1-MTART'
 ITAB-MTART_003.
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)'
 ITAB-KZSEL_01_004.
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'
 ITAB-MAKTX_005.
perform bdc_field using 'BDC_CURSOR'
 'MARA-MEINS'.
perform bdc_field using 'MARA-MEINS'
 ITAB-MEINS_006.
perform bdc_dynpro using 'SAPLSPO1' '0300'.
perform bdc_field using 'BDC_OKCODE'
 '=YES'.
perform bdc_transaction using 'MM01'.
*enddo.
ENDLOOP.
perform close_group.
*perform close_dataset using dataset.
Please reward the helpful entries.
Regards,
Raman.

Doubt in bdc program session method

hi,
I tried to execute this program..i am getting error in the bolded line..can you give suggestions..
REPORT ZPRABA1.
TABLES:LFA1.
DATA:BEGIN OF IT_ITAB OCCURS 0,
 LIFNR LIKE LFA1-LIFNR,
 LAND1 LIKE LFA1-LAND1,
 NAME1 LIKE LFA1-NAME1,
 END OF IT_ITAB.
DATA:BEGIN OF IT_JTAB OCCURS 0,
* Error is showing in the below line..that means i have to create new structure or
what?
 INCLUDE STRUCTURE BDCDATA.
 END OF IT_JTAB.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GUI_UPLOAD
 FILENAME = 'C:/praba.txt'
 FILETYPE = 'ASC'
 HAS_FIELD_SEPARATOR = 'X'
 CHANGING
 DATA_TAB = IT_ITAB[].
 CALL FUNCTION 'BDC_OPEN_GROUP'
 EXPORTING
 CLIENT = SY-MANDT
 GROUP = 'USER01'
 USER = SY-UNAME.
LOOP AT IT_ITAB[] INTO IT_ITAB.
 REFRESH IT_JTAB.
 PERFORM SUB USING 'YVTRANS' '0100'.
 PERFORM SUB1 USING 'LFA1-LIFNR' ITAB-LIFNR,
 PERFORM SUB1 USING 'LFA1-LAND1' ITAB-LAND1,
 PERFORM SUB1 USING 'LFA1-NAME1' ITAB-NAME.
 PERFORM SUB1 USING 'BDC_OKCODE' 'INSERT'.
 PERFORM SUB USING 'YSBDC1' '100'.
 PERFORM SUB1 USING 'BDC_OKCODE' 'EXIT'.
 CALL FUNCTION 'BDC_INSERT'
 EXPORTING
 TCODE = 'YSBDC1'
 TABLES
 DYNPROTAB = IT_JTAB.
 ENDLOOP.
 CALL FUNCTION 'BDC_CLOSE_GROUP'.
 SUBMIT RSBDCSUB VIA SELECTION-SCREEN.
 FORM SUB USING A B.
 CLEAR IT_JTAB.
 IT_JTAB-PROGRAM = A.
 IT_JTAB-DYNPRO = B.
 IT_JTAB-DYNBEGIN = 'X'.
 ENDFORM.

hi Praba,
DATA:BEGIN OF IT_JTAB OCCURS 0,
Error is showing in the below line..that means i have to create new structure or
what?
INCLUDE STRUCTURE BDCDATA.
END OF IT_JTAB.
change your code as below:
data: IT_JTAB type table of BDCDATA with header line.
hope this helps,
Sajan Joseph.

Example of BDC Session method

Hello Friends,
Can you guide me how to create BDC with SESSION method.?
Please mantion examples.
Thanks in advance.
Regards,
nimesh master

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 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
Reward Points if it is useful
Thanks
Seshu

DISPLAY LOGS INTO REPORT FROM SESSION METHOD

Hi Friends,
I hv created BDC with Session Method For Tcode KO01 in which internal order number generated which i can see in SM35 tcode....
Now I want to print that Internal order number into report.......
so please tell me How can i print that number which is showing in SM35.......?

pls,do some reply its argent

Bdc with session method

Similar Messages

Maybe you are looking for