topic Re: regarding bdc in Application Development and Automation Discussions

regarding bdc

Former Member — Fri, 14 Sep 2007 08:19:39 GMT

hi experts,

plz tell me how to upload data through bdc using transction mm01..can u tell me the whole procedure with examples

Re: regarding bdc

Former Member — Fri, 14 Sep 2007 08:24:19 GMT

HI,

Go to T-code SHDB.And record your processing.After that save that and it will create a program for U.

After that create a new Z program.Make use of FM 'GUI_UPLOAD" to get the excel sheet data into ur internal table.Then by using the above program do the remain coding.

Please do reply if u have any problems.

Thanks,CSR.

Message was edited by:

Alvaro Tejada Galindo

Re: regarding bdc

Former Member — Fri, 14 Sep 2007 08:33:43 GMT

Hi,

Refer

https://forums.sdn.sap.com/click.jspa?searchID=5247133&messageID=3473077

Regards

Re: regarding bdc

Former Member — Fri, 14 Sep 2007 09:23:57 GMT

hii...

u should first go to the SHDB transaction and do the recording first by filling the required fields.

it will create ur program.

see the example below..

report ZDA_BDC_MM01_3

no standard page heading line-size 255.

include bdcrecx1.

PARAMETERS: FLNAME TYPE RLGRAP-FILENAME OBLIGATORY.

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: XFELD

KZSEL_04_005(001),

data element: MAKTX

MAKTX_006(040),

data element: MEINS

MEINS_007(003),

data element: MATKL

MATKL_008(009),

data element: MAKTX

MAKTX_009(040),

data element: MEINS

MEINS_010(003),

data element: MATKL

MATKL_011(009),

end of record.

End generated data section ***

AT SELECTION-SCREEN ON VALUE-REQUEST FOR FLNAME.

PERFORM GET_FILENAME.

start-of-selection.

*perform open_dataset using dataset.

perform open_group.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = 'FLNAME'

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 = record

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.

*do.

*read dataset dataset into record.

*if sy-subrc <> 0. exit. endif.

LOOP AT record.

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(04)'.

perform bdc_field using 'BDC_OKCODE'

'=ENTR'.

perform bdc_field using 'MSICHTAUSW-KZSEL(01)'

record-KZSEL_01_004.

perform bdc_field using 'MSICHTAUSW-KZSEL(04)'

record-KZSEL_04_005.

perform bdc_dynpro using 'SAPLMGMM' '0080'.

perform bdc_field using 'BDC_CURSOR'

'RMMG1-WERKS'.

perform bdc_field using 'BDC_OKCODE'

'=ENTR'.

perform bdc_dynpro using 'SAPLMGMM' '4004'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'MAKT-MAKTX'

record-MAKTX_006.

perform bdc_field using 'BDC_CURSOR'

'MARA-MATKL'.

perform bdc_field using 'MARA-MEINS'

record-MEINS_007.

perform bdc_field using 'MARA-MATKL'

record-MATKL_008.

perform bdc_dynpro using 'SAPLMGMM' '4000'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'BDC_CURSOR'

'MAKT-MAKTX'.

perform bdc_field using 'MAKT-MAKTX'

record-MAKTX_009.

perform bdc_field using 'MARA-MEINS'

record-MEINS_010.

perform bdc_field using 'MARA-MATKL'

record-MATKL_011.

perform bdc_dynpro using 'SAPLSPO1' '0300'.

perform bdc_field using 'BDC_OKCODE'

'=YES'.

perform bdc_transaction using 'MM01'.

ENDLOOP.

perform close_group.

*perform close_dataset using dataset.

FORM GET_FILENAME .

CALL FUNCTION 'F4_FILENAME'

IMPORTING

FILE_NAME = FLNAME.

ENDFORM. " GET_FILENAME

Re: regarding bdc

Former Member — Sat, 15 Sep 2007 02:01:48 GMT

Creating an ABAP program from a BDC recording

Step 1: Execute transaction recorder, transaction SHDB or recording button via transaction SM35.

Step 2: Enter name for recording (can be anything)

Step 3: Enter transaction to be executed

Step 4: The transaction will now be executed, simply perform the actions you want to record. This example changes the Net price of item 1 on a purchase order (sets it to 20).

Step 5:Once you have finished the recording and selected the save button or exited the transaction you Will be presented with the following information. This details the screens and fields that have been processed during the recording and will be used as a basis to create BDC ABAP program.

