How to upload file from Application Server?

Dear Friends,
How to upload file from Application Server?
Plz. with example...
Regards,
Dharmesh

hi,
check the code for upload from application server.
tables: kna1.
types: begin of s_file,
         customer type kna1-kunnr,
         country type kna1-land1,
         name     type kna1-name1,
         region   type kna1-regio,
       end of s_file.
*--Internal tables
data: it_file type s_file occurs 0 with header line.
*-- Selection screen
selection-screen: begin of block b1 with frame title text-001.
parameter: p_file type rlgrap-filename default 'C:/customer.txt'
obligatory.
selection-screen: end of block b1.
*-- At selection screen
at selection-screen on value-request for p_file.
perform file_help using p_file.
*-- Process File
start-of-selection.
perform upload_file using p_file.
*-- write File data to o/p
end-of-selection.
perform write_data.
*&      Form file_help
form file_help using    p_p_file.
data: l_filepath type ibipparms-path.
call function 'F4_FILENAME'
EXPORTING
PROGRAM_NAME        = SYST-CPROG
DYNPRO_NUMBER       = SYST-DYNNR
FIELD_NAME          = ' '
   importing
     file_name           = l_filepath
p_p_file = l_filepath.
endform.                    " file_help
*&      Form upload_file
form upload_file using    p_p_file.
call function 'WS_UPLOAD'
   exporting
     filename                      = p_p_file
     filetype                      = 'DAT'
IMPORTING
FILELENGTH                    =
    tables
      data_tab                      = it_file
   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
     no_authority                  = 10
     others                        = 11
if sy-subrc <> 0.
    message i001.
endif.
endform.                    " upload_file
*&      Form write_data
form write_data .
loop at it_file.
    write:/ it_file-customer, it_file-country, it_file-name,
            it_file-region.
endloop.
endform.
regards,
keerthi.

Similar Messages

How to upload logo from application server

Hi all,
Plz show me the way how to upload logo from application server into sap script.
What is NGT.
Thanks in advance
Venkat

Hi
You have to import your logo in SAP by SE78 before using it in a SAPSCRIPT.
So have you done it?
If yes, it depends on how you have imported the logo:
- As std text:
INCLUDE <LOGO TEXT> OBJECT TEXT ID ST LANGUAGE <LANGUAGE>
- As graphic:
BITMAP <LOGO GRAPHIC> OBJECT GRAPHICS ID BMAP TYPE BCOL
Max

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 transfer file from application server to presentation server in background?

Hi Experts,
How to transfer file from application server to presentation server in background?
Thanks in advance
Namita

Thanks Raman and Challa,
We want to move file from application server to Shared folder, not on local machine. We checked FM which you guys have provided but those are not able to read file from application server.
We need this program to run in background so that we can use this in daily process chain.
Appreciate your inputs on this.
Thanks,
Namita

How to delete file from application server(Unix)

Hi All,
Using the below code downloading a file from application server(Unix) to client machine. I want to delete the file from application server once it is downloaded to client
We work on Forms 11.1.1.4.0 and Oracle DB 10g. Client machine are Windows 7.
BEGIN
IF webutil_file_transfer.AS_to_Client
(clientFile => Name_In('global.g_file_name')
,serverFile => ls_AppServer_Loc)THEN
message('Data exported Successfully');
ELSE
message('File download from Application Server failed');
END IF;
EXCEPTION
WHEN OTHERS THEN
message('File download failed: '||SUBSTR(sqlerrm,1,200));
END;
I have search for solution on OTN. Few suggested to use HOST.
Can any one help me how to use Host() built_in to delete the file.
Thanks,
Maddy

Can any one help me how to use Host() built_in to delete the file.
Host('/bin/rm <complete file path>');

Problem in uploading file from Application Server

Hi everyone,
i got a problem in uplaoding a file from application server.i am having two folder (one folder name is current and another one is processed)in application server. In current folder i am having N no of files.I want to upload all the files names into one internal table and i want to process one by one file.After processing each file the file should be moved to processed folder and the files should not exist in current folder.All these process must be done everyday.Please rectify my problem asap.

Ramesh,
Take authorization from basis guy.
Use the below code to get the list of files from require directory
*& Report ZDIRFILES                                                   *
REPORT ZDIRFILES    .
PARAMETER: p_fdir            type pfeflnamel DEFAULT '/usr/sap/tmp'.
data: begin of it_filedir occurs 10.
        include structure salfldir.
data: end of it_filedir.
*START-OF-SELECTION
START-OF-SELECTION.
Get Current Directory Listing for OUT Dir
call function 'RZL_READ_DIR_LOCAL'
       exporting
            name     = p_fdir
       tables
            file_tbl = it_filedir.
Now in internal table "it_filedir" will have all your files.
For moving and deleting
report zrich_0001.
Parameters: d1 type localfile default '/usr/sap/TST/SYS/fld1/Data1.txt',
            d2 type localfile default '/usr/sap/TST/SYS/fld2/Data1.txt'.
