Download and upload ABAP database table to presentation server and R/3

Question

Hi experts,
I want to download ABAP database table (Ztable) to presentation server and again want to upload this to another R/3 server but i dont want to use any transport request. is there any possible sollution for this.
Thanks in advance

Answer 1

Hi,
Look at this code hope this will help you to solve your problem
REPORT y_test_559.
Program for
1. Downloading Data of any DB table to a tab delimited ASCII file
2. Checking if a tab delimited ASCII file has the structure of a
   DB table and showing its contents
3. Uploading a tab delimited ASCII file to a DB table with the same
   structure
4. Showing the data of any DB table
======================================================================
======================================================================
DATA DECLARATIONS
======================================================================
TYPES : data_object  TYPE REF TO data.
DATA  : itab TYPE REF TO data .
TYPE-POOLS : slis .
DATA  : it_fieldcat TYPE STANDARD TABLE OF slis_fieldcat_alv
        WITH HEADER LINE .
DATA : it_fieldcatalog TYPE lvc_t_fcat .
DATA : wa_fieldcatalog TYPE lvc_s_fcat .
DATA : i_structure_name LIKE dd02l-tabname .
DATA : i_callback_program LIKE sy-repid .
DATA  : dyn_line TYPE data_object .
FIELD-SYMBOLS : <fs_itab> TYPE  STANDARD  TABLE .
DATA : table_name_is_valid TYPE c .
DATA : dynamic_it_instantiated TYPE c .
CONSTANTS buttonselected TYPE c VALUE 'X' .
======================================================================
SELECTION SCREEN DEFAULT
======================================================================
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) t_tabl.
PARAMETERS : tabl_nam LIKE rsrd1-tbma_val
             MATCHCODE OBJECT dd_dbtb_16 OBLIGATORY .
                               "Search for Database Tables is dd_dbtb_16
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) t_file.
PARAMETERS : file_nam LIKE rlgrap-filename .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) t_down.
PARAMETERS : p_downld RADIOBUTTON GROUP grp1
             USER-COMMAND m_ucomm .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) t_chkf.
PARAMETERS : p_chkfil RADIOBUTTON GROUP grp1 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) t_upld.
PARAMETERS : p_upload RADIOBUTTON GROUP grp1 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) t_show.
PARAMETERS : p_show_t RADIOBUTTON GROUP grp1 ."show table data
SELECTION-SCREEN END OF LINE.
======================================================================
AT SELECTION SCREEN OUTPUT
======================================================================
AT SELECTION-SCREEN OUTPUT .
  PERFORM check_filename .
======================================================================
AT SELECTION SCREEN ON VALUE REQUEST FOR FILENAME
======================================================================
AT SELECTION-SCREEN ON VALUE-REQUEST FOR file_nam .
  PERFORM f4_for_filename .
======================================================================
Initialization .
======================================================================
INITIALIZATION .
  t_tabl = 'Table Name' .
  t_file = 'File Name' .
  t_down = 'Download Table' .
  t_chkf = 'Check File to Upload' .
  t_upld = 'Upload File' .
  t_show = 'Show Table Contents' .
======================================================================
START OF SELECTION
======================================================================
START-OF-SELECTION .
  PERFORM check_table_name_is_valid .
======================================================================
END OF SELECTION
======================================================================
END-OF-SELECTION .
  IF table_name_is_valid EQ ' ' .
    MESSAGE i398(00) WITH 'INVALID TABLE NAME' .
  ELSE .
    PERFORM instantiate_dynamic_internal_t  .
    CHECK  dynamic_it_instantiated = 'X' .
    CASE buttonselected .
      WHEN p_downld .
        PERFORM select_and_download .
      WHEN p_chkfil .
        PERFORM check_file_to_upload .
      WHEN p_upload .
        PERFORM upload_from_file .
      WHEN p_show_t .
        PERFORM show_contents .
    ENDCASE .
  ENDIF .
