Upload and download of excel file in the application server in background

Hi all,
i want to download the excel file from application server into internal table and after processing i have to upload to excel file in the application server in the background mode..
i mean i'll schedule the program in background.
im using FM ALSM_EXCEL_TO_INTERNAL_TABLE its working fine in fore ground but not in back ground.
what method i have to follow ?

Hi Ankit,
I think this is not possible to open a Excel-File from the application server because the Excel format before Office 2007 where a binary format (Suffix: .xls). The newer Office file format (Suffix: xlsx) is a zipped XML Format. To read the binary Excel-Format you need an OLE Connection between SAP GUI and Office. But at the application server in background you doesn't have this OLE Connection.
In my opinion you have two possibilities:
1. Convert all files in the CSV format. This file format can be read with open dataset.
2. Upload the files from the presentation server in forground. There are some funktion modules in the standard which can read the xls format. But they have some limits regarding the length of cells content.
My recommendation is solution no. 1. If you know an VBA expert, he can write an Excel-macro which converts all Excel Files in the CSV-Fomat.
Regards
Dirk

Similar Messages

Not able to open XML file in the application server..........

Hi,
I have downloaded a XML file to the application server.....
File is created but i am not able to open the file there....
Plz advice ....how to open it.....
Regards.

Use Notepad. Drag and drop in notepad.
Aman

How do upload a file to the application server into a directory?

hi to all,
i want to upload file into the database..i need upload the file into the application server and save it to a directory..is there any way?where i can read about this?any information?
ashwiny

Hello,
First, we need to determine the terms we are using, in order to avoid confusion. We (including the documentation) are using "upload" to describe storing the file on the server, and "download" to pull it from the server into local machine.
You can use the "File Browse" item to upload any file you need from your local machine and into a database table. The default APEX configuration (in the dads.conf file) stored the uploaded file in a table called wwv_flow_file_objects$. In your application, you can access this table using a view called APEX_APPLICATION_FILES.
After you uploaded a file, any user can access it, using the download procedure described in the reference I gave you. The download procedure gives you an option to store the download file anywhere you need, using the "Open/Save" dialog box.
I believe this is covering everything you need. If you still having problems, please consider posting the relevant application pages on apex.oracle.com. It will be easier to understand and help you.
Regards,
Arie.

Upload tab-delimited file from the application server to an internal table

Hello SAPients.
I'm using OPEN DATASET..., READ DATASET..., CLOSE DATASET to upload a file from the application server (SunOS). I'm working with SAP 4.6C. I'm trying to upload a tab-delimited file to an internal table but when I try load it the fields are not correctly separated, in fact, they are all misplaced and the table shows '#' where supposedly there was a tab.
I tried to SPLIT the line using as separator a variable with reference to CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB but for some reason that class doesn't exist in my system.
Do you know what I'm doing wrong? or Do you know a better method to upload a tab-delimited file into an internal table?
Thank you in advance for your help.

Try:
REPORT ztest MESSAGE-ID 00.
PARAMETER: p_file LIKE rlgrap-filename OBLIGATORY.
DATA: BEGIN OF data_tab OCCURS 0,
 data(4096),
 END OF data_tab.
