Download more than 3 files on application server

Hello Experts,
I have created a report which has records more than 65000 as the excel sheet takes records only upto 65k .
Since iI need to save the file on apll server I need to create more than 1 file say 4 files from one report.
Can anyone help me out on this.
Thanks & Regards,
Nikhil.

I've created FM for downloading on application server. This is simple version of FM. It have some messages in message class ZAM_TXT_FILES.
*"*"Local interface:
*" IMPORTING
*"     VALUE(I_FILENAME) TYPE STRING
*" TABLES
*"      DATA_TAB
*" EXCEPTIONS
*"      FILE_WRITE_ERROR
*"      UNKNOWN_ERROR
*"      ACCESS_DENIED
*"      DISK_FULL
*"      FILE_NOT_FOUND
*"      WRONG_PARAMETER
*"      CONVERSION_ERROR
*"      ERROR_OPEN_FILE
DATA:
        ls_mess           TYPE STRING.
TRY.
    OPEN DATASET I_FILENAME FOR OUTPUT IN BINARY MODE MESSAGE ls_mess.
    LOOP AT DATA_TAB.
        TRANSFER DATA_TAB TO I_FILENAME.
    ENDLOOP.
    CATCH CX_SY_FILE_OPEN. " The file is already open
      PERFORM close_dataset USING I_FILENAME.
      MESSAGE ID 'ZAM_TXT_FILES' TYPE 'E' NUMBER '001' RAISING FILE_WRITE_ERROR.
    CATCH CX_SY_CODEPAGE_CONVERTER_INIT. " The required conversion is not supported
      PERFORM close_dataset USING I_FILENAME.
      MESSAGE ID 'FES' TYPE 'E' NUMBER '024' RAISING CONVERSION_ERROR.
    CATCH CX_SY_CONVERSION_CODEPAGE. " Internal conversion error
      PERFORM close_dataset USING I_FILENAME.
      MESSAGE ID 'FES' TYPE 'E' NUMBER '026' RAISING CONVERSION_ERROR.
    CATCH CX_SY_FILE_AUTHORITY. " No authorization to access a file
      PERFORM close_dataset USING I_FILENAME.
      MESSAGE ID 'FES' TYPE 'E' NUMBER '012' RAISING ACCESS_DENIED.
      CATCH CX_SY_FILE_IO. "An error occurred when writing to the file.
        PERFORM close_dataset USING FILENAME.
        MESSAGE ID 'FES' TYPE 'E' NUMBER '016' RAISING FILE_WRITE_ERROR.
    CATCH CX_SY_PIPES_NOT_SUPPORTED. " OPEN DATASET with addition FILTER is not supported on the current operating system
      PERFORM close_dataset USING I_FILENAME.
      MESSAGE ID 'ZAM_TXT_FILES' TYPE 'E' NUMBER '002' RAISING UNKNOWN_ERROR.
    CATCH CX_SY_TOO_MANY_FILES. " The maximum number of open files has been exceeded
      PERFORM close_dataset USING I_FILENAME.
      MESSAGE ID 'ZAM_TXT_FILES' TYPE 'E' NUMBER '003' RAISING UNKNOWN_ERROR.
    CATCH CX_ROOT.            " Unknown error
      PERFORM close_dataset USING I_FILENAME.
      MESSAGE ID 'FES' TYPE 'E' NUMBER '006' RAISING UNKNOWN_ERROR.
ENDTRY.
IF SY-SUBRC 0.
    PERFORM close_dataset USING I_FILENAME.
    MESSAGE ID 'ZAM_TXT_FILES' TYPE 'E' NUMBER '000' WITH ls_mess RAISING FILE_WRITE_ERROR.
ENDIF.
PERFORM close_dataset USING I_FILENAME.
FORM close_dataset USING    U_FILENAME.
TRY.
      CLOSE DATASET U_FILENAME.
    CATCH CX_SY_FILE_CLOSE. " No memory space on storage medium
      MESSAGE ID 'FES' TYPE 'E' NUMBER '014' RAISING DISK_FULL.
    CATCH CX_ROOT.            " Unknown error
      MESSAGE ID 'FES' TYPE 'E' NUMBER '006' RAISING UNKNOWN_ERROR.
ENDTRY.
ENDFORM.                    " close_dataset
I have slightly more complex FM. But this also must work.

Similar Messages

Downloading more than 1 file from Application server

Hi Gurus,
I have a requirement in which I have to execute my program once in every 15 minutes which will check if there are any files present in application server. Is so I have to retreive the files to SAP from Application server.
Now I have couple of issues in doing so.
1. How to find the number of files present in that directory?
2. How to retreive more than 1 file at a time from the directory.
Its bit urgent.
Cheers,
Naveen
NOTE: Points will be awarded to every useful answer.

hi,
   hope this FM can help.
PARAMETER: p_file           type pfeflnamel DEFAULT '/usr/sap/tmp'.
data: begin of it_filedir occurs 10.
        include structure salfldir.
data: end of it_filedir.
START-OF-SELECTION.
Get Current Directory Listing for OUT Dir
call function 'RZL_READ_DIR_LOCAL'
       exporting
            name     = p_file
       tables
            file_tbl = it_filedir.
List of files are contained within table it_filedir
loop at it_filedir.
    write: / it_filedir-NAME.
endloop.
rgds
Umakanth

Issue in downloading the file to application server (background)

i am downloading the PIR records to the application server.
the program is running fine .
i m using background coz i m downloading large no of records (>5000)
my actually target is 28000 records. we are spliting it up into atleast 7000 records at a time.
for 1000 records , it is taking     217 secs        (this is fine)
for 2000 records , it is taking    1647 secs        (not satisfactory)
for 5130 records , it is crossed more than 10647 secs   still running (not acceptabe)
why is it increasing in expotenial of time for increase in the records
why not ~1000 sec for 5130 records...??
somebody help me , the hav check the extended check and fine tuned the code.
it is a modification of standard program RM06IBIE for download of PIR records.
regards
venkat.

