topic Re: BDC's in Application Development and Automation Discussions

BDC's

Former Member — Fri, 27 Jan 2006 05:49:15 GMT

I am very new to ABAP...Can anyone send me sample codes for BDC both call transaction & Session...Pls its urgent

Re: BDC's

Former Member — Fri, 27 Jan 2006 05:51:24 GMT

Hi ,

check the following example..

http://www.sap-img.com/abap/bdc-example-using-table-control-in-bdc.htm

regards

vijay

Re: BDC's

Former Member — Fri, 27 Jan 2006 05:52:25 GMT

Hi,

Check out this links for code samples:

For adding data to a session check on to this:

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

Using call transaction for data transfer:

http://help.sap.com/saphelp_erp2005/helpdata/en/fa/09715a543b11d1898e0000e8322d00/frameset.htm

Hope this helps u,

Regards,

Nagarajan.

Message was edited by: Nagarajan Kumarappan

Re: BDC's

Former Member — Fri, 27 Jan 2006 05:55:02 GMT

hi,

check this thread also..

regards

vijay

Re: BDC's

Former Member — Fri, 27 Jan 2006 05:57:44 GMT

include bdcrecx1.

parameters: dataset(132) lower case.
data: begin of record occurs 0,
* 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),
* data element: MTPOS_MARA
        MTPOS_MARA_007(004),
      end of record.

*** End generated data section ***

start-of-selection.

open dataset dataset for input in text mode encoding DEFAULT.

do.

read dataset dataset into record.

if sy-subrc ne 0.
exit.
endif.

*loop at record.
*
*read dataset dataset into record.
*if sy-subrc <> 0. exit. endif.

perform bdc_dynpro      using 'SAPLMGMM' '0060'.
perform bdc_field       using 'BDC_CURSOR'
                              'RMMG1-MATNR'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'RMMG1-MATNR'
                              record-MATNR_001.
perform bdc_field       using 'RMMG1-MBRSH'
                              record-MBRSH_002.
perform bdc_field       using 'RMMG1-MTART'
                              record-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)'
                              record-KZSEL_01_004.
perform bdc_dynpro      using 'SAPLMGMM' '4004'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-MAKTX_005.
perform bdc_field       using 'BDC_CURSOR'
                              'MARA-MEINS'.
perform bdc_field       using 'MARA-MEINS'
                              record-MEINS_006.
perform bdc_field       using 'MARA-MTPOS_MARA'
                              record-MTPOS_MARA_007.
perform bdc_dynpro      using 'SAPLSPO1' '0300'.
perform bdc_field       using 'BDC_OKCODE'
                              '=YES'.
perform bdc_transaction using 'MM01'.
*
*endloop.
*

enddo.

close dataset dataset.
perform close_group.

Re: BDC's

Former Member — Fri, 27 Jan 2006 06:00:40 GMT

Instead of asking for src code, you can try it out yourself.

Go to transaction shdb and record any transaction. and Generate code. Then you can modify the code generated so that you can achieve your desired functionality Using datasets.

Re: BDC's

Former Member — Fri, 27 Jan 2006 06:01:51 GMT

hi rak,

hope this works...

the code for BDC is generated AUTOMATICALLY .. it is enough if you create a new recording in the transaction <b>shdb</b> and enter the transaction to be recorded..

anyways..here is one sample code

REPORT YUSERMOD .

TABLES: USR02.

DATA: BEGIN OF BDC_TAB1 OCCURS 5.

INCLUDE STRUCTURE BDCDATA.

DATA: END OF BDC_TAB1.

DATA: USER(12) VALUE 'DDDDDDDD',

INI_PWD(8) VALUE 'INIT',

DIALOG VALUE 'X',

PROFILE1(12) VALUE 'SAP_ALL',

PROFILE2(12) VALUE 'SAP_NEW',

FULL_NAME(30) VALUE 'Full name',

PRINT_IMMED VALUE 'X',

PRINTER_NAME(4) VALUE 'SISK',

PARAMETER(3) VALUE 'RID',

PAR_VAL(18) VALUE 'YUSERADD'.

START-OF-SELECTION.

PERFORM CREATE_USER.

CALL TRANSACTION 'SU01' USING BDC_TAB1 MODE 'N' UPDATE 'S'.

PERFORM ADD_ADDRESS_DATA.

CALL TRANSACTION 'SU01' USING BDC_TAB1 MODE 'N' UPDATE 'S'.

PERFORM ADD_DEFAULTS.

CALL TRANSACTION 'SU01' USING BDC_TAB1 MODE 'N' UPDATE 'S'.

PERFORM ADD_PARAMS.

CALL TRANSACTION 'SU01' USING BDC_TAB1 MODE 'N' UPDATE 'S'.

----

FORM CREATE_USER *

----

........ *

----

FORM CREATE_USER.

REFRESH BDC_TAB1.

CLEAR BDC_TAB1.

**************************************************1

MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,

'200' TO BDC_TAB1-DYNPRO,

'X' TO BDC_TAB1-DYNBEGIN.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'XU200-XUSER' TO BDC_TAB1-FNAM,

USER TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,

'/6' TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

**************************************************2

MOVE: 'SAPLSUSB' TO BDC_TAB1-PROGRAM,

'0705' TO BDC_TAB1-DYNPRO,