DATA: BEGIN OF vendor_file_x OCCURS 0.
* LFA1 Data
DATA: mandt LIKE bgr00-mandt,
 lifnr LIKE blf00-lifnr,
 anred LIKE blfa1-anred,
 bahns LIKE blfa1-bahns,
 bbbnr LIKE blfa1-bbbnr,
 bbsnr LIKE blfa1-bbsnr,
 begru LIKE blfa1-begru,
 brsch LIKE blfa1-brsch,
 bubkz LIKE blfa1-bubkz,
 datlt LIKE blfa1-datlt,
 dtams LIKE blfa1-dtams,
 dtaws LIKE blfa1-dtaws,
 erdat LIKE lfa1-erdat,
 ernam LIKE lfa1-ernam,
 esrnr LIKE blfa1-esrnr,
 konzs LIKE blfa1-konzs,
 ktokk LIKE lfa1-ktokk,
 kunnr LIKE blfa1-kunnr,
 land1 LIKE blfa1-land1,
 lnrza LIKE blfa1-lnrza,
 loevm LIKE blfa1-loevm,
 name1 LIKE blfa1-name1,
 name2 LIKE blfa1-name2,
 name3 LIKE blfa1-name3,
 name4 LIKE blfa1-name4,
 ort01 LIKE blfa1-ort01,
 ort02 LIKE blfa1-ort02,
 pfach LIKE blfa1-pfach,
 pstl2 LIKE blfa1-pstl2,
 pstlz LIKE blfa1-pstlz,
 regio LIKE blfa1-regio,
 sortl LIKE blfa1-sortl,
 sperr LIKE blfa1-sperr,
 sperm LIKE blfa1-sperm,
 spras LIKE blfa1-spras,
 stcd1 LIKE blfa1-stcd1,
 stcd2 LIKE blfa1-stcd2,
 stkza LIKE blfa1-stkza,
 stkzu LIKE blfa1-stkzu,
 stras LIKE blfa1-stras,
 telbx LIKE blfa1-telbx,
 telf1 LIKE blfa1-telf1,
 telf2 LIKE blfa1-telf2,
 telfx LIKE blfa1-telfx,
 teltx LIKE blfa1-teltx,
 telx1 LIKE blfa1-telx1,
 xcpdk LIKE lfa1-xcpdk,
 xzemp LIKE blfa1-xzemp,
 vbund LIKE blfa1-vbund,
 fiskn LIKE blfa1-fiskn,
 stceg LIKE blfa1-stceg,
 stkzn LIKE blfa1-stkzn,
 sperq LIKE blfa1-sperq,
 adrnr LIKE lfa1-adrnr,
 mcod1 LIKE lfa1-mcod1,
 mcod2 LIKE lfa1-mcod2,
 mcod3 LIKE lfa1-mcod3,
 gbort LIKE blfa1-gbort,
 gbdat LIKE blfa1-gbdat,
 sexkz LIKE blfa1-sexkz,
 kraus LIKE blfa1-kraus,
 revdb LIKE blfa1-revdb,
 qssys LIKE blfa1-qssys,
 ktock LIKE blfa1-ktock,
 pfort LIKE blfa1-pfort,
 werks LIKE blfa1-werks,
 ltsna LIKE blfa1-ltsna,
 werkr LIKE blfa1-werkr,
 plkal LIKE lfa1-plkal,
 duefl LIKE lfa1-duefl,
 txjcd LIKE blfa1-txjcd,
 sperz LIKE lfa1-sperz,
 scacd LIKE blfa1-scacd,
 sfrgr LIKE blfa1-sfrgr,
 lzone LIKE blfa1-lzone,
 xlfza LIKE lfa1-xlfza,
 dlgrp LIKE blfa1-dlgrp,
 fityp LIKE blfa1-fityp,
 stcdt LIKE blfa1-stcdt,
 regss LIKE blfa1-regss,
 actss LIKE blfa1-actss,
 stcd3 LIKE blfa1-stcd3,
 stcd4 LIKE blfa1-stcd4,
 ipisp LIKE blfa1-ipisp,
 taxbs LIKE blfa1-taxbs,
 profs LIKE blfa1-profs,
 stgdl LIKE blfa1-stgdl,
 emnfr LIKE blfa1-emnfr,
 lfurl LIKE blfa1-lfurl,
 j_1kfrepre LIKE blfa1-j_1kfrepre,
 j_1kftbus LIKE blfa1-j_1kftbus,
 j_1kftind LIKE blfa1-j_1kftind,
 confs LIKE lfa1-confs,
 updat LIKE lfa1-updat,
 uptim LIKE lfa1-uptim,
 nodel LIKE blfa1-nodel.
DATA: END OF vendor_file_x.
FIELD-SYMBOLS: <field>,
 <field_1>.
DATA: delim TYPE x VALUE '09'.
DATA: fld_chk(4096),
 last_char,
 quote_1 TYPE i,
 quote_2 TYPE i,
 fld_lth TYPE i,
 columns TYPE i,
 field_end TYPE i,
 outp_rec TYPE i,
 extras(3) TYPE c VALUE '.,"',
 mixed_no(14) TYPE c VALUE '1234567890-.,"'.