data: begin of itab occurs 0,
      rec(20) type c,
      end of itab.
data: wa(20) type c.
start-of-selection.
open dataset d1 for input in text mode.
if sy-subrc = 0.
    do.
      read dataset d1 into wa.
      if sy-subrc <> 0.
        exit.
      endif.
      itab-rec = wa.
      append itab.
    enddo.
endif.
close dataset d1.
open dataset d2 for output in text mode.
loop at itab.
    transfer itab to d2.
endloop.
close dataset d2.
delete dataset d1.
Check below FM if required
To move the file to archive directoryuse FMs 'PFL_COPY_OS_FILE'
To Delete 'EPS_DELETE_FILE'.
Don't forgot to reward if useful

How to Upload Smartforms from Application Server

Hi Guys,
I have to upload the SMARTFORMS in to the System.That can be done as follows:
1- Tcode - Smartforms
2- Utilities -> Upload form
3- Give form Name
4- Give path of Form on presentation server and upload.
But I have to give the path of Form from the Application Server. As i have all the forms to be uploaed in New system on the Application Server.
I will be writing the program to program to read XML file(smartform) from application server to internal table and then upload it in the System.
Please let me know if it is possible to upload Smartforms from Application Server?
Regards
Sandeep

Vinod,
Thanks for the reply.
But Actually I want to Automate this process of Uploading the Smartforms.
So I want to directly upload it from Application server.
As it is not possible to upload the Smartforms from Presentation Server Automatically.
In this human Intervention will be required.

How to copy file from application server

Hello experts,
How to copy file from one folder of application server and paste it to other folder of application server(application server is same)?
Is there any function module exists???
thanks in advance
Saurabh

Hi you can use this function module to move a file from application server to another folder on application server.
call function 'WS_FILE_COPY'
           exporting
                destination = m_destination
                source      = m_source
           importing
                return      = return.
Plus u can use this function module to delete the file from that folder from which u want to replace it.
      call function 'WS_FILE_DELETE'
           exporting
                file   = m_source
           importing
                return = return.
The above FM can help u copy a file from one folder to another and delete the file from that folder.

How to get files from application server

Hi
I got a requirement like i have some n number of file in application server at specified path now i want to get that files from application server to presentation server.
Please help me out.
Thanks in advance.
Regards
Krishna

HI.
Use this Unix script. Give IP and other details as ur requirment.
Setup variables. #
Input Directory > #
Output Directory > #
Source System > #
Target System > #
Files FTPed > lxxxxx* #
set -x
DATE="`date +%y%m%d%H%M%S`"
FTP destination details.
ftp_host=""
ftp_user=" "
ftp_pass="a"
ftp_remote_dir=" "
File path and names
host_dir=""
ftp_local_file="lxxxx"
ftp_local_file_dir=" "
ftp_arch_dir=" "
ftp_output=" "
FTP
if -f $ftp_local_file_dir ; then
ftp -i -n -d -v $ftp_host<<EOINPUT >$ftp_output
user $ftp_user $ftp_pass
cd $ftp_remote_dir
lcd $host_dir
mget $ftp_local_file
bye
EOINPUT
mv $ftp_local_file_dir $ftp_arch_dir$ftp_remote_file_name
else
echo "ERROR: Local $ftp_local_file_dir does not exist.">>$ftp_output;
fi
exit;
Edited by: Jay on Feb 14, 2008 5:36 PM

How to upload data from application server

Hi,
please help me out in uploading the data from application server which is a tab delemited file into an internal table.
Thanks
kumar

hi,
Use this sample code as an example.
table declaration
tables: mara.
*data declaration
data: begin of it_lfa1 occurs 0,
vendor like lfa1-lifnr,
land1 like lfa1-land1,
name1 like lfa1-name1,
ort01 like lfa1-ort01,
end of it_lfa1.
selection screen
selection-screen: begin of block b1 with frame.
parameters: p_file type rlgrap-filename obligatory.
selection-screen: end of block b1.
at selection screen
at selection-screen on value-request for p_file.
*& start-of-selection
start-of-selection.
perform transfer_file using p_file.
perform write.
*& Form transfer_file
text
-->P_P_FILE text
form transfer_file using p_p_file.
data: l_message(30) type c.
***opening dataset for reading
open dataset p_p_file for input in text mode encoding default message
l_message.
if sy-subrc ne 0.
message i001(zerr2) with p_p_file.
endif.
*******transferring data from file to app server.
do.
read dataset p_p_file into it_lfa1.
if sy-subrc = 0.
append it_lfa1.
clear it_lfa1.
else.
exit.
endif.
enddo.
*******closing dataset
close dataset p_p_file.
endform. " transfer_file
*& Form write
text
--> p1 text
<-- p2 text
form write .
loop at it_lfa1.
write:/ it_lfa1-vendor,
it_lfa1-land1,
it_lfa1-name1,
it_lfa1-ort01.
endloop.
endform. " write
Thanks
Aneesh.