Hi,
It is definitely because of the poor performace in the code only.
Try using, FOR ALL ENTRIES, SORT BY key fields, DELETE ADJACENT DUPLICATES from the internal table COMPARING key fields, etc.
If you have already used all the possible ones, then check the table from which it is picking the data.
Whether they are using the primary key fields in the where condition, if they are using some other fields, then go for an option of secondary index if required.
Regards,
Santhosh.

Download PDF file from Application Server in BSP

Hello,
We have a requirement on which we want to download a PDF file stored in Application server using BSP application. I have used function module ARCHIVFILE_SERVER_TO_CLIENT but this FM will help only if i want to download file from GUI it won't work in BSP application.
Further i have used class CL_BSP_UTILITY and download method to download file from application server but it is not working in desired manner.
I am attaching my code for your reference:
DATA: BUTTON_EVENT TYPE REF TO CL_HTMLB_EVENT_BUTTON ,
           EVENT TYPE REF TO IF_HTMLB_DATA.
DATA: LS_HOURS LIKE LINE OF GT_HOURS.
DATA STR TYPE STRING.
DATA: OUTPUT TYPE STRING ,
          L_XSTRING TYPE XSTRING ,
           APP_TYPE TYPE STRING.
EVENT = CL_HTMLB_MANAGER=>GET_EVENT( REQUEST ).
DATA PHY_NAME_OUT     TYPE SAPB-SAPPFAD.
IF EVENT IS NOT INITIAL AND EVENT->EVENT_NAME = HTMLB_EVENTS=>BUTTON .
BUTTON_EVENT ?= EVENT .
CASE EVENT->EVENT_SERVER_NAME.
    WHEN 'test' .
      IF GT_HOURS IS NOT INITIAL.
        PHY_NAME_OUT = '/usr/sap/put/form16//01000200_2007.PDF'.
      OPEN DATASET PHY_NAME_OUT FOR INPUT IN TEXT MODE ENCODING DEFAULT.
        IF SY-SUBRC IS INITIAL.
          DO.
            READ DATASET PHY_NAME_OUT INTO STR.
            IF SY-SUBRC IS INITIAL.
            CONCATENATE
                OUTPUT
                str
                cl_abap_char_utilities=>cr_lf
INTO output SEPARATED BY space. "cl_abap_char_utilities=>horizontal_tab
            ELSE.
              EXIT.
            ENDIF.
          ENDDO.
        ENDIF.
*LOOP AT gt_hours INTO ls_hours.
*CONCATENATE
*OUTPUT
*ls_hours-hour
*cl_abap_char_utilities=>cr_lf
*INTO output SEPARATED BY space. "cl_abap_char_utilities=>horizontal_tab
*ENDLOOP.
        APP_TYPE = 'APPLICATION/PDF;charset=utf-16le'.
        CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
          EXPORTING
            TEXT     = OUTPUT
            MIMETYPE = 'APPLICATION/PDF;charset=utf-16le'
          IMPORTING
            BUFFER   = L_XSTRING.
        CONCATENATE CL_ABAP_CHAR_UTILITIES=>BYTE_ORDER_MARK_LITTLE
        L_XSTRING
        INTO L_XSTRING IN BYTE MODE.
        CALL METHOD CL_BSP_UTILITY=>DOWNLOAD
        EXPORTING
        OBJECT_S = L_XSTRING
        CONTENT_TYPE = APP_TYPE
        CONTENT_DISPOSITION = 'attachment;filename=webforms.pdf'
        RESPONSE = _M_RESPONSE
        NAVIGATION = NAVIGATION.
      ENDIF.
ENDCASE.
ENDIF.
From this code i am able to download PDF file but it is not opening in local machine.
If any other way to download file then please suggest.
waiting for ur reply.
Regards,
Gagan

Hi,
you do the file reading wrong:
have a look at:
Local declarations.
data:
    components          type stringtab,
    component           type string,
    path                type text255,
    file                type text255,
    line_length         type i,
   filecontent_binary type sdokcntbin,
    rows                type sytabix,
    content             type sdokcntbin,
    exception           type ref to cx_sy_file_access_error,
    exception_tmf       type ref to cx_sy_too_many_files ,
    block_size          type i value 1022,
    length              type i.
field-symbols:
    <hex_container>     type x.
constants:
    c_dms_blk_size      type i value 2550.
clear file_size.
try.
      open dataset file_name for input in binary mode message message.
    catch cx_sy_file_open into exception.
      case exception->textid.
        when '4182174D03030063000000000A1551B1'. raise access_error.
        when '41825AD355C3005E000000000A1551B1'. raise open_error.
        when '47E8B03AECE5BA07E10000000A114829'. raise already_open.
        when others.
      endcase.
    catch cx_sy_file_authority into exception.
      case exception->textid.
        when '4182174D03030063000000000A1551B1'. raise access_error.
        when 'A70BB8396F051547E10000000A11447B'. raise authority_error.
        when others.
      endcase.
    catch cx_sy_too_many_files into exception_tmf.
      case exception_tmf->textid.
        when '8708B73915F6B645E10000000A11447B'. raise too_many_files.
        when others.
      endcase.
endtry.
do.
    try.
        read dataset file_name into filecontent_binary-line.
        if sy-subrc <> 0.
          add line_length to file_size.
          append filecontent_binary to file_content_binary.
          exit.
        else.
          add line_length to file_size.
          append filecontent_binary to file_content_binary.
        endif.
      catch cx_sy_file_open_mode into exception.
        case exception->textid.
          when '9207B73915F6B645E10000000A11447B'. raise cx_sy_file_open_mode.
          when '9807B73915F6B645E10000000A11447B'. raise read_only.
          when '9E07B73915F6B645E10000000A11447B'. raise not_open.
          when '409D273A2D824360E10000000A11447B'. raise incompatible_mode.
          when others.
        endcase.
    endtry.
