topic Re: BDC programs in Application Development and Automation Discussions

I have searched help.sap.com a lot for some sample BDC call transcation programs...I could not find them in that website....Please send me some programs

Re: BDC programs

Former Member — Wed, 16 May 2007 07:04:12 GMT

this is a sample BDC Program which will guide you after knowing the BDC concept.

tables: equi.

TYPES: BEGIN OF t_tab,

equnr TYPE equi-equnr,

eqtyp type equi-eqtyp,

eqart TYPE equi-eqart,

decom_dat type d,

END OF t_tab.

DATA: i_tab TYPE STANDARD TABLE OF t_tab.

DATA: wa_tab TYPE t_tab.

DATA : lt_bdcdata TYPE bdcdata,

lw_bdcdata type standard table of bdcdata.

DATA: v_fname TYPE string.

DATA: BEGIN OF FLDITAB OCCURS 0,

FLDNAME(11) TYPE C,

END OF FLDITAB.

*DATA BEGIN OF ZDFIES OCCURS 0.

INCLUDE STRUCTURE DFIES.

*DATA END OF ZDFIES.

DATA TNAME LIKE DD02L-TABNAME.

DATA: ZX030L LIKE X030L.

PARAMETERS: p_fname TYPE rlgrap-filename.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.

CALL FUNCTION 'F4_FILENAME'

EXPORTING

program_name = syst-cprog

dynpro_number = syst-dynnr

field_name = ' '

IMPORTING

file_name = p_fname.

v_fname = p_fname.

start-of-selection.

SELECT equnr eqtyp eqart FROM equi INTO CORRESPONDING FIELDS OF TABLE i_tab up to 10 rows.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

BIN_FILESIZE =

filename = v_fname

FILETYPE = 'ASC'
APPEND = ' '

WRITE_FIELD_SEPARATOR = 'X'

HEADER = '00'
TRUNC_TRAILING_BLANKS = ' '
WRITE_LF = 'X'
COL_SELECT = ' '
COL_SELECT_MASK = ' '
DAT_MODE = ' '
CONFIRM_OVERWRITE = ' '
NO_AUTH_CHECK = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
WRITE_BOM = ' '
TRUNC_TRAILING_BLANKS_EOL = 'X'
WK1_N_FORMAT = ' '
WK1_N_SIZE = ' '
WK1_T_FORMAT = ' '
WK1_T_SIZE = ' '
IMPORTING
FILELENGTH =

tables

data_tab = i_tab.

FIELDNAMES = t_tab.

clear i_tab[].

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = v_fname

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
CHECK_BOM = ' '
NO_AUTH_CHECK = ' '
IMPORTING
FILELENGTH =
HEADER =

tables

data_tab = i_tab

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.

*CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'

EXPORTING

I_FIELD_SEPERATOR =

i_line_header = 'X'
i_tab_raw_data = wa_tab " WORK TABLE
i_filename = v_fname
TABLES
i_tab_converted_data = i_tab[] "ACTUAL DATA
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

loop at i_tab into wa_tab.

write:/5 wa_tab-equnr ,wa_tab-eqtyp , wa_tab-eqart.

endloop.

Re: BDC programs

Former Member — Wed, 16 May 2007 07:07:19 GMT

Hi,

I am giving one simple e.g. of BDC using table control.

BDC XK01 using Table control:
REPORT Y730_BDC5 .
*HANDLING TABLE CONTROL IN BDC
DATA : BEGIN OF IT_DUMMY OCCURS 0,
       DUMMY(100) TYPE C,
       END OF IT_DUMMY.
