File Upload and Download From Presentation server

Question

I have a requirement to provide a selection option to user to upload a big file from presentation server.
Not sure whther we can a upload the entire file at one short from presentation server. PLease provide some sample code to upload a huge file from presentation server and downlaod a file to presentation server.

Answer 1

Hi,
Try this code for download----
TABLES:
  kna1.                                " General Data in Customer Master
TYPES:
  BEGIN OF type_s_kna1,
    kunnr TYPE kna1-kunnr,             " Customer Number
    adrnr TYPE kna1-adrnr,             " Address
    anred TYPE kna1-anred,             " Title
    erdat TYPE kna1-erdat,             " Date on which record created
    ernam TYPE kna1-ernam,             " Name of Person who Created the
                                       " Object
END OF type_s_kna1.
DATA:
  fs_kna1 TYPE type_s_kna1.
DATA:
    t_kna1 LIKE
  STANDARD TABLE
        OF fs_kna1.
" Select-options----
SELECT-OPTIONS:
  s_kunnr FOR kna1-kunnr.              " Customer Number
AT SELECTION-SCREEN ON s_kunnr.
  SELECT kunnr                         " Customer number
    FROM kna1
    INTO s_kunnr UP TO 1 ROWS.
  ENDSELECT.
  IF sy-subrc NE 0.
    MESSAGE 'No such customer exists' TYPE 'S'.
  ENDIF.                               " IF SY-SUBRC NE 0
START-OF-SELECTION.
  PERFORM customer_selection.
FORM customer_selection .
  SELECT kunnr                         " Customer Number
         adrnr                         " Address
         anred                         " Title
         erdat                         " Date of record creation
         ernam                         " Person who created object
    FROM kna1
    INTO TABLE t_kna1
   WHERE kunnr IN s_kunnr.
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
    BIN_FILESIZE                  =
      filename                      = 'C:\TEMP\CUSTOMER.TXT'
    FILETYPE                      = 'ASC'
     write_field_separator         = 'X'
    HEADER                        = '00'
    WRITE_LF                      = 'X'
     col_select                    = 'X'
     col_select_mask               = 'XXXXX'
    IGNORE_CERR                   = ABAP_TRUE
    REPLACEMENT                   = '#'
  IMPORTING
    FILELENGTH                    =
    TABLES
      data_tab                      = t_kna1
   EXCEPTIONS
           dataprovider_exception        = 20
     control_flush_error           = 21
     OTHERS                        = 22
  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 NE 0
ENDFORM.                               " FORM CUSTOMER_SELECTION.
for upload----
" Table declarations----
TABLES:
  bkpf.                                " Accounting Document Header
TYPES:
  BEGIN OF type_s_bkpf,
    bukrs TYPE bkpf-bukrs,             " Company code
    belnr TYPE bkpf-belnr,             " Accounting Document Number
    gjahr TYPE bkpf-gjahr,             " Fiscal Year
    blart TYPE bkpf-blart,             " Document type
    bldat TYPE bkpf-bldat,             " Document Date in Document
  END OF type_s_bkpf.
DATA:
  fs_bkpf TYPE type_s_bkpf.
DATA:
  fname(10) TYPE c VALUE 'ACCOUNTING'  .
DATA:
    t_bkpf LIKE
  STANDARD TABLE
        OF fs_bkpf.
*" Select-options----
SELECT-OPTIONS:
  s_bukrs FOR bkpf-bukrs,              " Company code
  s_gjahr FOR bkpf-gjahr.              " Fiscal year
OPEN DATASET fname FOR OUTPUT IN BINARY MODE .
PERFORM account_selection.
LOOP AT t_bkpf INTO fs_bkpf.
  TRANSFER fs_bkpf TO fname.
ENDLOOP.                               " LOOP T_BKPF
CLOSE DATASET fname.
FORM account_selection .
  SELECT bukrs                         " Company code
         belnr                         " Accounting document number
         gjahr                         " Fiscal year
         blart                         " Document year
         bldat                         " Document date
    FROM bkpf
    INTO TABLE t_bkpf
   WHERE bukrs IN s_bukrs
     AND gjahr IN s_gjahr.
ENDFORM.                               " FORM ACCOUNT_SELECTION
also try
CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
    filename                      = 'C:\TEMP\CUSTOMER.TXT'
  FILETYPE                      = 'ASC'
   has_field_separator           = 'X'
  HEADER_LENGTH                 = 0
  READ_BY_LINE                  = 'X'
  IGNORE_CERR                   = ABAP_TRUE
  REPLACEMENT                   = '#'
IMPORTING
  FILELENGTH                    =
  HEADER                        =
  TABLES
    data_tab                      = t_kna1
EXCEPTIONS
      disk_full                     = 15
   dp_timeout                    = 16
   OTHERS                        = 17
IF sy-subrc EQ 0.
  PERFORM customer_display.
ELSE.
  MESSAGE 'No customer file exists'(006) TYPE 'S'.
ENDIF.                                 " IF SU-SUBRC EQ 0
Regards,
jaya
Edited by: Jayapradha Neeli on May 28, 2009 11:38 AM