enddo.
try.
      close dataset file_name.
    catch cx_sy_file_close into exception.
      case exception->textid.
        when '4182174D03030063000000000A1551B1'. raise access_error.
        when 'C10BB8396F051547E10000000A11447B'. raise close_error.
        when others.
      endcase.
    catch cx_sy_file_access_error into exception.
      case exception->textid.
        when '4182174D03030063000000000A1551B1'. raise access_error.
        when others.
      endcase.
endtry.
Get file size.
split file_name at '/' into table components.
describe table components lines sy-tfill.
read table components into component index sy-tfill.
path = file_name.
replace component in path with ''.
file = component.
call function '/EUH/MMS_GET_FILE_SIZE'
    exporting
      dir_name = path
      file_name = file
    importing
      file_size = file_size.
and function /euh/mms_get_file_size.
""Local Interface:
*" IMPORTING
*"     VALUE(DIR_NAME) TYPE TEXT255
*"     VALUE(FILE_NAME) TYPE TEXT255
*" EXPORTING
*"     VALUE(FILE_SIZE) TYPE SDOK_FSIZE
*" EXCEPTIONS
*"      NO_AUTHORITY
*"      ACTIVITY_UNKNOWN
*"      NOT_A_DIRECTORY
*"      NO_MEDIA_IN_DRIVE
*"      TOO_MANY_ERRORS
*"      TOO_MANY_FILES
*"      BRACKET_ERROR_IN_FILENAME
*"      NO_SUCH_PARAMETER
types: begin of files,
           line like ocs_file,
         end of files.
data: file type files,
     f_subrc like sy-subrc value 0,
     errno(3)    type c,
     errmsg(40) type c,
     pos                        type i,
     len                        type i,
     parameter(120)             type c,
     help1(120)                 type c,
     help2(120)                 type c,
     error_counter              type i.
data:
    dir_list like ocs_file occurs 0 with header line.
CASE sy-subrc.
   WHEN 1. f_subrc = 64.
   WHEN 2. f_subrc = 65.
   WHEN 0.
search dir_name for 'SY-HOST'.    "Is SY-HOST used in directory name?
if sy-subrc = 0.
    pos = sy-fdpos + 7.
    move dir_name(sy-fdpos) to help1.
    move dir_name+pos to help2.
    concatenate help1 sy-host help2 into dir_name.
endif.
do 12 times.                                 " To avoid endless loop
    if dir_name cs '$('.           " Replace parameter by their value
      pos = sy-fdpos + 2.
      if dir_name cs ')'.
        len = sy-fdpos - pos.
        if len le 0.
          f_subrc = 4. exit.
        else.
          parameter = dir_name+pos(len).
          call 'C_SAPGPARAM' id 'NAME' field parameter
                           id 'VALUE' field parameter.
          if sy-subrc = 0.
            len = pos + len + 1.
            pos = pos - 2.
            if pos > 0.
              move dir_name(pos) to help1.
            else.
              help1 = ''.
            endif.
            pos = strlen( dir_name ).
            if pos > len.
              move dir_name+len to help2.
            else.
              help2 = ''.
            endif.
            concatenate help1 parameter help2 into dir_name.
          else.
            f_subrc = 8. exit.
          endif.
        endif.
      else.
        exit.
      endif.
    else.
      exit.
    endif.
enddo.
shift dir_name right deleting trailing '/\ '.
shift dir_name left deleting leading space.
call 'C_DIR_READ_FINISH'                      " this is from RSWATCH0
        id 'ERRNO' field errno
        id 'ERRMSG' field errmsg.
call 'C_DIR_READ_START'
        id 'DIR'    field dir_name
        id 'FILE'   field file_name
        id 'ERRNO' field errno
        id 'ERRMSG' field errmsg.
case sy-subrc.
    when 1.
      case errno.
        when 2 or 20. f_subrc = f_subrc + 66.
        when ' '. f_subrc = f_subrc + 67.
      endcase.
    when 0.
      clear error_counter.
      do.
        clear file.
        clear dir_list.
        call 'C_DIR_READ_NEXT'
            id 'TYPE'   field file-line-type
            id 'NAME'   field file-line-name
            id 'LEN'    field file-line-len
            id 'OWNER' field file-line-owner
            id 'MTIME' field file-line-mtime
            id 'MODE'   field file-line-acc_mode
            id 'ERRNO' field errno
            id 'ERRMSG' field errmsg.   "sy-subrc = 3 is e.g. if return
        if sy-subrc = 0 or sy-subrc = 3."data do not fit into variables
          perform p6_to_date_time_tz(rstr0400) using
                file-line-mtime
                file-line-mod_time
                file-line-mod_date.
          file_size = file-line-len.
          dir_list = file-line.
          append dir_list.
        elseif sy-subrc = 1.                 " nothing (more) found
          exit.
        else.
          if error_counter > 50.
            call 'C_DIR_READ_FINISH'
                id 'ERRNO' field errno
                id 'ERRMSG' field errmsg.
            pos = f_subrc mod 2.
            if pos = 0. f_subrc = f_subrc + 1. endif.
            exit.
          endif.
          add 1 to error_counter.
        endif.
        if sy-index > 1000.
          pos = f_subrc mod 4.
          if pos = 0. f_subrc = f_subrc + 2. endif.
          exit.
        endif.
      enddo.
      call 'C_DIR_READ_FINISH'
           id 'ERRNO' field errno
           id 'ERRMSG' field errmsg.
      if sy-opsys(3) = 'Win' and not ( file_name cs '*' ).
        describe table dir_list lines len.
        if len = 0.
          help1 = file_name.
          translate help1 to upper case.
          translate help1 using
               'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.
          call 'C_DIR_READ_START'
                id 'DIR'    field dir_name
                id 'FILE'   field help1.
          if sy-subrc = 0.
            clear error_counter.
            do.
              clear file.
              clear dir_list.
              call 'C_DIR_READ_NEXT'
                  id 'TYPE'   field file-line-type
                  id 'NAME'   field file-line-name
                  id 'LEN'    field file-line-len
                  id 'OWNER' field file-line-owner
                  id 'MTIME' field file-line-mtime
                  id 'MODE'   field file-line-acc_mode
                  id 'ERRNO' field errno
                  id 'ERRMSG' field errmsg.
              if sy-subrc = 0 or sy-subrc = 3.
                help2 = file_name.
                translate help2 to upper case.
                help1 = file-line-name.
                translate help1 to upper case.
                if help1 = help2.
                  perform p6_to_date_time_tz(rstr0400) using
                     file-line-mtime
                     file-line-mod_time
                     file-line-mod_date.
                  dir_list = file-line.
                  append dir_list.
                endif.
              elseif sy-subrc = 1.
                exit.
              else.
                if error_counter > 50.
                  call 'C_DIR_READ_FINISH'
                      id 'ERRNO' field errno
                      id 'ERRMSG' field errmsg.
                  pos = f_subrc mod 2.
                  if pos = 0. f_subrc = f_subrc + 1. endif.
                  exit.
                endif.
                add 1 to error_counter.
              endif.
              if sy-index > 1000.
                pos = f_subrc mod 4.
                if pos = 0. f_subrc = f_subrc + 2. endif.
                exit.
              endif.
            enddo.
            call 'C_DIR_READ_FINISH'
                 id 'ERRNO' field errno
                 id 'ERRMSG' field errmsg.
          endif.
        endif.
      endif.
