topic Re: BDC in Application Development and Automation Discussions

BDC

Former Member — Mon, 12 May 2008 08:04:53 GMT

I want to know how do we work with BDC in real time.

i got information tht most of times we work with application server concept.

can any one help me with good ex.

how do we work or upload data with application server .

please explain code step by step if possible.

and also try to differentiate the difference where we write code for presentationserver and application server uploads

Re: BDC

Former Member — Mon, 12 May 2008 08:11:41 GMT

Hi,

REPORT ztest MESSAGE-ID 00.

PARAMETER: p_file LIKE rlgrap-filename OBLIGATORY.

DATA: BEGIN OF data_tab OCCURS 0,

data(4096),

END OF data_tab.

DATA: BEGIN OF vendor_file_x OCCURS 0.

LFA1 Data

DATA: mandt LIKE bgr00-mandt,

lifnr LIKE blf00-lifnr,

anred LIKE blfa1-anred,

bahns LIKE blfa1-bahns,

bbbnr LIKE blfa1-bbbnr,

bbsnr LIKE blfa1-bbsnr,

begru LIKE blfa1-begru,

brsch LIKE blfa1-brsch,

bubkz LIKE blfa1-bubkz,

datlt LIKE blfa1-datlt,

dtams LIKE blfa1-dtams,

dtaws LIKE blfa1-dtaws,

erdat LIKE lfa1-erdat,

ernam LIKE lfa1-ernam,

esrnr LIKE blfa1-esrnr,

konzs LIKE blfa1-konzs,

ktokk LIKE lfa1-ktokk,

kunnr LIKE blfa1-kunnr,

land1 LIKE blfa1-land1,

lnrza LIKE blfa1-lnrza,

loevm LIKE blfa1-loevm,

name1 LIKE blfa1-name1,

name2 LIKE blfa1-name2,

name3 LIKE blfa1-name3,

name4 LIKE blfa1-name4,

ort01 LIKE blfa1-ort01,

ort02 LIKE blfa1-ort02,

pfach LIKE blfa1-pfach,

pstl2 LIKE blfa1-pstl2,

pstlz LIKE blfa1-pstlz,

regio LIKE blfa1-regio,

sortl LIKE blfa1-sortl,

sperr LIKE blfa1-sperr,

sperm LIKE blfa1-sperm,

spras LIKE blfa1-spras,

stcd1 LIKE blfa1-stcd1,

stcd2 LIKE blfa1-stcd2,

stkza LIKE blfa1-stkza,

stkzu LIKE blfa1-stkzu,

stras LIKE blfa1-stras,

telbx LIKE blfa1-telbx,

telf1 LIKE blfa1-telf1,

telf2 LIKE blfa1-telf2,

telfx LIKE blfa1-telfx,

teltx LIKE blfa1-teltx,

telx1 LIKE blfa1-telx1,

xcpdk LIKE lfa1-xcpdk,

xzemp LIKE blfa1-xzemp,

vbund LIKE blfa1-vbund,

fiskn LIKE blfa1-fiskn,

stceg LIKE blfa1-stceg,

stkzn LIKE blfa1-stkzn,

sperq LIKE blfa1-sperq,

adrnr LIKE lfa1-adrnr,

mcod1 LIKE lfa1-mcod1,

mcod2 LIKE lfa1-mcod2,

mcod3 LIKE lfa1-mcod3,

gbort LIKE blfa1-gbort,

gbdat LIKE blfa1-gbdat,

sexkz LIKE blfa1-sexkz,

kraus LIKE blfa1-kraus,

revdb LIKE blfa1-revdb,

qssys LIKE blfa1-qssys,

ktock LIKE blfa1-ktock,

pfort LIKE blfa1-pfort,

werks LIKE blfa1-werks,

ltsna LIKE blfa1-ltsna,

werkr LIKE blfa1-werkr,

plkal LIKE lfa1-plkal,

duefl LIKE lfa1-duefl,

txjcd LIKE blfa1-txjcd,

sperz LIKE lfa1-sperz,

scacd LIKE blfa1-scacd,

sfrgr LIKE blfa1-sfrgr,

lzone LIKE blfa1-lzone,

xlfza LIKE lfa1-xlfza,

dlgrp LIKE blfa1-dlgrp,

fityp LIKE blfa1-fityp,

stcdt LIKE blfa1-stcdt,

regss LIKE blfa1-regss,

actss LIKE blfa1-actss,

stcd3 LIKE blfa1-stcd3,

stcd4 LIKE blfa1-stcd4,

ipisp LIKE blfa1-ipisp,

taxbs LIKE blfa1-taxbs,

profs LIKE blfa1-profs,

stgdl LIKE blfa1-stgdl,

emnfr LIKE blfa1-emnfr,

lfurl LIKE blfa1-lfurl,

j_1kfrepre LIKE blfa1-j_1kfrepre,

j_1kftbus LIKE blfa1-j_1kftbus,

j_1kftind LIKE blfa1-j_1kftind,

confs LIKE lfa1-confs,

updat LIKE lfa1-updat,

uptim LIKE lfa1-uptim,

nodel LIKE blfa1-nodel.

DATA: END OF vendor_file_x.

FIELD-SYMBOLS: <field>,

<field_1>.

DATA: delim TYPE x VALUE '09'.

DATA: fld_chk(4096),

last_char,

quote_1 TYPE i,

quote_2 TYPE i,

fld_lth TYPE i,

columns TYPE i,

field_end TYPE i,

outp_rec TYPE i,

extras(3) TYPE c VALUE '.,"',

mixed_no(14) TYPE c VALUE '1234567890-.,"'.

OPEN DATASET p_file FOR INPUT.