OPEN DATASET p_file FOR INPUT.
DO.
READ DATASET p_file INTO data_tab-data.
IF sy-subrc = 0.
 APPEND data_tab.
ELSE.
 EXIT.
ENDIF.
ENDDO.
* count columns in output structure
DO.
ASSIGN COMPONENT sy-index OF STRUCTURE vendor_file_x TO <field>.
IF sy-subrc <> 0.
 EXIT.
ENDIF.
columns = sy-index.
ENDDO.
* Assign elements of input file to internal table
CLEAR vendor_file_x.
IF columns > 0.
LOOP AT data_tab.
 DO columns TIMES.
 ASSIGN space TO <field>.
 ASSIGN space TO <field_1>.
 ASSIGN COMPONENT sy-index OF STRUCTURE vendor_file_x TO <field>.
 SEARCH data_tab-data FOR delim.
 IF sy-fdpos > 0.
 field_end = sy-fdpos + 1.
 ASSIGN data_tab-data(sy-fdpos) TO <field_1>.
* Check that numeric fields don't contain any embedded " or ,
 IF <field_1> CO mixed_no AND
 <field_1> CA extras.
 TRANSLATE <field_1> USING '" , '.
 CONDENSE <field_1> NO-GAPS.
 ENDIF.
* If first and last characters are '"', remove both.
 fld_chk = <field_1>.
 IF NOT fld_chk IS INITIAL.
 fld_lth = strlen( fld_chk ) - 1.
 MOVE fld_chk+fld_lth(1) TO last_char.
 IF fld_chk(1) = '"' AND
 last_char = '"'.
 MOVE space TO fld_chk+fld_lth(1).
 SHIFT fld_chk.
 MOVE fld_chk TO <field_1>.
 ENDIF. " for if fld_chk(1)=" & last_char="
 ENDIF. " for if not fld_chk is initial
* Replace "" with "
 DO.
 IF fld_chk CS '""'.
 quote_1 = sy-fdpos.
 quote_2 = sy-fdpos + 1.
 MOVE fld_chk+quote_2 TO fld_chk+quote_1.
 ELSE.
 MOVE fld_chk TO <field_1>.
 EXIT.
 ENDIF.
 ENDDO.
 <field> = <field_1>.
 ELSE.
 field_end = 1.
 ENDIF.
 SHIFT data_tab-data LEFT BY field_end PLACES.
 ENDDO.
 APPEND vendor_file_x.
 CLEAR vendor_file_x.
ENDLOOP.
ENDIF.
CLEAR data_tab.
REFRESH data_tab.
FREE data_tab.
Rob

Maximum length of header in the file on the application server?

Hi there,
 I am uploading a file on the application server. I am writing the header separately which is column heading in char format. Then I am writing the data to that file.
 Now the problem is, I am unable to get more than 256 chars for each line in the file, including header, in AL11 file view and while I am downloading that file on to my desktop, I am not getting more than 256 chars from header line in my excel sheet however I am getting all the chars i.e. more than 256 chars of all the data line.
 Please can you tell,what could be the problem or let me know any way to see and download all the header line fields.

I am using more than 256 chars at both the places i.e. header and data line. Still I am not getting more than 256 chars in the file.
However while downloading that file onto the desktop, it is not showing more than 256 chars for the header part, but it showing all the values of data line, exceeding 256 chars.

How to see the file at the application server

HI TO ALL SDNERS ,
 THIS IS MY CODE WHERE TO CHECK THE DOWNLOADED FILE AT THE APPLICATION SERVER.IN TCODE AL11 I HAVE SEEN THERE IS NO FILE GETTING CREATED.WHEN TRANSFERRING THE SY-SUBRC VALUE IS ZERO.
Program Name : ZME11_BDC.
Title : PURCHASE INFORMATION RECORD LOAD PROGRAM
Program Objective : THIS PROGRAM READS IN THE PURCHASE
 INFORMATION FILE. IT CREATES A BDC SESSION TO
 USE TO LOAD THE PURCHASE INFORMATION RECORDS
 INTO SAP using the ME11 Transaction.
REPORT ZME11_BDC no standard page heading MESSAGE-ID ZHNC line-size 55.
 constants declaration