endcase.
ENDCASE.
CASE f_subrc.
   WHEN 1 OR 3.             RAISE too_many_errors.
   WHEN 2.                  RAISE too_many_files.
   WHEN 4 OR 5 OR 6 OR 7 OR 70 OR 71.
     RAISE bracket_error_in_filename.
   WHEN 8 OR 9 OR 10 OR 11 OR 74 OR 75.
     RAISE no_such_parameter.
   WHEN 64.                 RAISE no_authority.
   WHEN 65.                 RAISE activity_unknown.
   WHEN 66.                 RAISE not_a_directory.
   WHEN 67.                 RAISE no_media_in_drive.
ENDCASE.
endfunction.
Now you will be able to get the filesize and the file in SDOK format sdokbin.
Okay.
You have to build an request and push the content to the user like:
call method server->response->set_header_field( name = 'Content-Type' value = value ).
describe field file_content_binary-line length line_length in byte mode.
bytes_rest = file-size.
loop at file_content_binaries assigning <file_content_binary>.
    move <file_content_binary>-line to data.
    if bytes_rest <= 0. "mismatch between line values and size
      exit.
    endif.
    if bytes_rest >= line_length.
      call method server->response->append_data( data = data
        length = line_length ).
    else.
      call method server->response->append_data( data = data
        length = bytes_rest ).
    endif.
    bytes_rest = bytes_rest - line_length.
endloop.
This will work.
You can set the header fields like you want. Have also a look at sicf node contentserver
and its handler: CL_HTTP_EXT_CSIF

Downloading file to application server

