How to upload a file on HTTP server

Hi All,
I am porting a flex project to HTML5 where I need to upload a file on HTTP server.
I do google and tried to find out a solutions.
I could see following article on HTTP upload
https://developer.tizen.org/dev-guide/2.2.1/org.tizen.web.appprogramming/html/tutorials/w3 c_tutorial/comm_tutorial/uploa…
Uploading Files using AJAX | Holyhoehle's Blog
File uploads using Node.js: once again | Componentix blog
All article make use of file object for uploading.
Unfortunately I do not have file object but have complete file path.
is it possible to upload a file without showing a file selection dialog or without doing drag/drop.?
Please help me in right direction for HTTP upload.
Regards,
Alam

If you have a file path, you can read file like Base64 string:
var fileStr = window.cep.fs.readFile(filePath, window.cep.encoding.Base64).data;
then you can send this Base64 string to server. I'm using xmlhttpReguest for sending data to server (i'm using JSON format).
And save file on server (Base64 string).
window.cep.fs... functions - for working with File System. (read, write ...)
Example for working with files - demo where to find it?
CEP APIs information - Adobe CEP APIs | Adobe Developer Connection

Similar Messages

How to upload XML file from Application server.

Hi,
How to upload XML file from Application server.Please tell me as early as possible.
Regards,
Sagar.

Hi,
parameters : p_file type ibipparms-path obligatory.
***DOWNLOAD---->SAP INTO EXCEL
filename1 = p_file.
call function 'GUI_DOWNLOAD'
exporting
BIN_FILESIZE                    =
    filename                        = filename1
    filetype                        = 'ASC'
APPEND                          = ' '
WRITE_FIELD_SEPARATOR           = 'X'
HEADER                          = '00'
TRUNC_TRAILING_BLANKS           = ' '
WRITE_LF                        = 'X'
COL_SELECT                      = ' '
COL_SELECT_MASK                 = ' '
DAT_MODE                        = ' '
CONFIRM_OVERWRITE               = ' '
NO_AUTH_CHECK                   = ' '
CODEPAGE                        = ' '
IGNORE_CERR                     = ABAP_TRUE
REPLACEMENT                     = '#'
WRITE_BOM                       = ' '
TRUNC_TRAILING_BLANKS_EOL       = 'X'
WK1_N_FORMAT                    = ' '
WK1_N_SIZE                      = ' '
WK1_T_FORMAT                    = ' '
WK1_T_SIZE                      = ' '
IMPORTING
FILELENGTH                      =
tables
    data_tab                        = it_stock
FIELDNAMES                      =
exceptions
   file_write_error                = 1
   no_batch                        = 2
   gui_refuse_filetransfer         = 3
   invalid_type                    = 4
   no_authority                    = 5
   unknown_error                   = 6
   header_not_allowed              = 7
   separator_not_allowed           = 8
   filesize_not_allowed            = 9
   header_too_long                 = 10
   dp_error_create                 = 11
   dp_error_send                   = 12
   dp_error_write                  = 13
   unknown_dp_error                = 14
   access_denied                   = 15
   dp_out_of_memory                = 16
   disk_full                       = 17
   dp_timeout                      = 18
   file_not_found                  = 19
   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.
Regards,
Deepthi.

How to Upload a File on the Server

Hi,
I want to upload a file on the server from Windows Mobile Application. Can anyone please suggest me a way to do so?
Thanks in advance,
Saheli Sur

Following links should also help
http://blog.anthonybaker.me/2013/06/how-to-upload-file-from-windows-phone.html
http://stackoverflow.com/questions/19954287/how-to-upload-file-to-server-with-http-post-multipart-form-data/20000831#20000831
Gaurav Khanna | Microsoft .NET MVP | Microsoft Community Contributor

How to upload large file with http via post

Hi guys,
Does anybody know how to upload large file (>100 MB) use applet to servlet with http via post method? Thanks in advance.
Regards,
Mark.

Hi SuckRatE
Thanks for your reply. Could you give me some client side code to upload a large file. I use URL to connect to server. It throws out of memory exception. The part of client code is below:
// connect to the servlet
URL theServlet = new URL(servletLocation);
URLConnection servletConnection = theServlet.openConnection();
// inform the connection that we will send output and accept input
servletConnection.setDoInput(true);
servletConnection.setDoOutput(true);
// Don't used a cached version of URL connection.
servletConnection.setUseCaches (false);
servletConnection.setDefaultUseCaches(false);
// Specify the content type that we will send text data
servletConnection.setRequestProperty("Content-Type",
+"application/octet-stream");
// send the user string to the servlet.
OutputStream outStream = servletConnection.getOutputStream();
FileInputStream filein = new FileInputStream(largeFile);
//BufferedReader in = new BufferedReader(new InputStreamReader
+(servletConnection.getInputStream()));
//System.out.println("tempCurrent = "+in.readLine());
byte abyte[] = new byte[2048];
int cnt = 0;
while((cnt = filein.read(abyte)) > 0)
outStream.write(abyte, 0, cnt);
filein.close();
outStream.flush();
outStream.close();
Regards,
Mark.

How to upload a file to the server using ajax and struts