constants: c_x value 'X',
 c_sess type apqi-groupid value 'zcustomer',
 c_xd01 type tstc-tcode value 'ME11'.
 DECLARING VARIABLES
DATA: V_MSG(255),
 V_ERREC TYPE I,"NO OF FAILED RECORDS
 V_LINES."NO OF RECORDS
 FLAG DECLARATIONS
DATA: FG_DATA_EXIST VALUE 'X',"CHECK FOR DATA
 FG_SESSION_OPEN VALUE ''.
 STRUCTURES AND INTERNAL TABLE DECLARATIONS
TYPES :BEGIN OF TY_PIR,
 LIFNR TYPE EINA-LIFNR,
 MATNR TYPE EINA-MATNR,
 EKORG TYPE EINE-EKORG,
 WERKS TYPE EINE-WERKS,
 VERKF TYPE EINA-VERKF,"sales person
 TELF1 TYPE EINA-TELF1,"telephone
 URZLA TYPE EINA-URZLA,"country
 REGIO TYPE EINA-REGIO,"region
 APLFZ(5),"plan deleivery time
 EKGRP TYPE EINE-EKGRP,"purchase group
 NORBM(13),
 NETPR(13),
 END OF TY_PIR.
DATA : IT_PIR TYPE TABLE OF TY_PIR,
 WA_PIR LIKE LINE OF IT_PIR.
DATA: BEGIN OF IT_BDCDATA.
INCLUDE STRUCTURE BDCDATA.
DATA END OF IT_BDCDATA.
DATA : BEGIN OF IT_BDCMSG.
INCLUDE STRUCTURE BDCMSGCOLL.
DATA END OF IT_BDCMSG.
 SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETER : FNAME TYPE RLGRAP-FILENAME.
SELECTION-SCREEN END OF BLOCK B1.
 AT SELECTION ON VALUE REQUEST
AT SELECTION-SCREEN ON VALUE-REQUEST FOR FNAME.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
 PROGRAM_NAME = SYST-CPROG
 DYNPRO_NUMBER = SYST-DYNNR
 FIELD_NAME = ' '
IMPORTING
 FILE_NAME = FNAME.
 START OF SELECTION
START-OF-SELECTION.
PERFORM F_GET_DATA USING FNAME
 CHANGING IT_PIR.
PERFORM F_GENERATE_DATASET USING FNAME
 CHANGING IT_PIR WA_PIR.
*& Form F_GET_DATA
 text
 -->P_V_FNAME text
 <--P_IT_PIR text
FORM F_GET_DATA USING P_FNAME LIKE FNAME
 CHANGING P_IT_PIR LIKE IT_PIR.
DATA: LV_FILE TYPE STRING.
LV_FILE = FNAME.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
 FILENAME = LV_FILE
 FILETYPE = 'DAT'
HAS_FIELD_SEPARATOR = 'X'
HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
CHECK_BOM = ' '
IMPORTING
FILELENGTH =
HEADER =
TABLES
 DATA_TAB = P_IT_PIR
EXCEPTIONS
 FILE_OPEN_ERROR = 1
 FILE_READ_ERROR = 2
 NO_BATCH = 3
 GUI_REFUSE_FILETRANSFER = 4
 INVALID_TYPE = 5
 NO_AUTHORITY = 6
 UNKNOWN_ERROR = 7
 BAD_DATA_FORMAT = 8
 HEADER_NOT_ALLOWED = 9
 SEPARATOR_NOT_ALLOWED = 10
 HEADER_TOO_LONG = 11
 UNKNOWN_DP_ERROR = 12
 ACCESS_DENIED = 13
 DP_OUT_OF_MEMORY = 14
 DISK_FULL = 15
 DP_TIMEOUT = 16
 OTHERS = 17
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF P_IT_PIR IS INITIAL.
FG_DATA_EXIST = ''.
ENDIF.
ENDFORM. " F_GET_DATA
*& Form F_GENERATE_DATASET
 text
 -->P_V_FNAME text
 <--P_IT_PIR text
FORM F_GENERATE_DATASET USING P_V_FNAME LIKE FNAME
 CHANGING P_IT_PIR LIKE IT_PIR
 P_WA_PIR LIKE WA_PIR.