DATA : BEGIN OF IT_XK01 OCCURS 0,
       LIFNR(10) TYPE C,
       BUKRS(4)  TYPE C,
       EKORG(4)  TYPE C,
       KTOKK(4)  TYPE C,
       NAME1(30) TYPE C,
       SORTL(10) TYPE C,
       LAND1(3)  TYPE C,
       SPRAS(2)  TYPE C,
       AKONT(6)  TYPE C,
       FDGRV(2)  TYPE C,
       WAERS(3)  TYPE C,
       END OF IT_XK01,
       BEGIN OF IT_BANK OCCURS 0,
       BANKS(3)  TYPE C,
       BANKL(10) TYPE C,
       BANKN(10) TYPE C,
       KOINH(30) TYPE C,
       LIFNR(10) TYPE C,
       END OF IT_BANK.
DATA : IT_BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE,
       IT_BDCMSGCOLL LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

CALL FUNCTION 'WS_UPLOAD'
 EXPORTING
   FILENAME                      = 'C:VENDOR.TXT'
   FILETYPE                      = 'ASC'
 TABLES
   DATA_TAB                      = IT_DUMMY.

LOOP AT IT_DUMMY.
  IF IT_DUMMY-DUMMY+0(2) = '11'.
    IT_XK01-LIFNR = IT_DUMMY-DUMMY+2(10).
    IT_XK01-BUKRS = IT_DUMMY-DUMMY+12(4).
    IT_XK01-EKORG = IT_DUMMY-DUMMY+16(4).
    IT_XK01-KTOKK = IT_DUMMY-DUMMY+20(4).
    IT_XK01-NAME1 = IT_DUMMY-DUMMY+24(30).
    IT_XK01-SORTL = IT_DUMMY-DUMMY+54(10).
    IT_XK01-LAND1 = IT_DUMMY-DUMMY+64(3).
    IT_XK01-SPRAS = IT_DUMMY-DUMMY+67(2).
    IT_XK01-AKONT = IT_DUMMY-DUMMY+69(6).
    IT_XK01-FDGRV = IT_DUMMY-DUMMY+75(2).
    IT_XK01-WAERS = IT_DUMMY-DUMMY+77(3).
    APPEND IT_XK01.
  ELSE.
    IT_BANK-BANKS = IT_DUMMY-DUMMY+2(3).
    IT_BANK-BANKL = IT_DUMMY-DUMMY+5(10).
    IT_BANK-BANKN = IT_DUMMY-DUMMY+15(10).
    IT_BANK-KOINH = IT_DUMMY-DUMMY+25(30).
    IT_BANK-LIFNR = IT_DUMMY-DUMMY+55(10).
    APPEND IT_BANK.
  ENDIF.
ENDLOOP.

LOOP AT IT_XK01.
REFRESH IT_BDCDATA.
perform bdc_dynpro      using 'SAPMF02K' '0100'.
perform bdc_field       using 'BDC_CURSOR'
                              'RF02K-REF_LIFNR'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'RF02K-LIFNR'
                              IT_XK01-LIFNR.
perform bdc_field       using 'RF02K-BUKRS'
                              IT_XK01-BUKRS.
perform bdc_field       using 'RF02K-EKORG'
                              IT_XK01-EKORG.
perform bdc_field       using 'RF02K-KTOKK'
                              IT_XK01-KTOKK.
perform bdc_dynpro      using 'SAPMF02K' '0110'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFA1-TELX1'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'LFA1-NAME1'
                              IT_XK01-NAME1.
perform bdc_field       using 'LFA1-SORTL'
                              IT_XK01-SORTL.
perform bdc_field       using 'LFA1-LAND1'
                              IT_XK01-LAND1.
perform bdc_field       using 'LFA1-SPRAS'
                              IT_XK01-SPRAS.
perform bdc_dynpro      using 'SAPMF02K' '0120'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFA1-KUNNR'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_dynpro      using 'SAPMF02K' '0130'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFBK-KOINH(02)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
DATA : FNAM(20) TYPE C,
       IDX      TYPE C.
  MOVE 1 TO IDX.