'X' TO BDC_TAB1-DYNBEGIN.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'XU213-BCODE' TO BDC_TAB1-FNAM,

INI_PWD TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'XU213-BCODE2' TO BDC_TAB1-FNAM,

INI_PWD TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'XU213-DIA' TO BDC_TAB1-FNAM,

DIALOG TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'XU213-PROFILE(1)' TO BDC_TAB1-FNAM,

PROFILE1 TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'XU213-PROFILE(2)' TO BDC_TAB1-FNAM,

PROFILE2 TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,

'/5' TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

**************************************************3

MOVE: 'SAPLSUSB' TO BDC_TAB1-PROGRAM,

'701' TO BDC_TAB1-DYNPRO,

'X' TO BDC_TAB1-DYNBEGIN.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,

'CONT' TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

**************************************************4

MOVE: 'SAPLSUSB' TO BDC_TAB1-PROGRAM,

'702' TO BDC_TAB1-DYNPRO,

'X' TO BDC_TAB1-DYNBEGIN.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,

'CONT' TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

**************************************************5

MOVE: 'SAPLSUSB' TO BDC_TAB1-PROGRAM,

'703' TO BDC_TAB1-DYNPRO,

'X' TO BDC_TAB1-DYNBEGIN.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,

'/12' TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

**************************************************6

MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,

'200' TO BDC_TAB1-DYNPRO,

'X' TO BDC_TAB1-DYNBEGIN.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,

'/3' TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

ENDFORM.

----

FORM GENERATE_BDC_DATA_CR *

----

........ *

----

FORM ADD_ADDRESS_DATA.

REFRESH BDC_TAB1.

CLEAR BDC_TAB1.

**************************************************1

MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,

'200' TO BDC_TAB1-DYNPRO,

'X' TO BDC_TAB1-DYNBEGIN.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'XU200-XUSER' TO BDC_TAB1-FNAM,

USER TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,

'/18' TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

**************************************************2

MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,

'320' TO BDC_TAB1-DYNPRO,

'X' TO BDC_TAB1-DYNBEGIN.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'USR03-NAME1' TO BDC_TAB1-FNAM,

FULL_NAME TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,

'/11' TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,

'320' TO BDC_TAB1-DYNPRO,

'X' TO BDC_TAB1-DYNBEGIN.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,

'/3' TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

**************************************************3

MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,

'200' TO BDC_TAB1-DYNPRO,

'X' TO BDC_TAB1-DYNBEGIN.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,

'/3' TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

ENDFORM.

----

FORM ADD_ADDRESS_DATA *

----

........ *

----

FORM ADD_DEFAULTS.

REFRESH BDC_TAB1.

CLEAR BDC_TAB1.

**************************************************1

MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,

'200' TO BDC_TAB1-DYNPRO,

'X' TO BDC_TAB1-DYNBEGIN.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'XU200-XUSER' TO BDC_TAB1-FNAM,

USER TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,

'/17' TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

**************************************************2

MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,

'310' TO BDC_TAB1-DYNPRO,

'X' TO BDC_TAB1-DYNBEGIN.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'USR01-SPLD' TO BDC_TAB1-FNAM,

PRINTER_NAME TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'XU310-SPDB1' TO BDC_TAB1-FNAM,

PRINT_IMMED TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,

'/11' TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,

'320' TO BDC_TAB1-DYNPRO,

'X' TO BDC_TAB1-DYNBEGIN.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,

'/3' TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

**************************************************3

MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,

'200' TO BDC_TAB1-DYNPRO,

'X' TO BDC_TAB1-DYNBEGIN.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,

'/3' TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

ENDFORM.

----

FORM ADD_DEFAULTS *

----

........ *

----

FORM ADD_PARAMS.

REFRESH BDC_TAB1.

CLEAR BDC_TAB1.

**************************************************1

MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,

'200' TO BDC_TAB1-DYNPRO,

'X' TO BDC_TAB1-DYNBEGIN.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'XU200-XUSER' TO BDC_TAB1-FNAM,

USER TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,

'/19' TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

**************************************************2

MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,

'350' TO BDC_TAB1-DYNPRO,

'X' TO BDC_TAB1-DYNBEGIN.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'XU350-PARID(1)' TO BDC_TAB1-FNAM,

PARAMETER TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'XU350-PARVA(1)' TO BDC_TAB1-FNAM,

PAR_VAL TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,

'/11' TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,

'320' TO BDC_TAB1-DYNPRO,

'X' TO BDC_TAB1-DYNBEGIN.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,

'/3' TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

**************************************************3

MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,

'200' TO BDC_TAB1-DYNPRO,

'X' TO BDC_TAB1-DYNBEGIN.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,

'/3' TO BDC_TAB1-FVAL.

APPEND BDC_TAB1.CLEAR BDC_TAB1.

ENDFORM.

ps : reward points if helpful<b></b>

Re: BDC's

jayanthi_jayaraman — Fri, 27 Jan 2006 06:02:51 GMT

Hi,

Check this link and kindly reward points by clicking the star on the left of reply,if it helps.

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

Re: BDC's

Former Member — Fri, 27 Jan 2006 06:10:42 GMT

have you trried the following site?

http://www.sapgenie.com/abap/example_code.htm

it has whole list of sample codes

bye

ajay