Hi,
I have requirement of downlaoding some (.doc,.xls,.txt,.ppt) files into application server from sap r/3,the file will be picked by some other 3rd party application.
I was able to achieve it using OPEN DATA SET and TRANSFER,but the data gets encrytped and the actual file is not copied to application server.(example if its .doc file the same file data should be copied to app server and not the encrypted file data like 5%%#.......6234726&&%212).
The encrypted file again displays like exact file as its uploaded when downloaded from app server.
But the file in app server is encrypted,my requirement is to copy the exact file to app server.
This encryption is happening when is OPEN DATA SET and TRANSFER,even the FM ARCHIVFILE_CLIENT_TO_SERVER is also using OPEN DATA SET and TRANSFER only.
Please suggest me any other way to move file to app server other than OPEN DATA SET and TRANSFER.
Thanks,
Phani.

Hi,
If you are downloading the file from application server, you have to use OPEN DATASET CLOSE DATASET.
I think you are making some mistake in your code.
Refer to my code below and let me know if you have any doubt.
*&      Form APL_DOWNLOAD
      DOWNLOADING FILE TO APPLICATION SERVER.
FORM apl_download .
IF NOT i_output[] IS INITIAL.
IF NOT p_pathdl is initial.
    IF v_flag <> c_chk.                          "IF search help was not called.
      CLEAR:     v_filename,
                    v_path.
Building File Name.
      CONCATENATE c_mf018
                  v_date
                  v_time
                  c_extn
             INTO v_filename.
Conactenating File Name and File Path for Dataset parameter.
      CONCATENATE p_pathdl
                  c_slash
                  v_filename
             INTO v_path.
    ELSE.                                        "IF search help was called.
      v_path = p_pathdl.
    ENDIF.
Local Data Declaration.
    DATA v_string TYPE string.
Creating a file of given name at given path on apllication server.
    OPEN DATASET v_path FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
    IF sy-subrc = 0.
Building header and transfering it to the file.
      CONCATENATE text-004 c_sep text-005 c_sep text-006 c_sep
                  text-007 c_sep text-008 c_sep text-009 c_sep
                  text-010 c_sep text-011 c_sep text-012 c_sep
                  text-013 c_sep text-014 c_sep text-015 c_sep
             INTO v_string.
      TRANSFER v_string TO v_path.
      CLEAR v_string.
Reading data from internal table & transfering to file.
      LOOP AT i_output INTO w_output.
        CONCATENATE w_output-lifnr      c_sep w_output-banksrec   c_sep
                    w_output-bankkrec   c_sep w_output-banknrec   c_sep
                    w_output-waers      c_sep w_output-bankssnd   c_sep
                    w_output-bankksnd   c_sep w_output-chainno    c_sep
                    w_output-chainbankt c_sep w_output-chainbanks c_sep
                    w_output-chainbankk c_sep w_output-chainbankn
              INTO v_string.
        TRANSFER v_string TO v_path.
        CLEAR: v_string,
               w_output.
      ENDLOOP.
    ELSE.
      MESSAGE i000 WITH text-040.
      EXIT.
    ENDIF.
    MESSAGE i000 WITH text-038 v_path.
ELSE.
    MESSAGE i000 WITH text-048.
ENDIF.
ELSE.
    MESSAGE i000 WITH text-041.
ENDIF.
ENDFORM.                    " APL_DOWNLOAD

Urgent : Download file from Application Server via Process Chain.

Hi Experts,
My requirement is to download the file from Application Server to local work station using an ABAP Program .
I want including the above ABAP program in a process chain to execute the program daily,
I tried to use ARCHIVFILE_SERVER_TO_CLIENT and GUI_DOWNLOAD but unfortunately both the above FM doesn't support to run through Process chain.
Can any one of you help me to send the code which selects a file from application server, downloads to local system and deletes it.
Thank you very much for spending your precious time in this regard.

Hi Sailekha,
Regarding your case ..
I suggest you to create the program where it run this function: WS_DOWNLOAD.
After it, the program is run by your process chain.
Hopefully it can help you a lot.
Regards,
Niel.
thanks for the points you choose to assign.

How to download files from Application Server of Unix o.s to local director

Hi All,
I am trying to download files from Apllication server of Unix operating Systems to local file in excel sheet format using a z-program.but whenever I am trying to use OPEN dataset ........
it is showing sy-subrc = 8.
Can I have any clew please.
Thanks in advance,
Regards,
AMEER.

Hi Sreekanth,
Thanks a lot for quick reply.I have to download that files from z-program only. I am giving you my code below.
*& Report ZTRAK_DOWNLOAD                                         *
REPORT ZTRAK_DOWNLOAD MESSAGE-ID ZCT                   .
SELECTION-SCREEN BEGIN OF BLOCK DOWNLOAD WITH FRAME TITLE TEXT1.
PARAMETERS :
       SERDIR LIKE RLGRAP-FILENAME DEFAULT '/usr/trak',
       LOCDIR LIKE RLGRAP-FILENAME DEFAULT 'C:\Trak'.
SELECTION-SCREEN END OF BLOCK DOWNLOAD .
SELECTION-SCREEN BEGIN OF BLOCK INFO2 WITH FRAME.
       SELECTION-SCREEN COMMENT 1(79) TEXT2.
       SELECTION-SCREEN SKIP.
       SELECTION-SCREEN COMMENT 1(79) TEXT3.
SELECTION-SCREEN END OF BLOCK INFO2 .
SELECTION-SCREEN BEGIN OF BLOCK INFO3 WITH FRAME.
       SELECTION-SCREEN COMMENT 1(79) TEXT4.
       SELECTION-SCREEN SKIP.
       SELECTION-SCREEN COMMENT 1(79) TEXT5.
        SELECTION-SCREEN SKIP.
       SELECTION-SCREEN COMMENT 1(79) TEXT6.
       SELECTION-SCREEN SKIP 1.
       SELECTION-SCREEN COMMENT 1(79) TEXT7.
       SELECTION-SCREEN SKIP 2.
       SELECTION-SCREEN COMMENT 1(79) TEXT8.
SELECTION-SCREEN SKIP 1.
       SELECTION-SCREEN COMMENT 1(79) TEXT9.
SELECTION-SCREEN END OF BLOCK INFO3.
*- Internal Table to output data in Excel
DATA: BEGIN OF tab_excel OCCURS 0,
        col1(50),
        col2(132),
        col3(255),
        col4(100),
        col5(100),
        col6(50),
        COL7(60),
        col8(30),
        col9(30),
        col10(30),
        col11(20),
        col12(15),
        col13(15),
      END OF tab_excel.
DATA: FILE LIKE RLGRAP-FILENAME .
DATA: W_DATASET(80).
INITIALIZATION.
TEXT1 = 'Download Reports'.
TEXT2 = 'The Program downloads the reports generated by Trak'.
TEXT3 = 'Utility from Server to Local PC.'.
TEXT4 = 'Check the following before executing the Program.'.
TEXT5 = '     1. A valid Server path is provided.'.
TEXT6 = '     2. A valid Local PC path is provided.'.
TEXT7 = '     3. Local PC has 10 MB free space.'.
TEXT8 = 'The report can be executed in the forground.'.
TEXT9 =
'The report should be executed after execution of Transaction TRAK'.
AT SELECTION-SCREEN.
IF SERDIR EQ ''.
MESSAGE E001(ZCT).
ENDIF.
IF LOCDIR EQ ''.
MESSAGE E002(ZCT).
ENDIF.
START-OF-SELECTION.
Download ABAP Development Summary Report
FILE = '\ABAP_Report_Developments.XLS'.
CONCATENATE LOCDIR FILE INTO FILE.
W_DATASET = '/ABAP_Report_Developments.dat'.
CONCATENATE SERDIR W_DATASET INTO W_DATASET.
PERFORM INIT.
Download BDC Development Report
FILE = '\BDC_Developments_Report.XLS'.
CONCATENATE LOCDIR FILE INTO FILE.
W_DATASET = '/BDC_Developments_Report.dat'.
CONCATENATE SERDIR W_DATASET INTO W_DATASET.
PERFORM INIT.
Download Development Summary Report
FILE = '\Developments_Summary_Report.XLS' .
CONCATENATE LOCDIR FILE INTO FILE.
W_DATASET = '/Developments_Summary_Report.dat'.
CONCATENATE SERDIR W_DATASET INTO W_DATASET.
PERFORM INIT.
Download Enhancement Development Report
FILE = '\Enhancement_Developments_Report.XLS'.
CONCATENATE LOCDIR FILE INTO FILE.
W_DATASET = '/Enhancement_Developments_Report.dat'.
CONCATENATE SERDIR W_DATASET INTO W_DATASET.
PERFORM INIT.
Download field exit Development Report
FILE = '\Field_Exit_Developments_Report.XLS'.
CONCATENATE LOCDIR FILE INTO FILE.
W_DATASET = '/Field_Exit_Developments_Report.dat'.
CONCATENATE SERDIR W_DATASET INTO W_DATASET.
PERFORM INIT.
Download Frequency & Purpose Report
FILE = '\Frequency_And_Purpose_Report.XLS'.
CONCATENATE LOCDIR FILE INTO FILE.
W_DATASET = '/Frequency_And_Purpose_Report.dat'.
CONCATENATE SERDIR W_DATASET INTO W_DATASET.
PERFORM INIT.
Download Function Group Developments Report
FILE = '\FunctionGroup_Developments_Report.XLS'.
CONCATENATE LOCDIR FILE INTO FILE.
W_DATASET = '/FunctionGroup_Developments_Report.dat'.
CONCATENATE SERDIR W_DATASET INTO W_DATASET.
PERFORM INIT.
Download Function Module Developments Report
FILE = '\FunctionModule_Developments_Report.XLS' .
CONCATENATE LOCDIR FILE INTO FILE.
W_DATASET = '/FunctionModule_Developments_Report.dat'.
CONCATENATE SERDIR W_DATASET INTO W_DATASET.
PERFORM INIT.
Download Include Developments Report
FILE = '\Include_Developments_Report.XLS'.
CONCATENATE LOCDIR FILE INTO FILE.
W_DATASET = '/Include_Developments_Report.dat'.
CONCATENATE SERDIR W_DATASET INTO W_DATASET.
PERFORM INIT.
Download UserGroup Developments Report
FILE = '\UserGroup_Developments_Report.XLS'.
CONCATENATE LOCDIR FILE INTO FILE.
W_DATASET = '/UserGroup_Developments_Report.dat'.
CONCATENATE SERDIR W_DATASET INTO W_DATASET.
PERFORM INIT.
Download Modified_Standard_SAP_Objects_Report
FILE = '\Modified_Standard_SAP_Objects_Report.XLS' .
CONCATENATE LOCDIR FILE INTO FILE.
W_DATASET = '/Modified_Standard_SAP_Objects_Report.dat'.
CONCATENATE SERDIR W_DATASET INTO W_DATASET.
PERFORM INIT.
Download Include Developments Report
*FILE = '\Include_Developments_Report.XLS'.
*CONCATENATE LOCDIR FILE INTO FILE.
*W_DATASET = '/Include_Developments_Report.dat'.
*CONCATENATE SERDIR W_DATASET INTO W_DATASET.
*PERFORM INIT.
Download SAP Script Developments Report
FILE = '\SAP_Scipt_Developments_Report.XLS'.
CONCATENATE LOCDIR FILE INTO FILE.
W_DATASET = '/SAP_Scipt_Developments_Report.dat'.
CONCATENATE SERDIR W_DATASET INTO W_DATASET.
PERFORM INIT.
Download Transaction Developments Report
FILE = '\Transaction_Developments_Report.XLS'.
CONCATENATE LOCDIR FILE INTO FILE.
W_DATASET = '/Transaction_Developments_Report.dat'.
CONCATENATE SERDIR W_DATASET INTO W_DATASET.
PERFORM INIT.
Download User Exits Developments Report
FILE = '\UserExits_Reports.XLS'.
CONCATENATE LOCDIR FILE INTO FILE.
W_DATASET = '/UserExits_Reports.dat'.
CONCATENATE SERDIR W_DATASET INTO W_DATASET.
PERFORM INIT.
Download ABAP Query Developments Report
FILE = '\ABAPQuery_Developments_Reports.XLS'.
CONCATENATE LOCDIR FILE INTO FILE.
W_DATASET = '/ABAPQuery_Developments_Reports.dat'.
CONCATENATE SERDIR W_DATASET INTO W_DATASET.
PERFORM INIT.
Download Functional Area Developments Report
FILE = '\FunctionalArea_Developments_Report.XLS'.
CONCATENATE LOCDIR FILE INTO FILE.
W_DATASET = '/FunctionalArea_Developments_Report.dat'.
CONCATENATE SERDIR W_DATASET INTO W_DATASET.
PERFORM INIT.
MESSAGE S003(ZCT) WITH LOCDIR.
END-OF-SELECTION.
This routine checks whether file exists if yes downloads it to
the Local PC
FORM INIT.
OPEN DATASET W_DATASET FOR INPUT IN TEXT MODE ENCODING DEFAULT.
DO.
   IF SY-SUBRC <> 0.
      EXIT.
   ENDIF.
   READ DATASET W_DATASET INTO tab_excel.
   APPEND tab_excel.
   CLEAR tab_excel.
ENDDO.
     PERFORM DOWNLOAD_FILE.
ENDFORM.
This routine downloads the data in an XL format on local PC
FORM Download_File .
CALL FUNCTION 'WS_DOWNLOAD'
            EXPORTING
                 FILENAME                = FILE
                 FILETYPE                = 'DAT'
            TABLES
                 DATA_TAB                = tab_excel
            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 <> 0.
     message ''.       " Error in file transfer
    ELSE.
      CLEAR TAB_EXCEL.
      REFRESH TAB_EXCEL.
      FILE = ''.
      W_DATASET = ''.
    ENDIF.
ENDFORM.
I have created those files in Application Server running in another z-program in background mode.Then I am trying to download those files using above the program.I am creating those trak/Trak files manually and I can able to see those files in A.S level.But when downloading the same files I am facing the problem.
regards,
Ameer

How to download file from application server

Hi Experts,
              I developed report and execute in background mode. for this i used Open dataset transfer and close dataset . i got the requried output . But in this case user want downloaded file on presentation server so can anyone tell me How to download file from application server?
i know it is possible through Tcode CG3Y. but i want code in program.

This code will download a file to your Client package by package, so it will also work for huge files.
*& Report ZBI_DOWNLOAD_APPSERVER_FILE
REPORT zbi_download_appserver_file.
PARAMETERS: lv_as_fn TYPE sapb-sappfad
DEFAULT '/usr/sap/WBP/DVEBMGS00/work/ZBSPL_R01.CSV'.
PARAMETERS: lv_cl_fn TYPE string
DEFAULT 'C:\Users\atsvioli\Desktop\Budget Backups\ZBSPL_R01.CSV'.
START-OF-SELECTION.
CONSTANTS blocksize TYPE i VALUE 524287.
CONSTANTS packagesize TYPE i VALUE 8.
TYPES ty_datablock(blocksize) TYPE x.
DATA lv_fil TYPE epsf-epsfilnam.
DATA lv_dir TYPE epsf-epsdirnam.
DATA ls_data TYPE ty_datablock.
DATA lt_data TYPE STANDARD TABLE OF ty_datablock.
DATA lv_block_len TYPE i.
DATA lv_package_len TYPE i.
DATA lv_subrc TYPE sy-subrc.
DATA lv_msgv1 LIKE sy-msgv1.
DATA lv_processed_so_far TYPE p.
DATA lv_append TYPE c.
DATA lv_status TYPE string.
DATA lv_filesize TYPE p.
DATA lv_percent TYPE i.
"Determine size
SPLIT lv_as_fn AT '/' INTO lv_dir lv_fil.
CALL FUNCTION 'EPS_GET_FILE_ATTRIBUTES'
    EXPORTING
      file_name      = lv_fil
      dir_name       = lv_dir
    IMPORTING
      file_size_long = lv_filesize.
"Open the file on application server
OPEN DATASET lv_as_fn FOR INPUT IN BINARY MODE MESSAGE lv_msgv1.
IF sy-subrc <> 0.
    MESSAGE e048(cms) WITH lv_as_fn lv_msgv1 RAISING file_read_error.
    EXIT.
ENDIF.
lv_processed_so_far = 0.
DO.
    REFRESH lt_data.
    lv_package_len = 0.
    DO packagesize TIMES.
      CLEAR ls_data.
      CLEAR lv_block_len.
      READ DATASET lv_as_fn INTO ls_data MAXIMUM LENGTH blocksize LENGTH lv_block_len.
      lv_subrc = sy-subrc.
      IF lv_block_len > 0.
        lv_package_len = lv_package_len + lv_block_len.
        APPEND ls_data TO lt_data.
      ENDIF.
      "End of file
      IF lv_subrc <> 0.
        EXIT.
      ENDIF.
    ENDDO.
    IF lv_package_len > 0.
      "Put file to client
      IF lv_processed_so_far = 0.
        lv_append = ' '.
      ELSE.
        lv_append = 'X'.
      ENDIF.
      CALL FUNCTION 'GUI_DOWNLOAD'
        EXPORTING
          bin_filesize         = lv_package_len
          filename             = lv_cl_fn
          filetype             = 'BIN'
          append               = lv_append
          show_transfer_status = abap_false
        TABLES
          data_tab             = lt_data.
      lv_processed_so_far = lv_processed_so_far + lv_package_len.
      "Status display
      lv_percent = lv_processed_so_far * 100 / lv_filesize.
      lv_status = |{ lv_percent }% - { lv_processed_so_far } bytes downloaded of { lv_filesize }|.
      CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
        EXPORTING          "percentage = lv_percent - will make it fash
          text = lv_status.
    ENDIF.
    "End of file
    IF lv_subrc <> 0.
      EXIT.
    ENDIF.
ENDDO.
"Close the file on application server
CLOSE DATASET lv_as_fn.

How to download a file from application server to presentation server

Hi experts,
I want to download a file from application server to presentaion server, file contaims three fields customer name, customer email id and status..
help me out i m new into sap.

Dear Aditya,
Please check below thread
http://scn.sap.com/thread/1010164
it will help you.
BR
Atul

How can i transfer more than one file from server to client

Hi,
our requirement is transfer more than one files from server to client using the
webutil_file_transfer.as_to_client_with_progress.One file transfer is already working in our system.If anybody know the solution please inform
regards
mat

just an idea ...
for this purpose let us put aside security concerns and other potential problems....
-- Get the content of a server directory with Filter and create zip file
1) create a class that implements java.io.FilenameFilter ...
2) define accept() method ...
3) call File.list() with the filter as a parameter. The returned array of strings will have all the names that passed through the accept() filter
4) use java.util.Zip to create ZIP file on the server side
-- I think it is better to create this functionality as a separate Java class, put it in required folder and after it
-- use Forms->Program->"Import Java class" to create pl/sql wrappers, than to create wrappers for all classes and code in pl/sql
5) use webutil to transfer file on the client
6) use Java on client side to unzip transferred file
if you think this is not too complicated, you should try ...
Regards,
Vladimir

