BDC program using HR ABAP

Question

Hi,
I am new to HR ABAP . Can anybody send me an end to end sample BDC program using HR ABAP. I have a requirement  to develop a program.
Please give the sample file which  has the sample data to upload to SAP.
Rgds,
Sofia

Answer 1

hi....
to create a program of your own....
goto tcode 'SHDB' and there go for a new recording of the TCODE as required by you...
after recording is complete there is a button to GENERATE a program for that
i am looking for a complete data tranfer example which i have done.... i ll send that to you
regards
this is a sample code for it
THIS IS WRITTEN BY ME,YOU CAN GENERATE PROGRAM DIRECTLY
*" Type declarations...................................................
Type declaration of the structure to hold material information      *
TYPES:
  BEGIN OF type_s_mat,
    name(10)  TYPE c,                  " Material Number
    industry  TYPE c,                  " Industry Sector
    mtype(10) TYPE c,                  " Material Type
    descr(20) TYPE c,                  " Material Description
    unit(10)  TYPE c,                  " Base Unit of Measure
  END OF type_s_mat,
  type_s_f2(4096) TYPE c.
*" Data declarations...................................................
Work variables                                                      *
DATA:
  fs_f1 TYPE type_s_mat,               " Field string of TYPE_S_MAT
  fs_workarea TYPE bdcdata,            " Field string of type BDCDATA
  fs_bdc TYPE bdcmsgcoll,              " Field string of type bdcmsgcoll
  w_msg(72) TYPE c,                    " Holds message for writing
  w_i TYPE i,                          " Holds value of rc
  w_file TYPE filetable,               " Holds name of the file
  w_var  TYPE file_table,              " Field string of file_table
  w_file1 TYPE string.                 " Holds the path of the file
Internal table to hold data for the input                           *
DATA:
  t_itab LIKE
STANDARD TABLE
      OF fs_workarea,
Internal table to hold data for the messages                        *
   t_mess LIKE
STANDARD TABLE
       OF fs_bdc,
   t_mat LIKE
STANDARD TABLE
      OF fs_f1,
Internal table to hold data for the input                           *
  t_temp TYPE
STANDARD TABLE
      OF type_s_f2.
*"Selection screen elements............................................
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: p_file(128) TYPE c.
SELECTION-SCREEN END OF BLOCK b1.
           AT SELECTION-SCREEN ON VALUE-REQUEST EVENT               *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = 'FILE_OPEN'
      default_extension       = 'XLS'
    CHANGING
      file_table              = w_file
      rc                      = w_i
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      not_supported_by_gui    = 4
      OTHERS                  = 5.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.                               " IF SY-SUBRC <> 0.
  LOOP AT w_file INTO w_var.
    p_file = w_var-filename.
  ENDLOOP.                             " LOOP AT W_FILE INTO W_VAR.
  ULINE.
                      START-OF-SELECTION EVENT                      *
START-OF-SELECTION.
  CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
      i_tab_raw_data       = t_temp
      i_filename           = p_file
    TABLES
      i_tab_converted_data = t_mat
    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.                               " IF SY-SUBRC EQ 0.
                      END-OF-SELECTION EVENT                        *
END-OF-SELECTION.
  PERFORM sub_display.
*& Form  sub_screen
This subroutine appends the value of screen name and number        *
     -->PV_screenam  This holds screen name                         *
     -->PV_scrnum    This holds screen number                       *
FORM sub_screen  USING    value(pv_screenam)
                              value(pv_scrnum).
  CLEAR fs_workarea.
  fs_workarea-program = pv_screenam.
  fs_workarea-dynpro = pv_scrnum.
  fs_workarea-dynbegin = 'X'.
  APPEND fs_workarea TO  t_itab.
ENDFORM.                               " FORM SUB_SCREEN
*& Form  SUB_FIELD_DATA                                               *
This subroutine apppends  field name and value of the screen.      *
-->PV_FLDNAM   This holds field name                               *
-->PV_FLDVAL   This holds Field value                              *
FORM sub_field_data  USING    value(pv_fldnam)
                           value(pv_fldval).
  CLEAR fs_workarea.
  fs_workarea-fnam = pv_fldnam.
  fs_workarea-fval = pv_fldval.
  APPEND fs_workarea TO  t_itab.
ENDFORM.                               " FORM SUB_FIELD_DATA
*& Form  sub_display                                             *
This subroutine fills the value on screen fields when BDC executes *
There are no interface parameters to be passed to this subroutine. *
FORM sub_display .
  LOOP AT t_mat INTO fs_f1.
    CLEAR fs_workarea.
    CLEAR fs_bdc.
    PERFORM sub_screen     USING 'SAPLMGMM' '0060'.
    PERFORM sub_field_data USING 'RMMG1-MATNR' fs_f1-name.
    PERFORM sub_field_data USING 'RMMG1-MBRSH' fs_f1-industry.
    PERFORM sub_field_data USING 'RMMG1-MTART' fs_f1-mtype.
    PERFORM sub_field_data USING 'BDC_OKCODE' '/00'.
    PERFORM sub_screen     USING 'SAPLMGMM' '0070'.
    PERFORM sub_field_data USING 'MSICHTAUSW-KZSEL(01)' 'X'.
    PERFORM sub_field_data USING 'MSICHTAUSW-KZSEL(02)' 'X'.
    PERFORM sub_field_data USING 'BDC_OKCODE' '=ENTR'.
    PERFORM sub_screen     USING 'SAPLMGMM' '4004'.
    PERFORM sub_field_data USING 'MAKT-MAKTX' fs_f1-descr.
    PERFORM sub_field_data USING 'MARA-MEINS' fs_f1-unit.
    PERFORM sub_field_data USING 'BDC_OKCODE' '/00'.
    PERFORM sub_screen     USING 'SAPLMGMM' '4004'.
    PERFORM sub_field_data USING 'BDC_OKCODE' '=BU'.
    CALL TRANSACTION 'MM01' USING t_itab MODE 'A' MESSAGES INTO t_mess.
  ENDLOOP.
ENDFORM.                    " SUB_DISPLAY
Edited by: Mohit Kumar on Feb 18, 2009 12:40 PM