MESSAGE I001(ZHNC).
*OPENING FILE AT THE APPLICATION SERVER FOR WRITING
OPEN DATASET FNAME FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF SY-SUBRC EQ 0.
MESSAGE I002(ZHNC).
LOOP AT P_IT_PIR INTO P_WA_PIR.
SPLIT P_WA_PIR AT '*' INTO P_WA_PIR-LIFNR
 P_WA_PIR-MATNR
 P_WA_PIR-EKORG
 P_WA_PIR-WERKS
 P_WA_PIR-VERKF
 P_WA_PIR-TELF1
 P_WA_PIR-URZLA
 P_WA_PIR-REGIO
 P_WA_PIR-APLFZ
 P_WA_PIR-EKGRP
 P_WA_PIR-NORBM.
*TRANSFER THE FILE FROM INTERNAL TABLE TO APPLICATION SERVER
MESSAGE I003(ZHNC).
TRANSFER P_WA_PIR TO FNAME.
ENDLOOP.
*CLOSING THE FILE AT THE APPLICATION SERVER
CLOSE DATASET FNAME.
ENDIF.

Hello,
I made a similar program. You can have a look at it.
*& Form write_to_app_server
 text
--> p1 text
<-- p2 text
FORM write_to_app_server.
To get filename
PERFORM get_filename.
To write into the application server
OPEN DATASET g_filename_with_path FOR OUTPUT IN TEXT MODE.
IF sy-subrc = 0.
 LOOP AT <l_table> INTO <l_line>.
 TRANSFER <l_line> TO g_filename_with_path.
 ENDLOOP.
 CLOSE DATASET g_filename_with_path.
ELSE.
 CLOSE DATASET g_filename_with_path.
ENDIF.
To send mail
PERFORM send_mail.
ENDFORM. " write_to_app_server
*& Form get_filename
 text
--> p1 text
<-- p2 text
FORM get_filename.
DATA : l_log_path TYPE filepath-pathintern
 VALUE 'Y28M_DOWNLOADS_BACKGROUND' .
CALL FUNCTION 'FILE_GET_NAME_USING_PATH'
 EXPORTING
 client = sy-mandt
 logical_path = l_log_path
 operating_system = sy-opsys
 file_name = p_fname
 IMPORTING
 file_name_with_path = g_filename_with_path
 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. " get_filename
You may find it useful.
Regards,
Karuna.

File from the Application server

Hi gurus,
I am working on a scenario where I need to get a file from the application server and for this I need to ask user to enter the location and that too at the selection screen and then I need to read this location using open data set and read data set in my program , once I am done with this I need to do some other validations. so can you please help me out how to achieve this.
Thanks
Rajeev Gupta

Hi
Declare the selection screen with file as parameter so that the user enter the application server file..
the use the OPEND DATASET as mentioned in below code and process
Refer this:
http://help.sap.com/saphelp_nw04/helpdata/en/fc/eb3ca6358411d1829f0000e829fbfe/frameset.htm
ABAP code for uploading a TAB delimited file into an internal table. See code below for structures.
*& Report ZUPLOADTAB                                                  *                     &----
*& Example of Uploading tab delimited file                             *
REPORT zuploadtab                    .
PARAMETERS: p_infile LIKE rlgrap-filename
                        OBLIGATORY DEFAULT '/usr/sap/'..
DATA: ld_file LIKE rlgrap-filename.
*Internal tabe to store upload data
TYPES: BEGIN OF t_record,
    name1 like pa0002-VORNA,
    name2 like pa0002-name2,
    age   type i,
    END OF t_record.
DATA: it_record TYPE STANDARD TABLE OF t_record INITIAL SIZE 0,
      wa_record TYPE t_record.
*Text version of data table
TYPES: begin of t_uploadtxt,
name1(10) type c,
name2(15) type c,
age(5) type c,
end of t_uploadtxt.
DATA: wa_uploadtxt TYPE t_uploadtxt.
*String value to data in initially.
DATA: wa_string(255) type c.
constants: con_tab TYPE x VALUE '09'.
*If you have Unicode check active in program attributes then you will
*need to declare constants as follows:
*class cl_abap_char_utilities definition load.
*constants:
   con_tab type c value cl_abap_char_utilities=>HORIZONTAL_TAB.