*&      Form  CHECK_TABLE_NAME_IS_VALID
      text
-->  p1        text
<--  p2        text
FORM check_table_name_is_valid.
  DATA l_count TYPE i .
  TABLES dd02l .
  CLEAR table_name_is_valid .
  SELECT COUNT(*) INTO l_count FROM tadir
  WHERE  pgmid = 'R3TR'
  AND    object = 'TABL'
  AND    obj_name = tabl_nam .
  IF l_count EQ 1 .
    CLEAR dd02l .
    SELECT SINGLE * FROM dd02l WHERE tabname  = tabl_nam .
    IF sy-subrc EQ 0.
      IF dd02l-tabclass = 'TRANSP' .
        table_name_is_valid = 'X' .
      ENDIF .
    ENDIF.
  ENDIF .
ENDFORM.                    " CHECK_TABLE_NAME_IS_VALID
*&      Form  SELECT_AND_DOWNLOAD
      text
-->  p1        text
<--  p2        text
FORM select_and_download.
  CLEAR : <fs_itab> .
  SELECT * FROM (tabl_nam)
  INTO CORRESPONDING FIELDS OF TABLE <fs_itab>   .
  PERFORM check_filename.
  CALL FUNCTION 'WS_DOWNLOAD'
    EXPORTING
      filename                = file_nam
      filetype                = 'DAT'
    TABLES
      data_tab                = <fs_itab>
    EXCEPTIONS
      file_open_error         = 1
      file_write_error        = 2
      invalid_filesize        = 3
      invalid_type            = 4
      no_batch                = 5
      unknown_error           = 6
      invalid_table_width     = 7
      gui_refuse_filetransfer = 8
      customer_error          = 9
      OTHERS                  = 10.
  IF sy-subrc EQ 0.
    MESSAGE i398(00) WITH 'Table' tabl_nam
                          'successfully downloaded to '
                          file_nam .
  ENDIF.
ENDFORM.                    " SELECT_AND_DOWNLOAD
*&      Form  UPLOAD_FROM_FILE
      text
-->  p1        text
<--  p2        text
FORM upload_from_file.
  DATA : ans TYPE c .
  DATA : lines_of_itab TYPE i .
  DATA : l_subrc TYPE i .
  CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
    EXPORTING
      textline1 = 'Are you sure you wish to upload'
      textline2 = 'data from ASCII File to DB table '
      titel     = 'Confirmation of Data Upload'
    IMPORTING
      answer    = ans.
  IF ans = 'J' .
    PERFORM check_filename.
    CLEAR l_subrc .
    CALL FUNCTION 'WS_UPLOAD'
      EXPORTING
        filename                = file_nam
        filetype                = 'DAT'
      TABLES
        data_tab                = <fs_itab>
      EXCEPTIONS
        conversion_error        = 1
        file_open_error         = 2
        file_read_error         = 3
        invalid_type            = 4
        no_batch                = 5
        unknown_error           = 6
        invalid_table_width     = 7
        gui_refuse_filetransfer = 8
        customer_error          = 9
        OTHERS                  = 10.
    l_subrc = l_subrc  + sy-subrc .
    IF sy-subrc EQ 0.
      DESCRIBE TABLE <fs_itab> LINES lines_of_itab .
      IF lines_of_itab GT 0 .
        DELETE (tabl_nam) FROM TABLE <fs_itab> .
        COMMIT WORK .
        INSERT (tabl_nam) FROM TABLE <fs_itab> .
        l_subrc = l_subrc  + sy-subrc .
      ENDIF .
    ENDIF.
    IF  l_subrc EQ 0  .
      MESSAGE i398(00) WITH lines_of_itab
                           'Record(s) inserted in table'
                            tabl_nam .
    ELSE .
      MESSAGE i398(00) WITH
                      'Errors occurred No Records inserted in table'
                       tabl_nam .
    ENDIF .
  ENDIF .