DO.

READ DATASET p_file INTO data_tab-data.

IF sy-subrc = 0.

APPEND data_tab.

ELSE.

EXIT.

ENDIF.

ENDDO.

count columns in output structure

DO.

ASSIGN COMPONENT sy-index OF STRUCTURE vendor_file_x TO <field>.

IF sy-subrc 0.

EXIT.

ENDIF.

columns = sy-index.

ENDDO.

Assign elements of input file to internal table

CLEAR vendor_file_x.

IF columns > 0.

LOOP AT data_tab.

DO columns TIMES.

ASSIGN space TO <field>.

ASSIGN space TO <field_1>.

ASSIGN COMPONENT sy-index OF STRUCTURE vendor_file_x TO <field>.

SEARCH data_tab-data FOR delim.

IF sy-fdpos > 0.

field_end = sy-fdpos + 1.

ASSIGN data_tab-data(sy-fdpos) TO <field_1>.

Check that numeric fields don't contain any embedded " or ,

IF <field_1> CO mixed_no AND

<field_1> CA extras.

TRANSLATE <field_1> USING '" , '.

CONDENSE <field_1> NO-GAPS.

ENDIF.

If first and last characters are '"', remove both.

fld_chk = <field_1>.

IF NOT fld_chk IS INITIAL.

fld_lth = strlen( fld_chk ) - 1.

MOVE fld_chk+fld_lth(1) TO last_char.

IF fld_chk(1) = '"' AND

last_char = '"'.

MOVE space TO fld_chk+fld_lth(1).

SHIFT fld_chk.

MOVE fld_chk TO <field_1>.

ENDIF. " for if fld_chk(1)=" & last_char="

ENDIF. " for if not fld_chk is initial

Replace "" with "

DO.

IF fld_chk CS '""'.

quote_1 = sy-fdpos.

quote_2 = sy-fdpos + 1.

MOVE fld_chkquote_2 TO fld_chkquote_1.

ELSE.

MOVE fld_chk TO <field_1>.

EXIT.

ENDIF.

ENDDO.

<field> = <field_1>.

ELSE.

field_end = 1.

ENDIF.

SHIFT data_tab-data LEFT BY field_end PLACES.

ENDDO.

APPEND vendor_file_x.

CLEAR vendor_file_x.

ENDLOOP.

ENDIF.

CLEAR data_tab.

REFRESH data_tab.

FREE data_tab.

[/code

Regards,

Kumar

Re: BDC

Former Member — Mon, 12 May 2008 08:17:02 GMT

For BDC, have a look at below links:

http://help.sap.com/saphelp_erp2005/helpdata/en/fa/097015543b11d1898e0000e8322d00/frameset.htm

http://www.sap-img.com/abap/learning-bdc-programming.htm

http://sapabap.iespana.es/sap/info/bdc/bdc01.htm

http://myweb.dal.ca/hchinni/sap/bdc_home.htm

https://www.sdn.sap.com/irj/sdn/wiki?path=/display/home/bdc&;

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://www.sap-img.com/abap/learning-bdc-

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

http://abapprogramming.blogspot.com/search/label/ABAP%20BDC%20COMPLETE

File Upload and Download from presentation Server:

You can use FMS GUI_UPLOAD and GUI_DOWNLOAD.

http://www.sapdevelopment.co.uk/file/file_updown.htm

But above FMs do not work in Background mode. Hence for File Upload and Download need to be handled uisng DATASET functions.

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

I hope it helps.

Best Regards,

Vibha

Please mark all the helpful answers

Re: BDC

Former Member — Mon, 12 May 2008 08:39:29 GMT

hi,

when the flat files are present on the presentation server the data is uploaded by using some function modules like gui_upload for text files TEXT_CONVERT_XLS_TO_SAP for xls files .

for uploading the flat files present on from appilication server

some syntaxes like open dataset, read dataset and close dataset are used.

we can transfer the flat file present on the presentation server

to appilication server using the tcode CG3Z

for example:

types: begin of ty_mara,

declare some fileds

end of ty_mara.

data: t_mara type table of ty_mara,

w_mara type ty_mara,

i_bdcdata type table of i_bdcdata,

w_bdcdata type i_bdcdata.

SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETERS : P_SRFILE type ibipparms-path.

SELECTION-SCREEN : END OF BLOCK B1.

at selection-screen on value-request for p_srfile.

perform get_file using p_srfile.

perform dataset using p_srfile.

populate the bdcdata

after populating the data use either call transaction or session method to update the data to the database.

FORM get_file USING P_P_SRFILE type ibipparms-path.

CALL FUNCTION 'F4_DXFILENAME_TOPRECURSION'

EXPORTING

I_LOCATION_FLAG = 'A'

I_SERVER = '?'

I_PATH = SEARCH_DIR

FILEMASK = C_FNH_MASK

FILEOPERATION = 'R'

IMPORTING

O_LOCATION_FLAG =
O_SERVER =

O_PATH = file_path

ABEND_FLAG =

EXCEPTIONS

RFC_ERROR = 1

ERROR_WITH_GUI = 2

OTHERS = 3

IF SY-SUBRC eq 0.

p_p_srfile = file_path.

endif.

ENDFORM. " get_file

FORM dataset USING P_P_SRFILE type ibipparms-path.

OPEN DATASET FILE_PATH IN TEXT MODE FOR INPUT ENCODING DEFAULT.

DO.

READ DATASET FILE_PATH INTO w_mara.

IF SY-SUBRC NE 0.

EXIT.

ENDIF.

APPEND w_maraTO t_mara.

ENDDO.

CLOSE DATASET FILE_PATH.

thanks and rewards