*START-OF-SELECTION
START-OF-SELECTION.
ld_file = p_infile.
OPEN DATASET ld_file FOR INPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc NE 0.
ELSE.
DO.
    CLEAR: wa_string, wa_uploadtxt.
    READ DATASET ld_file INTO wa_string.
    IF sy-subrc NE 0.
      EXIT.
    ELSE.
      SPLIT wa_string AT con_tab INTO wa_uploadtxt-name1
                                      wa_uploadtxt-name2
                                      wa_uploadtxt-age.
      MOVE-CORRESPONDING wa_uploadtxt TO wa_upload.
      APPEND wa_upload TO it_record.
    ENDIF.
ENDDO.
CLOSE DATASET ld_file.
ENDIF.
*END-OF-SELECTION
END-OF-SELECTION.
*!! Text data is now contained within the internal table IT_RECORD
Display report data for illustration purposes
loop at it_record into wa_record.
    write:/     sy-vline,
           (10) wa_record-name1, sy-vline,
           (10) wa_record-name2, sy-vline,
           (10) wa_record-age, sy-vline.
endloop.
Regards
Anji

Error while extracting XML file from the application server

Hi ,
I am writing a XML file into the application server, after which when i try to extract the file to the local server using the report - RFASLDPC ,
the file is extracted, but with a '#' symbol at the first position.
Because of which the XML File does not open. But after i open the file in notepad and manually delete the '#' symbol and then reopen the file, it works fine.
Is there any way to remove the '#' symbol while extracting itself ??
Thanks in advance,
Vikas.

Select the option "No Character Set Conversion" in stead of Code page 1100.
However, I still have troubles -> the downloaded xml file misses a space on several places. This causes errors too.

Various ways to place a File in the Application Server.

Hi all,
 What are the various ways to place a file in the application Server.
 Please classify them as shown below.
 1. Use of ABAP Code.
 2. Without the use of ABAP code.
Regards

Hi
1. Use of ABAP Code.
by writing code like this
REPORT ZSD_EXCEL_INT_APP.
parameter: file_nm type localfile.
types : begin of it_tab1,
 f1(20),
 f2(40),
 f3(20),
 end of it_tab1.
data : it_tab type table of ALSMEX_TABLINE with header line,
 file type rlgrap-filename.
data : it_tab2 type it_tab1 occurs 1,
 wa_tab2 type it_tab1,
 w_message(100) TYPE c.
at selection-screen on value-request for file_nm.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
* PROGRAM_NAME = SYST-REPID
* DYNPRO_NUMBER = SYST-DYNNR
* FIELD_NAME = ' '
 STATIC = 'X'
* MASK = ' '
CHANGING
 file_name = file_nm
EXCEPTIONS
 MASK_TOO_LONG = 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.
start-of-selection.
refresh it_tab2[].clear wa_tab2.
file = file_nm.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
 filename = file
 i_begin_col = '1'
 i_begin_row = '1'
 i_end_col = '10'
 i_end_row = '35'
tables
 intern = it_tab
EXCEPTIONS
 INCONSISTENT_PARAMETERS = 1
 UPLOAD_OLE = 2
 OTHERS = 3
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
loop at it_tab.
case it_tab-col.
 when '002'.
 wa_tab2-f1 = it_tab-value.
 when '004'.
 wa_tab2-f2 = it_tab-value.
when '008'.
 wa_tab2-f3 = it_tab-value.
endcase.
at end of row.
append wa_tab2 to it_tab2.
clear wa_tab2.
endat.
endloop.
data : p_file TYPE rlgrap-filename value 'TEST3.txt'.
OPEN DATASET p_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
*--- Display error messages if any.
IF sy-subrc NE 0.
 MESSAGE e001(zsd_mes).
 EXIT.
ELSE.
*---Data is downloaded to the application server file path
 LOOP AT it_tab2 INTO wa_tab2.
 TRANSFER wa_tab2 TO p_file.
 ENDLOOP.