Can I download more than one application, with the free trial?

I'm interested in Illustrator and Photoshop, more immediately. However, will possibly be looking at a full individual subscription, at a later time. Is it possible to download more than one application, for a free trial, at a time?

Jacob Bugge wrote:
It is quite possible, but you may wish to start by downloading the trial the of the first application and start using it before you download the next one, because that will give you more total tryout time than if you download both simultaneously.
I thought the trial period of 30 days starts from the day you use, not from the day you download/install.

Error in Downloading the Text file on Application Server

Hi All,
          I am working on ECC6.0. I have written a program in whcih I am downloading the text file on
          application server in UTF-8 format. However when I am opening this file in Excel I am getting
          garbage value for some characters(as Excel does not support UTF-8 format). So now I
          want to download the data on application server in text file in non unicode format(Like ANSI or
          other non unicode format) which is supported by excel. When I am writing the code as
          OPEN DATASET DN_FILE FOR OUTPUT IN LEGACY TEXT MODE it is giving me dump saying
          CHARACTER CONVERSION FROM CODE PAGE '4102' to CODEPAGE '1100' NOT POSSIBLE.
          Same in case if I add the code OPEN DATASET DN_FILE FOR OUTPUT IN LEGACY TEXT
          MODE CODE PAGE '8000' is also giving dump.
          So please let me know how can I download the file in non unicode format ?
          Any help would be greatly appricated.