Source Code for BDC using Call Transaction

*Code used to create BDC

&----

*& Report ZBDC_EXAMPLE *

*& *

&----

*& Example BDC program, which updates net price of item 00010 of a *

*& particular Purchase order(EBELN). *

*& *

&----

REPORT ZBDC_EXAMPLE NO STANDARD PAGE HEADING

LINE-SIZE 132.

*----

Data declaration

TABLES: ekko, ekpo.

TYPES: BEGIN OF t_ekko,

ebeln TYPE ekko-ebeln,

waers TYPE ekko-waers,

netpr TYPE ekpo-netpr,

err_msg(73) TYPE c,

END OF t_ekko.

DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,

wa_ekko TYPE t_ekko,

it_error TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,

wa_error TYPE t_ekko,

it_success TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,

wa_success TYPE t_ekko.

DATA: w_textout LIKE t100-text.

DATA: gd_update TYPE i,

gd_lines TYPE i.

*Used to store BDC data

DATA: BEGIN OF bdc_tab OCCURS 0.

INCLUDE STRUCTURE bdcdata.

DATA: END OF bdc_tab.

*Used to stores error information from CALL TRANSACTION Function Module

DATA: BEGIN OF messtab OCCURS 0.

INCLUDE STRUCTURE bdcmsgcoll.

DATA: END OF messtab.

*----

*Screen declaration

SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME

TITLE text-001. "Purchase order Num

SELECT-OPTIONS: so_ebeln FOR ekko-ebeln OBLIGATORY.

SELECTION-SCREEN END OF BLOCK block1.

SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME

TITLE text-002. "New NETPR value

PARAMETERS: p_newpr(14) TYPE c obligatory. "LIKE ekpo-netpr.

SELECTION-SCREEN END OF BLOCK block2.

************************************************************************

*START-OF-SELECTION

START-OF-SELECTION.

Retrieve data from Purchase order table(EKKO)

SELECT ekko_{ebeln ekko}waers ekpo~netpr

INTO TABLE it_ekko

FROM ekko AS ekko INNER JOIN ekpo AS ekpo

ON ekpo_{ebeln EQ ekko}ebeln

WHERE ekko~ebeln IN so_ebeln AND

ekpo~ebelp EQ '10'.

************************************************************************

*END-OF-SELECTION

END-OF-SELECTION.

Check data has been retrieved ready for processing

DESCRIBE TABLE it_ekko LINES gd_lines.

IF gd_lines LE 0.

Display message if no data has been retrieved

MESSAGE i003(zp) WITH 'No Records Found'(001).

LEAVE TO SCREEN 0.

ELSE.

Update Customer master data (instalment text)

LOOP AT it_ekko INTO wa_ekko.

PERFORM bdc_update.

ENDLOOP.

Display message confirming number of records updated

IF gd_update GT 1.

MESSAGE i003(zp) WITH gd_update 'Records updated'(002).

ELSE.

MESSAGE i003(zp) WITH gd_update 'Record updated'(003).

ENDIF.

Display Success Report

Check Success table

DESCRIBE TABLE it_success LINES gd_lines.

IF gd_lines GT 0.

Display result report column headings

PERFORM display_column_headings.

Display result report

PERFORM display_report.

ENDIF.

Display Error Report

Check errors table

DESCRIBE TABLE it_error LINES gd_lines.

If errors exist then display errors report

IF gd_lines GT 0.

Display errors report

PERFORM display_error_headings.

PERFORM display_error_report.

ENDIF.

&----

*& Form DISPLAY_COLUMN_HEADINGS

&----

Display column headings

FORM display_column_headings.

WRITE:2 ' Success Report '(014) COLOR COL_POSITIVE.

SKIP.

WRITE:2 'The following records updated successfully:'(013).

WRITE:/ sy-uline(42).

FORMAT COLOR COL_HEADING.

WRITE:/ sy-vline,

(10) 'Purchase Order'(004), sy-vline,

(11) 'Old Netpr'(005), sy-vline,

(11) 'New Netpr'(006), sy-vline.

WRITE:/ sy-uline(42).

ENDFORM. " DISPLAY_COLUMN_HEADINGS

&----

*& Form BDC_UPDATE

&----

Populate BDC table and call transaction ME22

FORM bdc_update.

PERFORM dynpro USING:

'X' 'SAPMM06E' '0105',