ENDIF.
*--Close the Application server file (Mandatory).
CLOSE DATASET p_file.
loop at it_tab2 into wa_tab2.
write : / wa_tab2-f1,wa_tab2-f2,wa_tab2-f3.
endloop.
Here is a pseudo code for what you are looking for-
OPEN DATASET P_FLPTH FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF SY-SUBRC eq 0.
LOOP AT LT_TAB INTO LS_TAB.
TRANSFER LS_TAB TO P_FLPTH.
ENDLOOP.
CLOSE DATASET P_FLPTH.
if sy-batch = 'X'.
write:/ 'File uploaded successfully'.
else.
message sXXX with 'File uploaded successfully'.
endif.
Else.
if sy-batch = 'X'.
write:/ 'Error in File upload'.
else.
message sxxx with 'Error in File upload'.
endif.
LEAVE PROGRAM.
ENDIF.
2. Without the use of ABAP code.
CG3Y -
Appl to Presentation server
Reward if useful

Excel file creation on application server

Gurus,
I have seen a lot of threads on excel file creation in application server, but failed to see if anyone had a solution.
Problem: In background execution I need to create an excel sheet on application server, the data would be contained in internal table, The FM like WS_DOWNLOAD etc..cannot support these as they have GUI component.
All the documentation that I have been through states to use dataset which saves the file in.csv or txt format seperated by delimiter, is it possible to save as a true excel file.
same as this thread:
Re: Excel download in Application Server
let me know,
Thanks in advance .

* Write column headers, if required
IF column_headers = 'X'.
* ... override field names with LABELS_IN, if specified
 IF NOT labels_in[] IS INITIAL.
 DESCRIBE TABLE labels_in LINES num_lines.
 IF num_lines > num_fields.
 RAISE too_many_labels.
 ELSEIF num_lines < num_fields.
 RAISE too_few_labels.
 ENDIF.
 ASSIGN COMPONENT 1 OF STRUCTURE labels_in TO <f>.
 LOOP AT fields_in.
 READ TABLE labels_in INDEX sy-tabix.
 fields_in-name = labels_in-name.
 MODIFY fields_in.
 ENDLOOP.
 ENDIF.
* ...write column headers to file...
 position = 0.
 LOOP AT fields_in.
 IF fixed_length NE space.
*** INSERT: DAR was here for Issue 17817 --------------- dar012009 ---v
 field_len = STRLEN( fields_in-name ).
*** INSERT: DAR was here for Issue 17817 --------------- dar012009 ---^
 DO fields_in-len TIMES.
 offset = sy-index - 1.
* IF sy-index > 15. dar012009
 IF sy-index > field_len. "dar012009
 line_out+position(1) = space.
 ELSEIF fields_in-name+offset(1) NE space.
 line_out+position(1) = fields_in-name+offset(1).
 ELSE.
 line_out+position(1) = space.
 ENDIF.
 position = position + 1.
 ENDDO.
 ELSE.
 CONCATENATE line_out fields_in-name INTO line_out
 SEPARATED BY delimiter.
 ENDIF.
 ENDLOOP.
 IF fixed_length EQ space.
 SHIFT line_out LEFT DELETING LEADING delimiter.
 ENDIF.
 IF no_write IS INITIAL. "dar041505
 TRANSFER line_out TO file_out.
 ENDIF. "dar041505
 data_out = line_out. APPEND data_out. "dar041505
ENDIF.
* Write lines to file...
LOOP AT data_in.
 CLEAR line_out.
 position = 0.
 DO num_fields TIMES.
 ASSIGN COMPONENT sy-index OF STRUCTURE data_in TO <f>.

Save PDF-file on the application server

Hello experts,
I convert my Smartform to a PDF-File. I copied the code from Suresh Kumar Parvathaneni (REPORT zsuresh_test). At first, thank you Suresh Kumar for that!
Now, I would like to save the PDF-File on the application server and not local.
Could you tell me how to do this. Especially, where do I have to put the abap-code in the given code from Suresh Kumar.
I thank you very much for your help in advance.
With kind regards.
gokselin

Hi,
You can use the OPEN DATASET statment.
Probably you must be having an output table which you are downloading to the local machine.You can use the same and loop at it. and if the OPEN dataset returned sy-subrc 0, use the TRANSFER statment.
Remember the data will be binary for pdf. So you have to open the dataset in binary mode.
regards,
Advait