With the following code iam able to upload a file ato the server.
But my problem is It is working fine if iam doing in my system nd when iam trying to
access theis application from someother system in our office which are connected through lan
iam getting an error called 500 i,e internal server error.
Why it is so???????
Plz help me????????
It is required in my project.
I want the code to access from every system.
My exact requirement is i have to upload a file to the server and retrive its path and show it in the same page from which we
have uploaded a file.
Here the file has to be uploaded to the upload folder which is present in the server.Iam using Tomcat server.
Any help highly appreciated.
Thanks in Advance
This is my input jsp
filename.jsp
<%@ page language="java" contentType="text/html; charset=ISO-8859-1"
pageEncoding="ISO-8859-1"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
<title>Insert title here</title>
<script type="text/javascript">
alertflag = true;
var xmlHttp;
function startRequest(file1)
     if(alertflag)
     alert("file1");
     alert(file1);
xmlHttp=createXmlHttpRequest();
var video=document.getElementById("filepath").value;
xmlHttp.open("POST","FilePathAction.do",true);
xmlHttp.onreadystatechange=handleStateChange;
xmlHttp.setRequestHeader('Content-Type', application/x-www-form-urlencoded');
xmlHttp.send("filepath="+file1);
function createXmlHttpRequest()
     //For IE
if(window.ActiveXObject)
xmlHttp=new ActiveXObject("Microsoft.XMLHTTP");
     //otherthan IE
else if(window.XMLHttpRequest)
xmlHttp=new XMLHttpRequest();
return xmlHttp;
//Next is the function that sets up the communication with the server.
//This function also registers the callback handler, which is handleStateChange. Next is the code for the handler.
function handleStateChange()
var message=" ";
if(xmlHttp.readyState==4)
     if(alertflag)
          alert(xmlHttp.status);
if(xmlHttp.status==200)
if(alertflag)
                                   alert("here");
                                   document.getElementById("div1").style.visibility = "visible";
var results=xmlHttp.responseText;
          document.getElementById('div1').innerHTML = results;
else
alert("Error loading page"+xmlHttp.status+":"+xmlHttp.statusText);
</script></head><body><form >
<input type="file" name="filepath" id="filepath" onchange="startRequest(this.value);"/>
</form>
<div id="div1" style="visibility:hidden;">
</div></body></html>
The corresponding action class is FIlePathAction
package actions;
import org.apache.struts.action.Action;
import org.apache.struts.action.ActionForm;
import org.apache.struts.action.ActionForward;
import org.apache.struts.action.ActionMapping;
import javax.servlet.ServletException;
import javax.servlet.http.HttpServletRequest;
import javax.servlet.http.HttpServletResponse;
import java.io.*;
public class FilePathAction extends Action{
     public ActionForward execute(ActionMapping mapping, ActionForm form,
               HttpServletRequest request, HttpServletResponse response)
               throws IOException, ServletException
          String contextPath1 = "";
          String uploadDirName="";
          String filepath="";
                    System.out.println(contextPath1 );
                    String inputfile = request.getParameter("filepath");
                    uploadDirName = getServlet().getServletContext().getRealPath("/upload");
                    File f=new File(inputfile);
FileInputStream fis=null;
FileOutputStream fo=null;
File f1=new File(uploadDirName+"/"+f.getName());
fis=new FileInputStream(f);
     fo=new FileOutputStream(f1);
                    try
     byte buf[] = new byte[1024*8]; /* declare a 8kB buffer */
     int len = -1;
     while((len = fis.read(buf)) != -1)
     fo.write(buf, 0, len);
                    catch(Exception e)
                              e.printStackTrace();
                    filepath=f1.getAbsolutePath();
                    request.setAttribute("filepath", filepath);
                    return mapping.findForward("filepath");
Action-mappings in struts-config.xml
<action path="/FilePathAction"
               type="actions.FilePathAction">
               <forward name="filepath" path="/dummy.jsp"></forward>
          </action>
and the dummy.jsp code is
<%=request.getAttribute("filepath")%>

MESSAGE FROM THE FORUMS ADMINISTRATORS and COMMUNITY
This thread will be deleted within 24 business hours. You have posted an off-topic question in an area clearly designated for discussions
about Distributed Real-time Java. Community members looking to help you with your question won't be able to find it in this category.
Please use the "Search Forums" element on the left panel to locate a forum based on your topic. A more appropriate forum for this post
could be one of:
Enterprise Technologies http://forums.sun.com/category.jspa?categoryID=19
David Holmes

How to upload .CSV file from Application Server

Hi Experts,
    How to upload .CSV file separated by ',' from Application server to an internal table.
Invoice No,Cust No,Item Type,Invoice Date,days,Discount Amount,Gross Amount,Sales Amount,Customer Order No.,Group,Pay Terms
546162,3233,1,9/4/2007,11,26.79,5358.75,5358.75,11264,HRS,11
546163,2645,1,9/4/2007,11,3.07,305.25,305.25,10781,C,11
Actually I read some already answered posts. But still I have some doubts.
Can anybody please send me the code.
Thanks in Advance.

Hi Priya,
Check this code
Yhe logic used here is as follows,
Get all the data into an internal table in the simple format ie: a row with one field contains an entire line
After getting the data, we split each line of the table on every occurrence of the delimiter (comma in your case)
Here, I have named the fields as field01, field02 etc, you could use your own names according to your requirement
parameters: p_file(512).
DATA : BEGIN OF ITAB OCCURS 0,
          COL1(1024) TYPE C,
         END OF ITAB,
         WA_ITAB LIKE LINE OF ITAB.
DATA: BEGIN OF ITAB_2 OCCURS 0,
    FIELD01(256),
    FIELD02(256),
    FIELD03(256),
    FIELD04(256),
    FIELD05(256),
    FIELD06(256),
    FIELD07(256),
    FIELD08(256),
    FIELD09(256),
    FIELD10(256),
    FIELD11(256),
    FIELD12(256),
    FIELD13(256),
    FIELD14(256),
    FIELD15(256),
    FIELD16(256),
   END OF ITAB_2.
DATA: WA_2 LIKE LINE OF ITAB_2.
    OPEN DATASET p_FILE FOR INPUT IN TEXT MODE ENCODING NON-UNICODE.
    IF SY-SUBRC = 8.
      WRITE:/ 'File' , p_FILE , 'cannot be opened'.
      LV_LEAVEPGM = 'X'.
      EXIT.
    ENDIF.
    WHILE SY-SUBRC <> 4.
      READ DATASET p_FILE INTO WA_ITAB.
      APPEND WA_ITAB TO ITAB.
    ENDWHILE.
    CLOSE DATASET p_FILE.
LOOP AT ITAB INTO WA_ITAB.
    SPLIT WA_ITAB-COL1 AT ','    " where comma is ur demiliter
     INTO WA_2-FIELD01 WA_2-FIELD02 WA_2-FIELD03 WA_2-FIELD04
     WA_2-FIELD05 WA_2-FIELD06 WA_2-FIELD07 WA_2-FIELD08 WA_2-FIELD09
     WA_2-FIELD10 WA_2-FIELD11 WA_2-FIELD12 WA_2-FIELD13 WA_2-FIELD14
     WA_2-FIELD15 WA_2-FIELD16.
    APPEND WA_2 TO ITAB_2.
    CLEAR WA_2.
ENDLOOP.
Message was edited by:
        Kris Donald

How to upload a file in application server to an internal table

Hi,
      I am asked to upload a file from application server to internal table. Can you please suggest me the ways to do it or the function module which helps to browse the application server file names.
I have done a program. But its giving problem in searching the files from application server. I am pasting my code for ur review. Please tell me which part i have to correct or suggest me some other ways to do it.
*& Report ZUPLOAD1
REPORT ZUPLOAD1.
type-pools: truxs.
parameters: p_upl_ps radiobutton group g1 default 'X', "upload from pres. server
             p_path type rlgrap-filename,
             p_upl_as radiobutton group g1,   "upload from appln server
             <b>p_dir LIKE filepath-pathintern DEFAULT 'Y_ABAP',
             p_file LIKE filepath-pathintern lower case,</b>
             p_test as checkbox.
constants: c_x value 'X',
           c_tab type c value cl_abap_char_utilities=>horizontal_tab.
types: ty_data(1000) type c.    "structure to hold legacy data
data: i_data type standard table of ty_data. "internal table of ty_data
types: begin of stritab,
      land1 type v_t604-land1, "structure of legacy file.
      stawn type v_t604-stawn,
      bemeh type v_t604-bemeh,
      impma type v_t604-impma,
      minol type v_t604-minol,
      end of stritab.
data: gi_itab type standard table of stritab, "internal table of legacy file
      gw_itab type stritab. "work area
data: i_raw type truxs_t_text_data,
      v_fullpath type string.
at selection-screen on value-request for p_path.
if p_upl_ps = c_x. "if presentation server is selected
perform get_file.
else.            "if application server is selected
perform set_file_path.
perform upload_from_server.
perform split_data.
endif.
form get_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
PROGRAM_NAME        = SYST-CPROG
DYNPRO_NUMBER       = SYST-DYNNR
FIELD_NAME          = ' '
IMPORTING
   FILE_NAME           = p_path.     "getting the file name of pres server
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
I_FIELD_SEPERATOR          =
    I_LINE_HEADER              = 'X'              "converting excel to sap and filling in
    I_TAB_RAW_DATA             = i_raw      "internal table
    I_FILENAME                 = p_path
TABLES
    I_TAB_CONVERTED_DATA       = gi_itab
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.
endform.
form set_file_path.                 "Getting the file path of application server
data: lv_file type p_file.
      lv_file = p_file.
      CALL FUNCTION 'FILE_GET_NAME_USING_PATH'
        EXPORTING
        CLIENT                           = SY-MANDT
          LOGICAL_PATH                     = p_dir
        OPERATING_SYSTEM                 = SY-OPSYS
        PARAMETER_1                      = ' '
        PARAMETER_2                      = ' '
        PARAMETER_3                      = ' '
        USE_BUFFER                       = ' '
          FILE_NAME                        = lv_file
        USE_PRESENTATION_SERVER          = ' '
        ELEMINATE_BLANKS                 = 'X'
       IMPORTING
         FILE_NAME_WITH_PATH              = v_fullpath
       EXCEPTIONS
         PATH_NOT_FOUND                   = 1
         MISSING_PARAMETER                = 2
         OPERATING_SYSTEM_NOT_FOUND       = 3
         FILE_SYSTEM_NOT_FOUND            = 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.
endform.
form upload_from_server.
data: lv_msg type string,
      lw_data type ty_data.
open dataset v_fullpath for input message lv_msg in text mode encoding default.
if sy-subrc <> 0.
message lv_msg type 'i'.
stop.
endif.
do.
read dataset v_fullpath into lw_data.
if sy-subrc <> 0.
write:/5 'Error in processign data set'.
exit.
endif.
append lw_data to i_data.
enddo.
close dataset v_fullpath.
if sy-subrc <> 0.
write: /5 'Error closing dataset'.
endif.
endform.
form split_data.
data: lw_data type ty_data.
data: lw_itab type stritab.
data: begin of ty_itab,
      land1 type v_t604-land1,
      stawn type v_t604-stawn,
      bemeh type v_t604-bemeh,
      impma type v_t604-impma,
      minol type v_t604-minol,
      end of ty_itab.
loop at i_data into lw_data.
split lw_data at c_tab into
      ty_itab-land1
      ty_itab-stawn
      ty_itab-bemeh
      ty_itab-impma
      ty_itab-minol.
lw_itab-land1 = ty_itab-land1.
lw_itab-stawn = ty_itab-stawn.
lw_itab-bemeh = ty_itab-bemeh.
lw_itab-impma = ty_itab-impma.
lw_itab-minol = ty_itab-minol.
append lw_itab to gi_itab.
endloop.
endform.
start-of-selection.
loop at gi_itab into gw_itab.
write: /5 'COUNTRY', 'IMPORT CODE', 'SUP UNIT', 'FIRST UOM', 'SECOND UOM',
       /5 gw_itab-land1, gw_itab-stawn,gw_itab-bemeh,gw_itab-impma,gw_itab-minol.
endloop.
end-of-selection.
I hope problem must be in p_dir and p_file which are in bold.. Kindly help me out. Thanks in advance.

see the following ex:
*&      Form SUB_GET_FILEPATH
      text
--> p1        text
<-- p2        text
FORM SUB_GET_FILEPATH .
    GFILE = 'D:\SAP_INT\INBOUND\INBOX'. "Path
ENDFORM.                    " SUB_GET_FILEPATH
*&      Form SUB_GET_FILE
      text
--> p1        text
<-- p2        text
FORM SUB_GET_FILE .
DATA: P_FDIR(200) TYPE C.
DATA: IT_FILEDIR1 TYPE STANDARD TABLE OF TY_FILEDIR WITH HEADER LINE.
P_FDIR = GFILE.
CALL FUNCTION 'RZL_READ_DIR_LOCAL'
    EXPORTING
      NAME     = P_FDIR
    TABLES
      FILE_TBL = IT_FILEDIR.
REFRESH : IT_FILEDIR1.
LOOP AT IT_FILEDIR.
    IF IT_FILEDIR-NAME(4) = 'ZINC' OR IT_FILEDIR-NAME(4) = 'zinc'.
      MOVE IT_FILEDIR-NAME TO IT_FILEDIR1-NAME.
      APPEND IT_FILEDIR1.
    ENDIF.
ENDLOOP.
IF IT_FILEDIR1[] IS INITIAL.
    STOP.
ENDIF.
LOOP AT IT_FILEDIR1.
    REFRESH: I_TAB.
    CLEAR: I_TAB.
    NAME = IT_FILEDIR1-NAME.
    CONCATENATE: GFILE '\' NAME INTO G_FILE.
    OPEN DATASET G_FILE FOR INPUT IN TEXT MODE
                                     ENCODING DEFAULT
                                     IGNORING CONVERSION ERRORS.
    IF SY-SUBRC EQ 0.
      CONCATENATE 'FILENAME : ' G_FILE INTO I_MSG1.
      APPEND I_MSG1.
      DO.
        READ DATASET G_FILE INTO RECORD.
        IF SY-SUBRC = 0.
          SPLIT RECORD AT ',' INTO I_TAB-BUKRS I_TAB-EBELN
              I_TAB-BLDAT I_TAB-XBLNR I_TAB-LIFNR I_TAB-AMOUNT
              I_TAB-CURR I_TAB-BUSAREA
              I_TAB-BKTXT I_TAB-DMBTR I_TAB-MENGE I_TAB-SRNO.
          MOVE-CORRESPONDING I_TAB TO I_TAB1.
        ELSE.
          EXIT.
        ENDIF.
        APPEND I_TAB1.
        CLEAR: I_TAB, I_TAB1.
      ENDDO.
    ENDIF.
    CLOSE DATASET G_FILE.

How to upload excel file in application server??

Hi,
How to upload an excel file into internal table in background mode from application server?
Thanks

Hi vipin,
check this it may help you...
hope below links helps you
Export the report list to Excel Sheet
http://www.sapdevelopment.co.uk/file/file_updown.htm
or below is a sample programme which helps you upload and download
REPORT ytest5 LINE-SIZE 80
                LINE-COUNT 65
                NO STANDARD PAGE HEADING.
TABLES: dd02l, dd03l.
* selection screen
SELECTION-SCREEN BEGIN OF BLOCK b00 WITH FRAME TITLE text-b00.
SELECTION-SCREEN BEGIN OF BLOCK b01 WITH FRAME TITLE text-b01.
PARAMETERS: tabname     LIKE dd02l-tabname OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b01.
SELECTION-SCREEN BEGIN OF BLOCK b03 WITH FRAME TITLE text-b03.
PARAMETERS: path(30)    TYPE c DEFAULT 'C:SAPWorkdir'.
SELECTION-SCREEN END OF BLOCK b03.
SELECTION-SCREEN BEGIN OF BLOCK b04 WITH FRAME TITLE text-b04.
PARAMETERS: p_exp RADIOBUTTON GROUP radi,
            p_imp RADIOBUTTON GROUP radi,
            p_clear     AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK b04.
SELECTION-SCREEN END OF BLOCK b00.
* data
DATA: q_return     LIKE syst-subrc,
      err_flag(1) TYPE c,
      answer(1)    TYPE c,
      w_text1(62) TYPE c,
      w_text2(40) TYPE c,
      winfile(128) TYPE c,
      w_system(40) TYPE c,
      winsys(7)    TYPE c,
      zname(8)     TYPE c,
      w_line(80)   TYPE c.
* internal tables
DATA : BEGIN OF textpool_tab OCCURS 0.
        INCLUDE STRUCTURE textpool.
DATA : END OF textpool_tab.
* table for subroutine pool
DATA : itab(80) OCCURS 0.
* events
INITIALIZATION.
PERFORM check_system.
AT SELECTION-SCREEN ON tabname.
PERFORM check_table_exists.
START-OF-SELECTION.
PERFORM init_report_texts.
PERFORM request_confirmation.
END-OF-SELECTION.
IF answer = 'J'.
    PERFORM execute_program_function.
ENDIF.
TOP-OF-PAGE.
PERFORM process_top_of_page.
* forms
*       FORM CHECK_TABLE_EXISTS                                      *
FORM check_table_exists.
SELECT SINGLE * FROM dd02l
INTO CORRESPONDING FIELDS OF dd02l
WHERE tabname = tabname.
CHECK syst-subrc NE 0.
MESSAGE e402(mo) WITH tabname.
ENDFORM.
*       FORM INIT_REPORT_TEXTS                                        *
FORM init_report_texts.
READ TEXTPOOL syst-repid
INTO textpool_tab LANGUAGE syst-langu.
LOOP AT textpool_tab
WHERE id EQ 'R' OR id EQ 'T'.
    REPLACE '&1............................'
    WITH tabname INTO textpool_tab-entry.
    MODIFY textpool_tab.
ENDLOOP.
ENDFORM.
*       FORM REQUEST_CONFIRMATION                                     *
FORM request_confirmation.
* import selected, confirm action
IF p_imp = 'X'.
*   build message text for popup
    CONCATENATE 'Data for table'
                 tabname
                 'will be imported' INTO w_text1 SEPARATED BY space.
*   check if delete existing selected, and change message text
    IF p_clear = ' '.
      w_text2 = 'and appended to the end of existing data'.
    ELSE.
      w_text2 = 'Existing Data will be deleted'.
    ENDIF.
    CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
         EXPORTING
              defaultoption = 'N'
              textline1      = w_text1
              textline2      = w_text2
              titel          = 'Confirm Import of Data'
              cancel_display = ' '
         IMPORTING
              answer         = answer
         EXCEPTIONS
              OTHERS         = 1.
ELSE.
*   export selected, set answer to yes so export can continue
    answer = 'J'.
ENDIF.
ENDFORM.
*       FORM EXECUTE_PROGRAM_FUNCTION                                 *
FORM execute_program_function.
PERFORM build_file_name.
CLEAR: q_return,err_flag.
IF p_imp = 'X'.
    PERFORM check_file_exists.
    CHECK err_flag = ' '.
    PERFORM func_import.
ELSE.
    PERFORM func_export.
ENDIF.
ENDFORM.
*       FORM BUILD_FILE_NAME                                          *
FORM build_file_name.
MOVE path TO winfile.
WRITE '' TO winfile+30.
WRITE tabname TO winfile+31.
WRITE '.TAB' TO winfile+61(4).
CONDENSE winfile NO-GAPS.
ENDFORM.
*       FORM CHECK_FILE_EXISTS                                        *
FORM check_file_exists.
CALL FUNCTION 'WS_QUERY'
       EXPORTING
            filename = winfile
            query    = 'FE'
       IMPORTING
            return   = q_return
       EXCEPTIONS
            OTHERS   = 1.
IF syst-subrc NE 0 OR q_return NE 1.
    err_flag = 'X'.
ENDIF.
ENDFORM.
*     FORM func_export                                              *
FORM func_export.
CLEAR itab. REFRESH itab.
APPEND 'PROGRAM SUBPOOL.' TO itab.
APPEND 'FORM DOWNLOAD.' TO itab.
APPEND 'DATA: BEGIN OF IT_TAB OCCURS 0.' TO itab.
CONCATENATE 'INCLUDE STRUCTURE'
              tabname
              '.' INTO w_line SEPARATED BY space.
APPEND w_line TO itab.
APPEND 'DATA: END OF IT_TAB.' TO itab.
CONCATENATE 'SELECT * FROM'
              tabname
              'INTO TABLE IT_TAB.' INTO w_line SEPARATED BY space.
APPEND w_line TO itab.
APPEND 'CALL FUNCTION ''WS_DOWNLOAD''' TO itab.
APPEND 'EXPORTING' TO itab.
CONCATENATE 'filename = ' ''''
              winfile '''' INTO w_line SEPARATED BY space.
APPEND w_line TO itab.
APPEND 'filetype = ''DAT''' TO itab.
APPEND 'TABLES' TO itab.
APPEND 'DATA_TAB = IT_TAB.' TO itab.
APPEND 'DESCRIBE TABLE IT_TAB LINES sy-index.' TO itab.
APPEND 'FORMAT COLOR COL_NORMAL INTENSIFIED OFF.' TO itab.
APPEND 'WRITE: /1 syst-vline,' TO itab.
APPEND '''EXPORT'',' TO itab.
APPEND '15 ''data line(s) have been exported'',' TO itab.
APPEND '68 syst-index,' TO itab.
APPEND '80 syst-vline.' TO itab.
APPEND 'ULINE.' TO itab.
APPEND 'ENDFORM.' TO itab.
GENERATE SUBROUTINE POOL itab NAME zname.
PERFORM download IN PROGRAM (zname).
ENDFORM.
*       FORM func_import                                              *
FORM func_import.
CLEAR itab. REFRESH itab.
APPEND 'PROGRAM SUBPOOL.' TO itab.
APPEND 'FORM UPLOAD.' TO itab.
APPEND 'DATA: BEGIN OF IT_TAB OCCURS 0.' TO itab.
CONCATENATE 'INCLUDE STRUCTURE'
              tabname
              '.' INTO w_line SEPARATED BY space.
APPEND w_line TO itab.
APPEND 'DATA: END OF IT_TAB.' TO itab.
APPEND 'DATA: BEGIN OF IT_TAB2 OCCURS 0.' TO itab.
CONCATENATE 'INCLUDE STRUCTURE'
              tabname
              '.' INTO w_line SEPARATED BY space.
APPEND w_line TO itab.
APPEND 'DATA: END OF IT_TAB2.' TO itab.
APPEND 'CALL FUNCTION ''WS_UPLOAD''' TO itab.
APPEND 'EXPORTING' TO itab.
CONCATENATE 'filename = ' ''''
              winfile '''' INTO w_line SEPARATED BY space.
APPEND w_line TO itab.
APPEND 'filetype = ''DAT''' TO itab.
APPEND 'TABLES' TO itab.
APPEND 'DATA_TAB = IT_TAB.' TO itab.
IF p_clear = 'X'.
    CONCATENATE 'SELECT * FROM'
                tabname
                'INTO TABLE IT_TAB2.' INTO w_line SEPARATED BY space.
    APPEND w_line TO itab.
    APPEND 'LOOP AT IT_TAB2.' TO itab.
    CONCATENATE 'DELETE'
                tabname
                'FROM IT_TAB2.' INTO w_line SEPARATED BY space.
    APPEND w_line TO itab.
    APPEND 'ENDLOOP.' TO itab.
    APPEND 'COMMIT WORK.' TO itab.
ENDIF.
APPEND 'LOOP AT IT_TAB.' TO itab.
CONCATENATE 'MODIFY'
              tabname
              'FROM IT_TAB.' INTO w_line SEPARATED BY space.
APPEND w_line TO itab.
APPEND 'ENDLOOP.' TO itab.
APPEND 'DESCRIBE TABLE IT_TAB LINES sy-index.' TO itab.
APPEND 'FORMAT COLOR COL_NORMAL INTENSIFIED OFF.' TO itab.
APPEND 'WRITE: /1 syst-vline,' TO itab.
APPEND '''IMPORT'',' TO itab.
APPEND '15 ''data line(s) have been imported'',' TO itab.
APPEND '68 syst-index,' TO itab.
APPEND '80 syst-vline.' TO itab.
APPEND 'ULINE.' TO itab.
APPEND 'ENDFORM.' TO itab.
GENERATE SUBROUTINE POOL itab NAME zname.
PERFORM upload IN PROGRAM (zname).
ENDFORM.
*       Form CHECK_SYSTEM
*            Check users workstation is running
*            WINDOWS 95, or WINDOWS NT.
*            OS/2 uses 8.3 file names which are no good for
*            this application as filenames created are 30 char
*            same as table name.
*            You could change the logic to only use the first 8 chars
*            of the table name for the filename, but you could possibly
*            get problems if users had exported already with a table
*            with the same first 8 chars.
*            As an alternate method you could request the user to input
*            the full path including filename and remove the logic to
*            build the path using the table name.
FORM check_system.
CALL FUNCTION 'WS_QUERY'
       EXPORTING
            query = 'WS'
       IMPORTING
            return = winsys.
IF winsys NE 'WN32_95'.
    WRITE: 'Windows NT or Windows 95/98 is required'.
    EXIT.
ENDIF.
ENDFORM.                               " CHECK_SYSTEM
*       FORM PROCESS_TOP_OF_PAGE                                      *
FORM process_top_of_page.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
ULINE.
CONCATENATE syst-sysid
              syst-saprl
              syst-host INTO w_system SEPARATED BY space.
WRITE : AT /1(syst-linsz) w_system CENTERED.
WRITE : AT 1 syst-vline, syst-uname.
syst-linsz = syst-linsz - 11.
WRITE : AT syst-linsz syst-repid(008).
syst-linsz = syst-linsz + 11.
WRITE : AT syst-linsz syst-vline.
LOOP AT textpool_tab WHERE id EQ 'R'.
    WRITE : AT /1(syst-linsz) textpool_tab-entry CENTERED.
ENDLOOP.
WRITE : AT 1 syst-vline, syst-datum.
syst-linsz = syst-linsz - 11.
WRITE : AT syst-linsz syst-tcode(004).
syst-linsz = syst-linsz + 11.
WRITE : AT syst-linsz syst-vline.
LOOP AT textpool_tab WHERE id EQ 'T'.
    WRITE : AT /1(syst-linsz) textpool_tab-entry CENTERED.
ENDLOOP.
WRITE : AT 1 syst-vline, syst-uzeit.
syst-linsz = syst-linsz - 11.
WRITE : AT syst-linsz 'Page', syst-pagno.
syst-linsz = syst-linsz + 11.
WRITE : AT syst-linsz syst-vline.
ULINE.
FORMAT COLOR COL_HEADING INTENSIFIED OFF.
LOOP AT textpool_tab WHERE id EQ 'H'.
    WRITE : AT /1(syst-linsz) textpool_tab-entry.
ENDLOOP.
ULINE.
ENDFORM.
if it helps you reward with points.
regards,
venu
regards,
venu.

How to upload multiple files into a server location at a single time

Hi All,
In my application i need to send multiple files from a particular page into the server location. In this page there will be an option to upload a file and after selecting the file , we will have an option asking if we were interested to send another file. It works just similar to google mail where we can multiple files at the same time. Right now though i had coded the uploading files concept i am facing some problems when trying to upload multiple files. All the files are being appended to a single file but i want them to be placed as different files at the specified location. Plz help me in this regard...
Thanks in advance................,,

Hi,
i am sending the code in my prg. Have a look at it.
var multi_selector = new MultiSelector( document.getElementById( 'files_list' ),3);
In the above line i am specyfying that the maximum no. of files to be uploaded is 3. So if i upload less than 3 files, the program doesn't work and is not reading the uploaded files. If i upload 3 files it works fine. So please suggest me how to make this work irrespective of the no. of files uploaded using apache commons.
My code is as follows:
<form action="./servlet/Sample" method = "post" enctype="multipart/form-data">
     
     <input id="my_file_element" type="file" name="file_1" >
     <input type="submit" name="submit1" value="submit">
</form>
Files:

<div id="files_list"></div>
<script>
     
     var multi_selector = new MultiSelector( document.getElementById( 'files_list' ),3);
     
     multi_selector.addElement( document.getElementById( 'my_file_element' ) );
</script>

How to send XML file to https server using POST

Hi, I am having an requirement, that I have to connect to https server and I have to pass an input XML file as a response server will give me output XML file.
The certificate validation part is over, I am using FileInputStream to read the XML file and attaching this to connection.getOutputStream(); but server is throwing me DTD does n't match.
Can any body tell me how to send XML file, I have to use any DOM parser to send the XML file, suggest me and give me sample code.
Thanks,

Can anybody give me the solution

Need to upload Cxml file to HTTPS Server- cannot use SFTP

WE have a need to use SSIS to first watch for the creation of the CXML file ( I'll use File Watcher) then use some web services to upload this to a secure HTTPS Server. What I am reading from these posts is that the built in web services task in SSIS 2012
only is usable for a HTTP server for upload? IS this Correct? If so what are my options to post to a HTTPS Server?? Do we need to script this entire process?? Any third party components available??
Thanks KAM

I don't see SSIS frankly being here a good fit.
These tasks are better done via a .net app or PowerShell.
If you do choose to go with SSIS yes, you need to do some Googling/Bing to find a good example on Script Task that again contains pure .net code to run the HTTPS WebService call (it is an oxymoron IMO).
Then beware that the built in FileWatcher (into SSIS) requires the package restarted after a file processed, again a minus for using SSIS.
Arthur My Blog

How to upload/download file to/from server using FiledownloadUI ?

Hi experts,
I don't have much experience of WDABAP. I have to upload a file to server and then download it again. I have implemented this functionality but I am unable to view contents of .xls/.doc/.docx/.msg file only txt file contents are properly visible. I have used following command to upload the file:-
OPEN DATASET fname FOR OUTPUT IN BINARY MODE.
I had also tried this but it is throwing exception that it can be used only for character type data.
OPEN DATASET fname FOR OUTPUT IN TEXT MODE ENCODING UTF-8 WITH SMART LINEFEED.
Thanks in advance.
Problem Solved!
Regards,
Vishesh
Edited by: Vishesh@1986 on Sep 26, 2011 7:37 AM

I have resolved the issue myself!!!

How to Upload Excel file to Application Server

Hi Friends,
ALSM_EXCEL_TO_INTERNAL_TABLE this F.M is to upload the excel format into internal table , The problem here is after uploading the excel file the format has been changed according to the F.M ... so Im not able to compare the value with my final internal table because the structure is different ... even if I could match with the values Im not able to upload it to my application server ... is there any F.M which doesn't change the excel format and upload it to the internal table ? ... Or is there any other way of doing it other than using at new , case endcase. ? ...
Thanks in advance ...
Cheers

Hi friend,
Simply use GUI_UPLOAD function to get data from excel, txt etc.., into internal table in program.
Try this program.. It performs downloading and uploading functions in both excel and .txt format.
*& Report ZAWI_DEMODOWNLOAD                                           *
REPORT zawi_demodownload                       .
*Types
TYPES: BEGIN OF g_r_mara,
       matnr LIKE mara-matnr,
       ersda LIKE mara-ersda,
       laeda LIKE mara-laeda,
       mtart LIKE mara-mtart,
       mbrsh LIKE mara-mbrsh,
       END OF g_r_mara.
TYPES: BEGIN OF g_r_mara1,
       matnr TYPE string,
       ersda TYPE string,
       laeda TYPE string,
       mtart TYPE string,
       mbrsh TYPE string,
       END OF g_r_mara1.
*Data
DATA: g_t_mara TYPE TABLE OF g_r_mara,
      g_t_mara1 TYPE TABLE OF g_r_mara,
      g_t_mara2 TYPE TABLE OF g_r_mara1,
      filename TYPE string,
      f1 TYPE string,
      f2 TYPE string,
      x TYPE string,
      x1 TYPE string,
      x2 TYPE string,
      x3 TYPE strng,
      c TYPE string,
      g_r_wa TYPE g_r_mara,
      g_r_wa1 TYPE g_r_mara1,
      g_r_wa2 TYPE g_r_mara1,
     g_t_mara2 TYPE TABLE OF g_r_mara1,
      str TYPE string.
*Tables
TABLES: mara.
*Selection Screen
SELECT-OPTIONS: s_matnr FOR mara-matnr.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 10(20) text-001 FOR FIELD p1.
PARAMETERS:p1 RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 10(20) text-002 FOR FIELD p2.
PARAMETERS p2 RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF LINE.
*Input validation.
DATA: s_high TYPE mara-matnr,
      s_low TYPE mara-matnr.
AT SELECTION-SCREEN ON s_matnr.
IF NOT s_matnr-high IS INITIAL.
    s_high = s_matnr-high.
    SELECT SINGLE * FROM mara WHERE matnr = s_high.
    IF sy-subrc <> 0.
     IF NOT s_matnr-low IS INITIAL.
      s_low = s_matnr-low.
      SELECT SINGLE * FROM mara WHERE matnr = s_low.
      IF sy-subrc <> 0.
        MESSAGE e012(zawi_demo).
      ELSE.
        MESSAGE e011(zawi_demo).
      ENDIF.
    ENDIF.
ENDIF.
AT SELECTION-SCREEN.
SELECT SINGLE * FROM mara WHERE matnr IN s_matnr.
IF sy-subrc <> 0.
    IF s_matnr-low IS INITIAL.
      str = s_matnr-high.
    ELSE.
      str = s_matnr-low.
    ENDIF.
    MESSAGE e010(zawi_demo) WITH str..
ENDIF.
START-OF-SELECTION.
*Data retrival
SELECT matnr ersda laeda mtart mbrsh
    INTO CORRESPONDING FIELDS OF TABLE g_t_mara
    FROM mara
    WHERE matnr IN s_matnr.
IF p1 = 'X'.
    filename = 'C:\Testing.xls'.
   Downloading data from internal table to excel or txt
    f1 = filename.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        filename              = filename
        filetype              = 'ASC'
     append                = 'X'
        write_field_separator = 'X'
     col_select = 'X'
      TABLES
        data_tab              = g_t_mara.
ELSE.
    filename = 'C:\Testing.txt'.
    f2 = filename.
    LOOP AT g_t_mara INTO g_r_wa.
      CONCATENATE g_r_wa-matnr ';' INTO g_r_wa1-matnr.
      CONCATENATE g_r_wa-ersda ';' INTO g_r_wa1-ersda.
      CONCATENATE g_r_wa-laeda ';' INTO g_r_wa1-laeda.
      CONCATENATE g_r_wa-mtart ';' INTO g_r_wa1-mtart.
      CONCATENATE g_r_wa-mbrsh ';' INTO g_r_wa1-mbrsh.
      APPEND g_r_wa1 TO g_t_mara2.
    ENDLOOP.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        filename              = filename
        filetype              = 'ASC'
     append                = 'X'
     write_field_separator = 'X'
     col_select = 'X'
      TABLES
        data_tab              = g_t_mara2.
ENDIF.
   Uploading data from excel to internal table 1
IF filename = f1.
    CALL FUNCTION 'GUI_UPLOAD'
      EXPORTING
        filename            = filename
        filetype            = 'ASC'
        has_field_separator = 'X'
      TABLES
        data_tab            = g_t_mara1.
    WRITE: / 'Uploaded data' COLOR = 1.
    WRITE:/.
    CLEAR g_r_wa.
    LOOP AT g_t_mara1 INTO g_r_wa.
      WRITE:/ g_r_wa-matnr, g_r_wa-ersda, g_r_wa-laeda, g_r_wa-mtart, g_r_wa-mbrsh.
    ENDLOOP.
ELSE.
    IF filename = f2.
                       IF sy-subrc <> 0.
                       ENDIF.
      CALL FUNCTION 'GUI_UPLOAD'
        EXPORTING
          filename            = filename
          filetype            = 'ASC'
          has_field_separator = 'X'
          replacement         = ''
        TABLES
          data_tab            = g_t_mara2.
      WRITE: / 'Uploaded data' COLOR = 1.
      WRITE:/.
      CLEAR g_r_wa1.
      LOOP AT g_t_mara2 INTO g_r_wa1.
        g_r_wa2-matnr = g_r_wa1-matnr.
        TRANSLATE g_r_wa2-matnr USING '; ' .
        WRITE:/ g_r_wa2-matnr, g_r_wa2-ersda, g_r_wa2-laeda, g_r_wa2-mtart, g_r_wa2-mbrsh.
        CLEAR g_r_wa2.
      ENDLOOP.
    ENDIF.
ENDIF.
                                                                                OR
Use T-codes:
CG3Y - Download file               - Download file from Application server
CG3Z - Upload file                    - Upload file to Application server

How to upload a file from application server?

Hi experts,
I am going to create a conversion program using call function 'HR_INFOTYPE_OPERATION'.In my conversion I am going to upload per_area,emp_subgroup,payroll_area,work contract and orgn_key for the infotype IT0001 and the input file is from application server.I am using check boxes for these 5 fields and for the fields I am selecting the checkbox.I want to upload the datas in the IT0001 using HR_INFOTYPE_OPERATION.That is using the call transaction function.Its urgent give me some ideas or codings for that infotype updating.
Thanks,
Sakthi.C

Hi
you can use <b>open dataset for input</b>,<b>Read dataset</b> for uploading data from a application server.
Message was edited by:
Raghu Reddy

Upload XL file from FTP server

Hi All,
Can anybady help me, how to upload Excel file from FTP server.
Thanks
Sri
Edited by: srikanthn on Apr 14, 2010 6:31 PM

Hello
How about using SAPFTP?
I hope SAP note 130106 will guide you on this.
Thanks
koju

How to upload a file on HTTP server

Similar Messages

Maybe you are looking for