topic Re: BDC PROGRAM in Application Development and Automation Discussions

BDC PROGRAM

Former Member — Wed, 09 Jan 2008 06:07:52 GMT

Hi to all

I'm new to BDC Progaram

can u tell me how to write a

BDC program to upload purchase order data from legacy system.

Re: BDC PROGRAM

Former Member — Wed, 09 Jan 2008 08:45:53 GMT

Hi, this may help you.

by using some of functionModules like

in both AS,PS we have to create internal table

1)UP-LOAD

2)DOWN-LOAD these are used if the data is in Presentation

Server

3)READ-DATASET

4)TRANSFER these are used if the data is in Application

Server

(Or)

By using Manualprogramming

like BDCDATA structure

there we have fields like program,dynpro,dynbegin,fname,fval

Regards

Madhu

Re: BDC PROGRAM

Former Member — Wed, 09 Jan 2008 08:48:56 GMT

Check the links below:

http://abapliveinfo.blogspot.com/2007/12/uploading-material-master-data-using_28.html

http://www.allinterview.com/showanswers/23650.html

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

Regards.

Re: BDC PROGRAM

Former Member — Wed, 09 Jan 2008 10:14:46 GMT

Hi Viswanath,

First i will explain the procedure step by step and will send a sample code plz check it once ok..And also i will attach a flat file at the end of SAMPLE CODE CHECK IT ONCE OK..

Steps:

1.Bulid an internal table first according to ur flat file fields.

2.select the flat file by using PARAMETER.

3.And assign that file path to GUI_UPLOAD function module.

4.Call BDC_OPEN_GROUP is used to open the session.

5.loop that flat file data and palce BDC_INSERT funtion module in that loop for uploading data into database table

6.After loop call BDC_CLOSE_GROUP to close the session.

SAMPLE CODE:

REPORT ybdc_session_mm01 NO STANDARD PAGE HEADING LINE-SIZE 255.

Global Structure for BDC Data

DATA: it_bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.

Internal Table

DATA: BEGIN OF itab OCCURS 0,

mbrsh LIKE rmmg1-mbrsh,

mtart LIKE rmmg1-mtart,

maktx LIKE makt-maktx,

meins LIKE mara-meins,

END OF itab.

Upload the flat file

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename =

'C:\Documents and Settings\Compaq_Owner\Desktop\satish\mm01.txt'

filetype = 'ASC'

has_field_separator = 'X'

HEADER_LENGTH = 0

READ_BY_LINE = 'X'

DAT_MODE = ' '

IMPORTING

FILELENGTH =

HEADER =

TABLES

data_tab = itab.

EXCEPTIONS

FILE_OPEN_ERROR = 1

FILE_READ_ERROR = 2

NO_BATCH = 3

GUI_REFUSE_FILETRANSFER = 4

INVALID_TYPE = 5

NO_AUTHORITY = 6

UNKNOWN_ERROR = 7

BAD_DATA_FORMAT = 8

HEADER_NOT_ALLOWED = 9

SEPARATOR_NOT_ALLOWED = 10

HEADER_TOO_LONG = 11

UNKNOWN_DP_ERROR = 12

ACCESS_DENIED = 13

DP_OUT_OF_MEMORY = 14

DISK_FULL = 15

DP_TIMEOUT = 16

OTHERS = 17

IF sy-subrc 0.

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

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

ENDIF.

Session Method Starts

BDC_OPEN_GROUP

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

DEST = FILLER8

GROUP = 'ychinnu'

HOLDDATE = FILLER8

KEEP = 'X'

USER = SY-UNAME

RECORD = FILLER1

PROG = SY-CPROG

IMPORTING

QID =

EXCEPTIONS

CLIENT_INVALID = 1

DESTINATION_INVALID = 2

GROUP_INVALID = 3

GROUP_IS_LOCKED = 4

HOLDDATE_INVALID = 5

INTERNAL_ERROR = 6

QUEUE_ERROR = 7

RUNNING = 8

SYSTEM_LOCK_ERROR = 9

USER_INVALID = 10

OTHERS = 11

IF sy-subrc 0.

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

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

ENDIF.

Create BDCDATA Structure

*include bdcrecx1.

START-OF-SELECTION.

PERFORM open_group.

loop at itab.

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

itab-mbrsh.

PERFORM bdc_field USING 'RMMG1-MTART'

itab-mtart.

After enterning MBRSH,MTART we press enter

PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'. "press Enter

PERFORM bdc_field USING 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=ENTR'.

View selection (Basic data1)

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(01)'"view selection

'X'.

Select Tick Mark (ok)

PERFORM bdc_dynpro USING 'SAPLMGMM' '4004'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=BU'.

PERFORM bdc_field USING 'MAKT-MAKTX'

itab-maktx.

PERFORM bdc_field USING 'BDC_CURSOR'

'MARA-MEINS'.

PERFORM bdc_field USING 'MARA-MEINS'

itab-meins.

Finally after filling the data we save the data.

PERFORM bdc_field USING 'MARA-MTPOS_MARA' "For saving

'NORM'.

PERFORM bdc_transaction USING 'MM01'.

PERFORM close_group.

BDC_INSERT

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = 'MM01'

POST_LOCAL = NOVBLOCAL

PRINTING = NOPRINT

SIMUBATCH = ' '

CTUPARAMS = ' '

TABLES

dynprotab = it_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.

Refresh BDCDATA

refresh it_bdcdata.

endloop.

Closing BDC Group

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

it_bdcdata-program = program.

it_bdcdata-dynpro = dynpro.

it_bdcdata-dynbegin = 'X'.

APPEND it_bdcdata.

ENDFORM. "BDC_DYNPRO

Insert field *

FORM bdc_field USING fnam fval.

IF FVAL NODATA.

CLEAR it_bdcdata.

it_bdcdata-fnam = fnam.

it_bdcdata-fval = fval.

APPEND it_bdcdata.

ENDIF.

ENDFORM. "BDC_FIELD

Flat File

*M FERT IRON KG

*M ROH STEEL KG

*M HALB IRON KG

Award points if helpful.

Kiran Kumar.G.A

Re: BDC PROGRAM

Former Member — Wed, 09 Jan 2008 12:24:56 GMT

This is the process how to write a converasion program...

1.Recording using SHDB.

( First record by giving some sample record to your transaction.later save that recording)

2.Later u press Shift+F5 or you can press program button on the Toolbar.

3.U can generate a program by 1.Reading from a file

2.Transfer from recording

4.A program will be generated.

5.later u can make little modifications with that and use it foe Call transaction or Session method.

In the program..

1.u need to have internal tables to collect data into from flat file.

2.u need to have one more internal table of structure BDCDATA to pass data to your transaction.

3.u need to use GUI_UPLOAD (for text files) and ALSM_EXCEL_TO_INTERNAL_TABLE (for excel files) to upload data from flat file to internal tables.

(Flat file may be text file or Excel file)

4.later based on your processyou should proceed.

if session..

1.BDC_OPEN_GROUP (For creating session)

2.BDC_INSERT (Processing data )

3.BDC_CLOSE_GROUP (closing session)

if you don't use BDC_CLOSE_GROUP, session will not be created..

if call transaction..

just populate BDCDATA table and at the end write this statement

CALL TRANSACTION 'transaction codes' USING BDCDATA MODE 'A/E/N' update 'S/A' messages into BDCMSGCOLL.