LOOP AT IT_BANK WHERE LIFNR = IT_XK01-LIFNR.
  CONCATENATE 'LFBK-BANKS(' IDX ')' INTO FNAM.
  perform bdc_field       using FNAM
                                IT_BANK-BANKS.

  CONCATENATE 'LFBK-BANKL(' IDX ')' INTO FNAM.
  perform bdc_field       using FNAM
                                IT_BANK-BANKL.

  CONCATENATE 'LFBK-BANKN(' IDX ')' INTO FNAM.
  perform bdc_field       using FNAM
                                IT_BANK-BANKN.

  CONCATENATE 'LFBK-KOINH(' IDX ')' INTO FNAM.
  perform bdc_field       using FNAM
                                IT_BANK-KOINH.
  IDX = IDX + 1.
ENDLOOP.

perform bdc_dynpro      using 'SAPMF02K' '0130'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFBK-BANKS(01)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_dynpro      using 'SAPMF02K' '0210'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFB1-FDGRV'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'LFB1-AKONT'
                              IT_XK01-AKONT.
perform bdc_field       using 'LFB1-FDGRV'
                              IT_XK01-FDGRV.
perform bdc_dynpro      using 'SAPMF02K' '0215'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFB1-ZTERM'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_dynpro      using 'SAPMF02K' '0220'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFB5-MAHNA'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_dynpro      using 'SAPMF02K' '0310'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFM1-WAERS'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'LFM1-WAERS'
                              IT_XK01-WAERS.
perform bdc_dynpro      using 'SAPMF02K' '0320'.
perform bdc_field       using 'BDC_CURSOR'
                              'WYT3-PARVW(01)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_dynpro      using 'SAPLSPO1' '0300'.
perform bdc_field       using 'BDC_OKCODE'
                              '=YES'.
CALL TRANSACTION 'XK01' USING IT_BDCDATA
                        MODE  'A'
                       UPDATE 'S'
                     MESSAGES INTO IT_BDCMSGCOLL.
ENDLOOP.

FORM BDC_DYNPRO USING PROG SCR.
  CLEAR IT_BDCDATA.
  IT_BDCDATA-PROGRAM = PROG.
  IT_BDCDATA-DYNPRO  = SCR.
  IT_BDCDATA-DYNBEGIN = 'X'.
  APPEND IT_BDCDATA.
ENDFORM.

FORM BDC_FIELD USING FNAM FVAL.
  CLEAR IT_BDCDATA.
  IT_BDCDATA-FNAM = FNAM.
  IT_BDCDATA-FVAL  = FVAL.
  APPEND IT_BDCDATA.
ENDFORM.
&#8195;

Hope this simple e.g. will help u with therotical details u may get in other post.

Jogdand M B

Re: BDC programs

Former Member — Tue, 22 May 2007 12:58:14 GMT

Thank u for ur immediate response...if u might have sent me some example that wud be more helpful............

Re: BDC programs

Former Member — Tue, 22 May 2007 13:00:00 GMT

check this code...

REPORT ZFC_VENDOR_CREATE LINE-SIZE 100

NO STANDARD PAGE HEADING

MESSAGE-ID ZZ.

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

TABLES

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

TABLES : SSCRFIELDS. " Fields on selection screens

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

CONSTANTS

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

DATA : C_SPLIT TYPE C VALUE '#'. " Used for Has Separator in GUI_UPLAOD

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

TYPES

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

Int'table to hold Vendor Master Data

TYPES : BEGIN OF TY_VENDOR_MASTER,

FLAG TYPE C, " Update Flag

LIFNR TYPE LIFNR, " Vendor Number

BUKRS TYPE BUKRS, " Company Code

KTOKK TYPE KTOKK, " Account Group

ANRED TYPE ANRED, " Title

NAME1 TYPE NAME1_GP, " Name1

NAME2 TYPE NAME2_GP, " Name2

SORTL TYPE SORTL, " Search Term 1

SORT2 TYPE AD_SORT2UL, " Search Term 2

STRAS TYPE STRAS_GP, " Street

PSTLZ TYPE PSTLZ, " Postal Code

ORT01 TYPE ORT01_GP, " City