ENDFORM.                    " UPLOAD_FROM_FILE
*&      Form  F4_FOR_FILENAME
      text
-->  p1        text
<--  p2        text
FORM f4_for_filename.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_path         = 'C:\'
      mask             = ',.,..'
      mode             = '0'
    IMPORTING
      filename         = file_nam
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.
ENDFORM.                    " F4_FOR_FILENAME
*&      Form  CHECK_FILENAME
      text
-->  p1        text
<--  p2        text
FORM check_filename.
  IF file_nam IS INITIAL
  AND NOT ( tabl_nam IS INITIAL  )
  AND p_show_t NE buttonselected.
    CONCATENATE 'C:\' tabl_nam  '.TXT'  INTO file_nam.
  ENDIF .
ENDFORM.                    " CHECK_FILENAME
*&      Form  INSTANTIATE_DYNAMIC_INTERNAL_T
      text
-->  p1        text
<--  p2        text
FORM instantiate_dynamic_internal_t.
  CLEAR dynamic_it_instantiated .
-----> Step 1 - Finding Field Names and ALV GRID Fieldcatalog
  i_structure_name =  tabl_nam .
  CLEAR it_fieldcat[] .
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name       = i_structure_name
    CHANGING
      ct_fieldcat            = it_fieldcat[]
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
  IF sy-subrc EQ 0.
-----> Step 2 - Creating Field Catalog of the Object
                                              cl_alv_table_create
    LOOP AT it_fieldcat .
      CLEAR wa_fieldcatalog .
      MOVE-CORRESPONDING it_fieldcat TO  wa_fieldcatalog .
      wa_fieldcatalog-ref_field = it_fieldcat-fieldname .
      wa_fieldcatalog-ref_table = tabl_nam .
      APPEND  wa_fieldcatalog  TO it_fieldcatalog .
    ENDLOOP .
-----> Step 3 - Creating Internal Table Dynamicaly
    CALL METHOD cl_alv_table_create=>create_dynamic_table
      EXPORTING
        it_fieldcatalog = it_fieldcatalog
      IMPORTING
        ep_table        = itab.
    ASSIGN itab->* TO <fs_itab> .
    dynamic_it_instantiated = 'X' .
  ENDIF.
ENDFORM.                    " INSTANTIATE_DYNAMIC_INTERNAL_T
*&      Form  SHOW_CONTENTS
      text
-->  p1        text
<--  p2        text
FORM show_contents.
  CLEAR : <fs_itab> .
  SELECT * FROM (tabl_nam)
  INTO CORRESPONDING FIELDS OF TABLE <fs_itab>   .
  i_callback_program = sy-repid .
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program = i_callback_program
      it_fieldcat        = it_fieldcat[]
    TABLES
      t_outtab           = <fs_itab>
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
ENDFORM.                    " SHOW_CONTENTS
*&      Form  CHECK_FILE_TO_UPLOAD
      text
-->  p1        text
<--  p2        text
FORM check_file_to_upload.
  PERFORM check_filename.
CLEAR l_subrc .
  CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
      filename                = file_nam
      filetype                = 'DAT'
    TABLES
      data_tab                = <fs_itab>
    EXCEPTIONS
      conversion_error        = 1
      file_open_error         = 2
      file_read_error         = 3
      invalid_type            = 4
      no_batch                = 5
      unknown_error           = 6
      invalid_table_width     = 7
      gui_refuse_filetransfer = 8
      customer_error          = 9
      OTHERS                  = 10.
l_subrc = l_subrc  + SY-SUBRC .
  IF sy-subrc EQ 0.
    i_callback_program = sy-repid .
    CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
      EXPORTING
        i_callback_program = i_callback_program
        it_fieldcat        = it_fieldcat[]
      TABLES
        t_outtab           = <fs_itab>
      EXCEPTIONS
        program_error      = 1
        OTHERS             = 2.
  ENDIF .
ENDFORM.                    " CHECK_FILE_TO_UPLOAD
Thanks,
Pramod