batch input sessions..........

[former_member259275]

How to make batch session...?

[Former Member]

Hi shoaib,

Good.

SESSION METHOD

• It is one of the BDC techniques for uploading legacy data into SAP

• The data is transferring from the internal table to database table

through sessions.

• Data along with its action is stored in session.

• When the program has finished generating the session, you can run

the session to execute the transaction.

• Unless session is processed, the data is not transferred to

database tables.

• The following Function Modules are used in the session method.

1. BDC_OPEN_GROUP (Used to create the session)

Import Parameters :

USER - User Name

CLIENT - Client

GROUP - Name of the session

HOLD - The date when you want to process the session

KEEP - ‘X’ – retain session even after processing it

' ' - Delete the session after processing.

2. BDC_INSERT (Data is transferred to session)

Import Parameters :

TCODE - Transaction code

DYNPROTAB – BDCDATA table

3. BDC_CLOSE_GROUP (Used to close a session)

• Processing Steps

1. Generate the batch input session using function module

BDC_OPEN_GROUP.

2. The proceed as follows for each transaction that the session

contains:

a. In the BDCDATA structure, enter the value for all screens

and fields that must be processed in the transaction.

b. Use BDC_INSERT to transfer the transaction and the BDCDATA

structure to the session.

3. Close the batch input session with BDC_CLOSE_GROUP.

4. Start to process the generated session in T.Code SM35.

Reward if usefull.

Gokul.

[Former Member]

hi,

http://www.sapbrainsonline.com/TUTORIALS/TECHNICAL/BDC_tutorial.html

https://www.sdn.sap.com/irj/sdn/wiki?path=/display/abap/bdc%2btutorial

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

Hope this helps, Do reward.

Edited by: Runal Singh on Mar 6, 2008 2:47 PM

[former_member259275]

hii!!! the info u have given is really useful thanx....but if i want to put directly into the database which is know as DI( Direct Input) would it be possible to create the batch input session for the DI input metthod

[Former Member]

Hi Shoaib,

I think thats a confusing stuff you need... Direct Input with Batch???

Direct Input means data will be directly updated in the Database, whereas Batch means you will create a session which can be executed any time.

If you need to create a Batch session and then execute it from the program itself then I have a code which will solve your purpose... Give me your mail ID.. I will send it to you..

Cheers!!

Lokesh