Problem while uploading file from application server to internal tab in BG

Hi all,
When i see the file in application server.data is like this
#################00\);_(#####}#-#}###############################00\);_(#####}#-#}###############################00\);_(*#####}#-#}#########
###################}###}#############A#############???#00\);_(*#################;_(@_) ########???#        ########???#        ########???###
#######???#########}###}#############)##############}##00\);_(*#################;_(@_) ############        ############        ##############
###################}#A#}#############:##############}##00\);_(#################;_(@_) }###}##############################00\);_(*##########
#######???#########}#-#}#############F#################00\);_(#####}###}#############@#################00\);_(#################;_(@_) #####
###################}#-#}#############3#################00\);_(#####}#U#}#############E#################00\);_(#################;_(@_) #####
Because the csv which is uploaded has dropdowns and some formattings.
when download from tcode cg3y i am getting correct file
When try to use open(binary mode) and read dataset i getting data as it is (junk).
i need to process in background.
Any help.
Rhea.

upload file to string format
begin of ty_tab,
string type char200,
end of ty_tab.
loop at ty_tab into string
use statement replace string into tab deliminated fromat(particular occurance in string)
now call class to break string at tab into fields
endloop.
DATA : BEGIN OF i_data OCCURS 0,
        data(200)    TYPE c,       "To hold Upload file data
       END OF i_data.
OPEN DATASET v_str FOR INPUT
                          IN TEXT MODE
                          ENCODING DEFAULT IGNORING CONVERSION ERRORS.
    IF sy-subrc EQ 0.
      DO.
*Read a line from input file
        READ DATASET v_str INTO i_data-data.
        IF sy-subrc NE 0.
          EXIT.
        ENDIF.
*Append record to an internal table
        APPEND i_data.
        CLEAR: i_data.
      ENDDO.
*Close the file
      CLOSE DATASET v_str.
*---Start of inserti
LOOP AT i_data.
        REPLACE ALL OCCURRENCES OF '"' IN i_data WITH '#'.
        SPLIT i_data AT cl_abap_char_utilities=>horizontal_tab
                            INTO i_doc-pvaudt
                                 i_doc-pvpate
                                 i_doc-vecatc
                                 i_doc-vhvend
                                 i_doc-vhidt8
                                 i_doc-vhinvn
                                 i_doc-vhhexp
                                 i_doc-vhiref.

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 delete files from application server posted in last 30 days

I have some files in application server posted through ABAP program with the below format
\.\.\.abcd_20110209_111209.csv (with date and time). I need to delete those files which was posted in last 30 days through another program. Could you plaese help me to achieve the requirement?

There are many ways you can delete/archive files in application servers.
1. Depending on the application server, usually administrators setup delete/archive programs. For e.g. if the application server is a UNIX, then the unix admin will write a script to delete/move older files. - this is the most common approach I've seen.
If you have to achieve this through ABAP then,
1. You can get the script from the server admin and then use that script to create an external system command through SM69/49 and use the function module SXPG_COMMAND_EXECUTE to execute it.
2. You can also look at FM EPS_DELETE_FILE and see if it fits the bill for you.
There are many other possibilities too and each one has its own pros/cons. So you'll have to choose the right one for your requirement.

How to upload file on Application Server with Forms 6i?

Please, I need to upload .csv file from local to Application Server, I think to use .jsp application, but I don't know where I had to put it...Apache can't read .jsp file without Tomcat? If I launch my .jsp file from Apache/htdocs directory can't view .jsp code (Method Not Allowed)...method is POST...any idea? Thanks in advance!

Hi,
You could write a java bean to get the file from the client and to upload to App Server. And, you simply use it in Forms 6i.
Also, you could use d2kwutil (not tried though. you could search this forum and get an idea of that).
Of course, For your information, You could use WebUtil (in Forms 10g / 10.1.2) which has the functionality.
HTH.
Regards,
Arun

Error in uploading file from Application server

Hi
My scenario is file->XI->Idoc.I am using a senedre file adpator
My adaptar cofiguration is
transport protocol NFS
message protocol file
Adaptor engine integration server
source directory .\ (application server path of XI)
file name invoice.xml
quality of servise exactly once
poll interval 10 sec
proceesing mode test
processing seq by namefile type text
But the problem is adaptor monitoring it is showng that it it polled succesfully with green signal
but in the message montoring it is showing "Canceled with errors"
in the detail list it is showing the error category is XI_J2EE_MESSAGING_SYSTEM
and the error code is CALL_CUSTOMER_ERROR
Any one can help me in this matter?
Thanks
Debraj Roy

Debraj,
in SXMB_MONI, go through the "Trace" header section of the message and find the exact point in which the exception occurs. Paste it here.
At a glance, it seems an RFC call that fails inside the mapping... Do you use JCo & UDF in the mapping to do some lookup/check in R/3?
Let me know.
Alex

How to upload file from Application Server?

Similar Messages

Maybe you are looking for