Regarding reading data from a file in the application server.

Hello Everyone,
My question is:
The file in the application server consists of data with header, detail and trail out of which the detail contains the main information. The detail again contains the data in the form of a continuous string and again some spaces corresponding to a single record. I need to split the data in the internal table in such a way so that the first few characters get into field-1 of the target internal table. Again I need to consider the spaces for accessing the data for filling up in field-2. How do I decide on the 'Split' statement and specially when the whole string has to be taken care of as contatining data in a single string format without space and again some data after some spaces corresponding to a single record.
Your help is very much needed. Thanks to all the experts in advance.

Hi
This is the sample code I was used for the similar requirement.
DATA: single_line TYPE string .
v_file_listings = pa_filn1.
IF v_file_listings IS INITIAL .
MESSAGE e039 WITH v_file_listings.
ENDIF.
*-- read file, split lines into fields and put data into table
OPEN DATASET v_file_listings FOR INPUT IN TEXT MODE ENCODING NON-UNICODE. "Opening the files
IF sy-subrc EQ 0.
DO.
READ DATASET v_file_listings INTO single_line. "Reading the content of file into line
IF sy-subrc = 0.
IF sy-index > 1. "skip header-line
SPLIT "Split the content of line into work area
single_line
AT k_split
INTO
wa_listings-kschl " Condition type
wa_listings-tabname16 " Condition table name
wa_listings-vkorg " Sales organisation
wa_listings-kunnr " sold-to party numberor ship-to party number
wa_listings-matnr " Material Number
wa_listings-kodatab " Valid-from date
wa_listings-kodatb1. " Valid-to date
APPEND wa_listings TO itab_listings. "Appending Work Area to internal table
ENDIF.
ELSE.
EXIT.
ENDIF.
v_count1 = sy-tabix.
ENDDO.
Regards,
Sreeram

Function Module that gives the names of the file in the Application Server.

Hi Experts,
Please give me a Function Module that gives the names of the file in the Application Server.
Thanks,
Debi.

Hi,
see these links
http://help.sap.com/saphelp_nw04/helpdata/en/2a/fa02b7493111d182b70000e829fbfe/content.htm
http://abaplovers.blogspot.com/2008/05/function-module-sap-logged-in-users-to.html
http://www.saptechies.com/abap-function-modules/
http://sap.ittoolbox.com/groups/technical-functional/sap-dev/function-module-to-get-data-and-time-of-file-576751
thanks
karthik

Renaming a file on the application server

Hi all,
I create a file on the Application server which I want to rename means a program.
I would like to add the system stamptime at the time the program is running.
sample:
original name:
file.csv
final name:
file_20060626123000.csv
does somebody have an ABAP program to do that ? other ideas?
Thanks in advance,
FedeX

Thanks for the answers,
I do not what I doing wrong in my sample....
I am using this logical path and logical file in an InfoSpoke..
and I get the error:
"could not open file on application server"
My definitions are:
Logical PATH : Z_PATH_TEST
Syntax Group ->UNIX
<P=DIR_HOME>/<FILENAME>
( I am sure DIR_HOME is set correcty on SAP Directories)
Logical FILE NAME : Z_NAME_TEST
Physical Name :File1_<DATE>.csv
Data Format : ASC
Logical Path: Z_PATH_TEST
What could be wrong here?... Thanks again
FedeX

Printing files on the application server

Hi,
I am looking for ways to print files residing on the application server. Do you know of any function modules/transaction code that can do this?
Here is my situation:
I am using GRAPH_PRINT_POSTSCRIPT_FILE to print postscript file to the printer. I have no problem using this FM. The issue is that this function only prints files residing on the PC/local computer. It doesn't print any files on the application server.
Thanks in advance for any help you can provide.

Hi,
use
   CALL FUNCTION 'F4_DXFILENAME_4_DYNP'
     EXPORTING
       dynpfield_filename = 'P_FNAME'
       dyname             = 'ZFILE_HELP'
       dynumb             = sy-dynnr
       filetype           = 'P'
       location           = 'A'.
Thanks,
NN.

Upload and download of excel file in the application server in background

Similar Messages

Maybe you are looking for