REGIO TYPE REGIO, " Region

LAND1 TYPE LAND1_GP, " Country

SPRAS TYPE SPRAS, " Language

VBUND TYPE RASSC, " Trading Partner

BANKS TYPE BANKS, " Country

BANKL TYPE BANKK, " Bank Key

BANKN TYPE BANKN, " Bank Account

BKONT TYPE BKONT, " Bank Control Key

BANKA TYPE BANKA, " Name of Bank

AKONT TYPE AKONT, " Reconciliation Account

FDGRV TYPE FDGRV, " Cash Management Group

ZTERM TYPE DZTERM, " Payment Terms

REPRF TYPE REPRF, " Check Double Invoice

ZWELS TYPE DZWELS, " Payment Methods

XPORE TYPE XPORE, " Pay all items separately

END OF TY_VENDOR_MASTER,

Int'table to hold Vendor Extend Data

BEGIN OF TY_VENDOR_EXTEND,

FLAG TYPE C, " Update Flag

LIFNR TYPE LIFNR, " Vendor Number

BUKRS TYPE BUKRS, " Company Code

KTOKK TYPE KTOKK, " Account Group

REF_LIFNR TYPE LIFNR, " Reference Vendor Number

REF_BUKRS TYPE BUKRS, " Reference Company Code

AKONT TYPE AKONT, " Reconciliation Account

FDGRV TYPE FDGRV, " Cash Management Group

ZTERM TYPE DZTERM, " Payment Terms

REPRF TYPE REPRF, " Check Double Invoice

ZWELS TYPE DZWELS, " Payment Methods

XPORE TYPE XPORE, " Pay all items separately

END OF TY_VENDOR_EXTEND,

Int'table to hold Error Records Data

BEGIN OF TY_ERROR,

MSG(200) TYPE C, " To hold Message

LIFNR TYPE LIFNR, " Vendor Number

BUKRS TYPE BUKRS, " Company Code

END OF TY_ERROR.

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

DATA (Simple Fields)

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

DATA : W_COUNT TYPE I, " Variable to hold count of Records

W_SUCC_REC TYPE I, " No. of Success Records

W_SUCC_REC1 TYPE I, " No. of Updated Records

W_ERR_REC TYPE I, " No. of Error Records

w_noupdate_rec type i. " No. of Records not Changed

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

INTERNAL TABLES

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

Int'table to hold uploaded data from File

DATA : IT_VENDOR_MASTER TYPE STANDARD TABLE OF TY_VENDOR_MASTER,

WA_IT_VENDOR_MASTER TYPE TY_VENDOR_MASTER,

IT_VENDOR_EXTEND TYPE STANDARD TABLE OF TY_VENDOR_EXTEND,

WA_IT_VENDOR_EXTEND TYPE TY_VENDOR_EXTEND,

WA_IT_BDCDATA TYPE BDCDATA,

IT_BDCDATA TYPE STANDARD TABLE OF BDCDATA,

WA_IT_MESSTAB TYPE BDCMSGCOLL,

IT_MESSTAB TYPE STANDARD TABLE OF BDCMSGCOLL,

IT_ERROR TYPE STANDARD TABLE OF TY_ERROR,

WA_IT_ERROR TYPE TY_ERROR,

it_error_fk01 type standard table of ty_error,

wa_it_error_fk01 type ty_error,

it_error_fk02 type standard table of ty_error,

wa_it_error_fk02 type ty_error,

it_succ_rec1 type standard table of ty_error,

wa_it_succ_rec1 type ty_error,

it_noupdate type standard table of ty_error,

wa_it_noupdate type ty_error.

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

FLAGS

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

DATA : FL_FLAG1 TYPE C, " Flag to check error upload file

FL_FLAG2 TYPE C, " Flag to hold value

FL_FLAG3 TYPE C, " Flag to hold value

FL_FLAG4 TYPE C. " Flag to hold value

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

SELECTION-SCREEN

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

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