Thanks & Regards
Jitendra Gujarathi.

OPEN DATASET l_filename FOR INPUT IN TEXT MODE ENCODING NON-UNICODE IGNORING CONVERSION ERRORS.
CHECK sy-subrc EQ 0.
DO.
    CLEAR wa_file_content.
    READ DATASET l_filename INTO wa_file_content.
    IF sy-subrc EQ 0.
      APPEND wa_file_content TO it_file_content.
    ELSE.
      EXIT.
    ENDIF.
ENDDO.
CLOSE DATASET l_filename.
t_filedata[] = it_file_content[].
can you use like this.

Error in PDF Conversion while downloading file from application server

Hi,
I am facing a problem in which i have to download file from application server which is a PDF file (output of SAP Script). I am downloading this file using following code in BSP technology:
* event handler for data retrieval
EMPCD = REQUEST->GET_FORM_FIELD( 'emp' ).
MONTH = REQUEST->GET_FORM_FIELD( 'mn' ).
YEAR = REQUEST->GET_FORM_FIELD( 'yr' ).
W_IND = 'N' .
DATA : wa_zform16 type zform16.
DATA : file_path type string.
DATA : l_pdf_len type string.
DATA STR TYPE STRING.
DATA: OUTPUT    TYPE STRING ,
      L_XSTRING TYPE XSTRING ,
      APP_TYPE TYPE STRING.
