BDC Program

[Former Member]

Could somebody provide me with a sample BDC program???? it would be really helpful.....

[Former Member]

Check these links. U have sample code..

http://sap.niraj.tripod.com/id12.html

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

Regards,

Maha

[Former Member]

Hi Jenny,

Refer this sample code for BDC 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.

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

Naveen.

[Former Member]

&----

---

*& Report ZTRAINEE15_BDC *

*& *

&----

---

*& *

*& *

&----

---

REPORT ztrainee15_bdc

NO STANDARD PAGE HEADING LINE-SIZE 255.

DATA : BEGIN OF itab OCCURS 10,

orderno LIKE vbak-vbeln,

itemno LIKE vbap-posnr,

reason LIKE vbap-abgru,

END OF itab.

DATA : BEGIN OF it_bdc OCCURS 10.

INCLUDE STRUCTURE bdcdata.

DATA : END OF it_bdc.

DATA : filename TYPE string.

DATA: it_bdcmsgcall type standard table of BDCMSGCOLL WITH HEADER LINE.

*DATA: it_bdcdata type standard table of BDCDATA WITH HEADER LINE.

----

---

SELECTION SCREEN -

---

SELECTION-SCREEN BEGIN OF BLOCK b1.

PARAMETER: p_file TYPE rlgrap-filename,

rjct_itm RADIOBUTTON GROUP g1,

add_item RADIOBUTTON GROUP g1.

SELECTION-SCREEN END OF BLOCK b1.

----

---

GUI FOR PATH FILE -

---

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

CALL FUNCTION 'F4_FILENAME'

EXPORTING

program_name = syst-cprog

dynpro_number = syst-dynnr

field_name = ' '

IMPORTING

file_name = p_file.

----

---

UPLOADING FILE -

---

START-OF-SELECTION.

filename = p_file.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = filename

filetype = 'ASC'

HAS_FIELD_SEPARATOR = ' '

• HEADER_LENGTH = 0

• READ_BY_LINE = 'X'

• DAT_MODE = ' '

• CODEPAGE = ' '

• IGNORE_CERR = ABAP_TRUE

• REPLACEMENT = '#'

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

*AT SELECTION-SCREEN ON RADIOBUTTON GROUP g1.

• CASE 'rjct_itm'.

• WHEN 'X'.

----

---

PASSING DATA -

---

----

---

program name, screen no. -

---

LOOP AT itab.

• clear: it_bdc, it_bdc[].

PERFORM bdc_dynpro USING 'SAPMV45A' '102' 'X'.

PERFORM bdc_field USING 'BDC_CURSOR' 'VBAK-VBELN'.

PERFORM bdc_field USING 'BDC_OKCODE' '=SUCH'.

PERFORM bdc_field USING 'VBAK-VBELN' itab-orderno.

PERFORM bdc_dynpro USING 'SAPMV45A' '4001' 'X'.

PERFORM bdc_field USING 'BDC_CURSOR' 'VBAP-POSNR'.

PERFORM bdc_field USING 'BDC_OKCODE' '=ITEM'.

PERFORM bdc_field USING 'VBAP-POSNR' itab-itemno.

PERFORM bdc_dynpro USING 'SAPMV45A' '4003' 'X'.

PERFORM bdc_field USING 'BDC_CURSOR' 'VBAP-ABGRU'.

PERFORM bdc_field USING 'BDC_OKCODE' '=SICH'.

PERFORM bdc_field USING 'VBAP-ABGRU' itab-reason.

----

---

CALLING TRANSACTION -

---

CALL TRANSACTION 'VA02' USING it_bdc MODE 'A' MESSAGES INTO

it_bdcmsgcall.

ENDLOOP.

LOOP AT it_bdc.

WRITE: / it_bdc-program,

it_bdc-dynpro,

it_bdc-dynbegin,

it_bdc-fnam,

it_bdc-fval.

ENDLOOP.

*ENDCASE.

&----

---

*& Form bdc_dynpro

&----

---

• text

----

---

• -->P_0198 text

• -->P_0199 text

• -->P_0200 text

----

---

FORM bdc_dynpro USING p_program

p_dynpro

p_flag.

it_bdc-program = p_program.

it_bdc-dynpro = p_dynpro.

it_bdc-dynbegin = p_flag.

APPEND it_bdc.

CLEAR it_bdc.

ENDFORM. " bdc_dynpro

&----

---

*& Form bdc_field

&----

---

• text

----

---

• -->P_0230 text

• -->P_0231 text

----

---

FORM bdc_field USING p_fnam

p_fval.

it_bdc-fnam = p_fnam.

it_bdc-fval = p_fval.

APPEND it_bdc.

CLEAR it_bdc.

ENDFORM. " bdc_field