How to create a BDC program for given recording.

Question

i have to create a BDC program for uploading a file.
currently i am using call function
  CALL FUNCTION 'F4_FILENAME'

Answer 1

just check out the code below  it  is  for  updating two transactions
                       types Declaration                      *
types: begin of t_tab1 ,
            vendor(10),
            material(18),
            pur_org(4),
            wglif(18),
      end of t_tab1.
              Data Declaration                                 *
data : begin of it_tab5 occurs 0,
          vendor(10),
          material(18),
         end of it_tab5.
**DATA : BEGIN OF IT_TAB6 OCCURS 0,
         VENDOR(10),
         MATERIAL(18),
        END OF IT_TAB6.
data: it_tab1 type standard table of t_tab1 with header line.
data: wa_tab1 type t_tab1.
data: wa_tab2 type t_tab1.
data: it_tab3 like bdcdata occurs 0 with header line.
data: it_tab4 like bdcdata occurs 0 with header line.
data: it_tab2 type table of bdcmsgcoll with header line.
data: d_file_name like ibipparms-path,
      d_file_name1 type string.
                   Start-of-selection                        *
start-of-selection.
FM for finding the flat file
  call function 'F4_FILENAME'
EXPORTING
  PROGRAM_NAME        = SYST-CPROG
  DYNPRO_NUMBER       = SYST-DYNNR
  FIELD_NAME          = ' '
   importing
     file_name           = d_file_name.
  d_file_name1 = d_file_name.
******FM for uploading data from flat file into internal table
  call function 'GUI_UPLOAD'
    exporting
      filename                      = d_file_name1
     filetype                      = 'ASC'
  HAS_FIELD_SEPARATOR           = ' '
  HEADER_LENGTH                 = 0
  READ_BY_LINE                  = 'X'
  DAT_MODE                      = ' '
  CODEPAGE                      = ' '
  IGNORE_CERR                   = ABAP_TRUE
  REPLACEMENT                   = '#'
  CHECK_BOM                     = ' '
IMPORTING
  FILELENGTH                    =
  HEADER                        =
    tables
      data_tab                      = it_tab5
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.
                 End-of-selection                         *
end-of-selection.
  sort it_tab5 by vendor.
  loop at it_tab5.
    perform bdc_dynpro using 'SAPLBG00'  0101 .
    perform bdc_field using 'BDC_OKCODE' '/00' .
    perform bdc_dynpro using 'SAPLBG00'  1000 .
    perform bdc_field using 'BDC_OKCODE' '=BUCH' .
    perform bdc_field using 'BDC_SUBSCR'
    'SAPLBG00                                1101KOPF_1000'.
    perform bdc_field using 'GBGMK-GAART' '2' .
    perform bdc_field using 'GBGMK-GAERB' 'X' .
    perform bdc_field using 'BDC_SUBSCR'
      'SAPLBG00                          1103TAB_SUB_1000'.
    perform bdc_field using 'BDC_CURSOR' 'GBGMP-LSTNR(01)' .
    perform bdc_field using 'GBGMP-LSTNR(01)' it_tab5-material .
   call transaction 'BGM1' using it_tab3 mode 'E' messages into it_tab2
    refresh it_tab3.
    wa_tab1-pur_org = 'ABCP'.
    loop at it_tab2.
    endloop.
    perform bdc_dynpro using 'SAPMM06I'  0100 .
    perform bdc_field using 'BDC_CURSOR' 'EINE-EKORG' .
    perform bdc_field using 'BDC_OKCODE' '/00' .
    perform bdc_field using 'EINA-LIFNR' it_tab5-vendor .
    perform bdc_field using 'EINA-MATNR' it_tab5-material .
    perform bdc_field using 'EINE-EKORG' wa_tab1-pur_org .
    perform bdc_field using 'RM06I-NORMB' 'X' .
    perform bdc_dynpro using 'SAPMM06I'  0101 .
    perform bdc_field using 'BDC_CURSOR' 'EINA-WGLIF' .
    perform bdc_field using 'BDC_OKCODE' '=BU' .
    perform bdc_field using 'EINA-WGLIF' it_tab2-msgv1 .
    call transaction 'ME12' using it_tab3 mode 'E'.
    refresh it_tab3.
    refresh it_tab2.
  endloop.
*&      Form  BDC_DYNPRO
     Start new screen
     -->P_FNAM  text
     -->P_FVAL  text
form bdc_dynpro  using   program
                         dynpro.
  clear it_tab3.
  it_tab3-program  = program.
  it_tab3-dynpro   = dynpro.
  it_tab3-dynbegin = 'X'.
  append it_tab3.
endform.                    " BDC_DYNPRO
*&      Form  BDC_FIELD
   Insert field
     -->P_FNAM  text
     -->P_FVAL  text
form bdc_field  using    fnam
                         fval.
  clear it_tab3.
  it_tab3-fnam = fnam.
  it_tab3-fval = fval.
  append it_tab3.
endform.                    " BDC_FIELD
<REMOVED BY MODERATOR>
Edited by: Alvaro Tejada Galindo on Apr 14, 2008 6:20 PM