DATA: PDF_TABLE TYPE RCL_BAG_TLINE.
DATA PHY_NAME_OUT     TYPE SAPB-SAPPFAD.
concatenate '/usr/sap/put/form16/' EMPCD '_' YEAR '.PDF' into file_path
*PHY_NAME_OUT = '/usr/sap/put/form16/01000200_2007.PDF'.
PHY_NAME_OUT = file_path.
OPEN DATASET PHY_NAME_OUT FOR INPUT IN TEXT MODE ENCODING default.
IF SY-SUBRC IS INITIAL.
DO.
    READ DATASET PHY_NAME_OUT INTO STR.
    IF SY-SUBRC IS INITIAL.
      CONCATENATE
          OUTPUT
          STR
          CL_ABAP_CHAR_UTILITIES=>CR_LF
      INTO OUTPUT.
    ELSE.
      EXIT.
    ENDIF.
ENDDO.
APP_TYPE = 'APPLICATION/PDF'.
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
    EXPORTING
      TEXT     = OUTPUT
            MIMETYPE = 'APPLICATION/PDF'
*            MIMETYPE = 'APPLICATION/PDF;charset=utf-16le'
    IMPORTING
      BUFFER   = L_XSTRING.
CALL METHOD CL_BSP_UTILITY=>DOWNLOAD
    EXPORTING
      OBJECT_S            = L_XSTRING
      CONTENT_TYPE        = APP_TYPE
      CONTENT_DISPOSITION = 'attachment;filename=webforms.pdf'
      RESPONSE            = _M_RESPONSE
      NAVIGATION          = NAVIGATION.
Result of this code is : there is a pop up asking to open or save pdf format and process is complete, but i have problem in downloaded file.
At the time of creation i have put BMP image for signature in PDF file and it is working fine but when i upload that file in Application server and then download it with above used code it save the PDF file but when i open that file so whereever i have used signature that page gives error and could not display that scanned signature.
Can anyone please help me in this regard.
or is there any possibility from which i can download that file just like File transfer from BSP.
Keep in mind that i am using BSP technology so all GUI based function module to download file are not working.
waiting for your reply.....
Regards,
Gagan

Hi Raja,
I have standard sap form for TDS Certificate on which i have include an BMP image for digital signature and download that script into pdf format.While i download that PDF looks ok but it is not working in BSP.
Regards,
Gagan

How to display a file from Application server without downloading it to local drive

I want to dispaly a file from Application server without downloading it to my local system.
i tried the below method but it didn't work.
     CALL METHOD CL_GUI_FRONTEND_SERVICES=>EXECUTE
      EXPORTING
        APPLICATION            = L_FILE
        DEFAULT_DIRECTORY      = L_DIR

Hi,
Use open dataset to read file from application server.
try like this sample code:
data : p_file like ibipparms-path.
data : rec(350) type c.
data: g_delimiter(1) type c value ','.
maintain the file path in p_file. then
open dataset p_file for input in text mode encoding default.
   IF SY-SUBRC = 0.
do n times.
READ dataset p_file into rec.
split rec at g_delimiter into your internal table fields like it-id it-name it-age.
append it.
clear it.
enddo.
close dataset p_file.
Now you have the data in internal table it.

Download text file from application server to client server.

Hi all,
I am facing a format issue while downloading text file from application server to the client machine.
The issue is that, say I have 6 to 10 lines in my text file in application server. but when i store it on the hard drive,
it shoes all the data in a single line. Where as i need to download data in same format as in application server.
Awaiting for your responses.
Regards,
Jose

Hi,
If we want to upload file data from the application server to the internal table, there is no function module or class static method which we can use, we must wirte the code by ourselves.
1. For the file data which has no seperator between field columns.
PARAMETERS p_file TYPE dxfile-filename.
START-OF-SELECTION.
OPEN DATASET p_file IN TEXT MODE ENCODING DEFAULT FOR INPUT.
DO.
    READ DATASET p_file INTO gds_data.
    IF sy-subrc <> 0.
      EXIT.
    ENDIF.
    APPEND gds_data TO gdt_data.
ENDDO.
CLOSE DATASET p_file.2. For the file data which has tab separator between field columns.
DATA: gds_field_split type gts_data.
FIELD-SYMBOLS: <fs_field> TYPE gts_data.
PARAMETERS p_file TYPE dxfile-filename.
START-OF-SELECTION.
OPEN DATASET prf_file IN TEXT MODE ENCODING DEFAULT FOR INPUT.
DO.
    READ DATASET p_file INTO gds_field.
    SPLIT gds_field AT cl_abap_char_utilities=>horizontal_tab
         INTO TABLE gdt_field_split.
   LOOP AT gdt_field_split into gds_field_split.
       gdf_index = gdf_index + 1.
       ASSIGN COMPONENT gdf_index OF STRUCTURE
             gds_data to <fs_field>.
      IF sy-subrc = 0.
          <fs_field> = gds_field_split.
      ENDIF.
   ENDLOOP.
    APPEND gds_data TO gdt_data.
ENDDO.
CLOSE DATASET p_file.
Thanks & regards,
ShreeMohan

Download more than 3 files on application server

Similar Messages

Maybe you are looking for