' ' 'BDC_CURSOR' 'RM06E-BSTNR',

' ' 'RM06E-BSTNR' wa_ekko-ebeln,

' ' 'BDC_OKCODE' '/00', "OK code

'X' 'SAPMM06E' '0120',

' ' 'BDC_CURSOR' 'EKPO-NETPR(01)',

' ' 'EKPO-NETPR(01)' p_newpr,

' ' 'BDC_OKCODE' '=BU'. "OK code

Call transaction to update customer instalment text

CALL TRANSACTION 'ME22' USING bdc_tab MODE 'N' UPDATE 'S'

MESSAGES INTO messtab.

Check if update was succesful

IF sy-subrc EQ 0.

ADD 1 TO gd_update.

APPEND wa_ekko TO it_success.

ELSE.

Retrieve error messages displayed during BDC update

LOOP AT messtab WHERE msgtyp = 'E'.

Builds actual message based on info returned from Call transaction

CALL FUNCTION 'MESSAGE_TEXT_BUILD'

EXPORTING

msgid = messtab-msgid

msgnr = messtab-msgnr

msgv1 = messtab-msgv1

msgv2 = messtab-msgv2

msgv3 = messtab-msgv3

msgv4 = messtab-msgv4

IMPORTING

message_text_output = w_textout.

ENDLOOP.

Build error table ready for output

wa_error = wa_ekko.

wa_error-err_msg = w_textout.

APPEND wa_error TO it_error.

CLEAR: wa_error.

ENDIF.

Clear bdc date table

CLEAR: bdc_tab.

REFRESH: bdc_tab.

ENDFORM. " BDC_UPDATE

FORM DYNPRO *

stores values to bdc table *

--> DYNBEGIN *

--> NAME *

--> VALUE *

FORM dynpro USING dynbegin name value.

IF dynbegin = 'X'.

CLEAR bdc_tab.

MOVE: name TO bdc_tab-program,

value TO bdc_tab-dynpro,

'X' TO bdc_tab-dynbegin.

APPEND bdc_tab.

ELSE.

CLEAR bdc_tab.

MOVE: name TO bdc_tab-fnam,

value TO bdc_tab-fval.

APPEND bdc_tab.

ENDIF.

ENDFORM. " DYNPRO

&----

*& Form DISPLAY_REPORT

&----

Display Report

FORM display_report.

FORMAT COLOR COL_NORMAL.

Loop at data table

LOOP AT it_success INTO wa_success.

WRITE:/ sy-vline,

(10) wa_success-ebeln, sy-vline,

(11) wa_success-netpr CURRENCY wa_success-waers, sy-vline,

(11) p_newpr, sy-vline.

CLEAR: wa_success.

ENDLOOP.

WRITE:/ sy-uline(42).

REFRESH: it_success.

FORMAT COLOR COL_BACKGROUND.

ENDFORM. " DISPLAY_REPORT

&----

*& Form DISPLAY_ERROR_REPORT

&----

Display error report data

FORM display_error_report.

LOOP AT it_error INTO wa_error.

WRITE:/ sy-vline,

(10) wa_error-ebeln, sy-vline,

(11) wa_error-netpr CURRENCY wa_error-waers, sy-vline,

(73) wa_error-err_msg, sy-vline.

ENDLOOP.

WRITE:/ sy-uline(104).

REFRESH: it_error.

ENDFORM. " DISPLAY_ERROR_REPORT

&----

*& Form DISPLAY_ERROR_HEADINGS

&----

Display error report headings

FORM display_error_headings.

SKIP.

WRITE:2 ' Error Report '(007) COLOR COL_NEGATIVE.

SKIP.

WRITE:2 'The following records failed during update:'(008).

WRITE:/ sy-uline(104).

FORMAT COLOR COL_HEADING.

WRITE:/ sy-vline,

(10) 'Purchase Order'(009), sy-vline,

(11) 'Netpr'(010), sy-vline,

(73) 'Error Message'(012), sy-vline.

WRITE:/ sy-uline(104).

FORMAT COLOR COL_NORMAL.

ENDFORM. " DISPLAY_ERROR_HEADINGS

Date format for entry into BDC

Because a date field is stored and displayed in different formats within SAP the following code is

required to convert the date into a format which can be input onto a screen field.

Date field

data: ld_date(8).

ld_date(2) = sy-datum+6(2).

ld_date2(2) = sy-datum4(2).

ld_date+4(4) = sy-datum(4).