Creating a File in Application Server

Hi i have some data in the internal table itab. which contains few fields. Some of the fields are blanks and some contains data. Now i am transfering this internal table to file which is in Application Server. When i trnasfer itab to file, blank fields are concatenated by next field.
Explanation:
itab contains fallwoing data:
field1 field2 field3 field4 field5
uu kk nn ii
when i transer this to file it is coming as fallows
field1 field2 field3 field4 field5
uu kk nn ii
how can i solve this problem
Thanx in Advance
Subhani.

Hi Subhani,
This probelm can be fixed very easily. All you need to do is to use Offsets while writing to the file from internal table. This is done as follows:
DATA: gv_string(217) TYPE c, " Holds text to display
Loop at <itab> into <wa>.
 gv_string+0(5) = <wa>-<fieldname>
 gv_string+10(5) = <wa>-<fieldname>
do this for all the fileds.
Endloop.
Note: In the above code snipet, 0(5) represents 'Starting for the 0th position, reserve 5 characters and print it there. Use this for all the fields of your internal table. Based on the size of the field(s) of the itab, allocate the space accordingly.
PLZ REWARD POINTS IF HELPFUL

Similar Messages

Unable to create a file in Application Server using OPEN DATASET stattement.

I am unable to create a file in Application Server using the following statement.
OPEN DATASET filename FOR OUTPUT
IN TEXT MODE ENCODING DEFAULT
MESSAGE msg.
The message I'm getting is "Permission Denied". I have checked authorisation using SU53 which says "The last authorization check was successful". Please help.

You can use following code to capture the error.
TRY.
      OPEN DATASET filename FOR OUTPUT IN BINARY MODE MESSAGE V_MSG.
      CATCH CX_ROOT
      INTO EXCEPTION.
      CALL METHOD O_EXCEPTION ->IF_MESSAGE~GET_TEXT
        RECEIVING
        RESULT = V_MSG.
      MESSAGE v_msg
      TYPE 'E'.
ENDTRY.
You can capture error in v_msg.
Following are the exceptions for the same:
Exceptions
Catchable Exceptions
CX_SY_FILE_OPEN
Cause: The file is already open.
Runtime Error: DATASET_REOPEN
CX_SY_CODEPAGE_CONVERTER_INIT
Cause: The desired conversion is not supported. (Due to specification of invalid code page or of language not supported in the conversion, with SET LOCALE LANGUAGE.)
Runtime Error: CONVT_CODEPAGE_INIT
CX_SY_CONVERSION_CODEPAGE
Cause: Internal error in the conversion.
Runtime Error: CONVT_CODEPAGE
CX_SY_FILE_AUTHORITY
Cause: No authorization for access to file
Runtime Error: OPEN_DATASET_NO_AUTHORITY
Cause: Authorization for access to this file is missing in OPEN DATASET with addition FILTER.
Runtime Error: OPEN_PIPE_NO_AUTHORITY
CX_SY_PIPES_NOT_SUPPORTED
Cause: The operating system does not support pipes.
Runtime Error: DATASET_NO_PIPE
CX_SY_TOO_MANY_FILES
Cause: Maximum number of open files exceeded.
Runtime Error: DATASET_TOO_MANY_FILES   Non-Catchable Exceptions
Cause: An attempt was made to open a pipe that is already open.
Runtime Error: DATASET_PIPE_POSITION
Hope that will help you.
Please reward if useful.

Create Excel file in application server but the field value is incorrect

Hi Experts,
i am facing a problem when create excel file in application server using OPEN DATASET command.
the internal table have 4 field and one of those field contains 19 digit number --> ICCID.
the code running well, successfully create EXCELfile in application server but the problem is SAP only copy exactly first 15 digit numeric only and the rest became zero 0
Example :
the field value in internal table is 8962118800000447654 but when i opened in the excel file the value became 8962118800000440000.
and if i add alphabet like a8962118800000447654 then it is correct.
is there is anything wrong with my code?
here is my code
CONSTANTS: c_tab TYPE abap_char1 VALUE cl_abap_char_utilities=>horizontal_tab. "Tab Char
Data : begin of lt_zdsdmmdt00005 occurs 0,
         SERNR (18) type c,
         MSISDNl(20) type c,
         BOX1 (20) type c,
         ICCID(30) type c,
       end of lt_zdsdmmdt00005.
data : ld_temp(100) type c.
i_file = '/usr/sap/DM/test_excel.xls'.
open dataset i_file for output in legacy text mode.
loop at lt_zdsdmmdt00005.
    move lt_zdsdmmdt00005-ICCID to ld_iccid .
    concatenate lt_zdsdmmdt00005-sernr lt_zdsdmmdt00005-MSISDN lt_zdsdmmdt00005-BOX1 ld_iccid
    into ld_temp separated by c_tab.
    transfer ld_temp to i_file.
endloop.
close dataset i_file.
Best Regard,
Akbar.

Hi Naveen,
thanks for your reply,
i already tried and the result still the same. any idea?
Best Regard,
Akbar.

Creating a file on application server that exceeds 10 Million charecters

Hello All,
We have custom IDocs which carry Strings of 1062 characters in each of their segments.
Now the requirement is to create a single string file out of these idocs data.
It is expected that each of these IDocs can go up to having more than 70,000 segments.
So, now when this is concatenated into one single string it can go upto 7 Million charecters.
My questions are:
1. Can we create a text file with so many charecters in a single line or is there any limitation for this ?
2. I have found a datatype CHAR30000, using which i'm currently concatnating around 30 segment data and then writing onto the file. Now once I wrote a single line, how can I set the pointer to End of line ?
3. Is there any limitation in ABAP to create such a long string text file using method mentioned above ?
Thanks for responding back!!
-Sri

No, It should be something like below.. for writing the file onto application server , which aint working though...
*Writing output data into the file.
lw_endofline = 30000.
OPEN DATASET p_fileop FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
LOOP AT int_output INTO wa_output.
    TRANSFER wa_output-sdata TO p_fileop.
    "SET DATASET p_fileop POSITION lw_endofline.
    SET DATASET p_fileop POSITION lw_endofline.
    lw_endofline = lw_endofline + 30000.
ENDLOOP.
CLOSE DATASET p_fileop.

OPEN DATASET create .txt file in application server

Hi,
I'm trying to create a .txt into application server. Code as follows:-
OPEN DATASET gv_filestatus FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc <> 0.
 WRITE: 'File cannot be opened.'.
ENDIF.
LOOP AT gt_pdfstatus INTO gw_pdfstatus.
 TRANSFER gw_pdfstatus TO gv_filestatus.
ENDLOOP.
CLEAR gw_pdfstatus.
CLOSE DATASET gv_filestatus.
But I got the error "GW_PDFSTATUS" cannot be a table, a reference, a string, or contain any of these objects. GW_PDFSTATUS is a work area with 5 fields of different type. I know that I can transfer table type of TLINE but I'm not sure how to convert my internal table gt_pdfstatus as TLINE.
Please advise. Thanks.

When transfering data to a file, you should convert the data to type char and then transfer it to the file.
So, you would need to declare a structure with 5 fields of type c with the corresponding length of the original structure.
Then move the corresponding fields of work are gw_pdfstatus to the character type structure. And then transfer the new structure to the file (gv_filestatus in your case).
"for example if all the fields in the gw_pdfstatus are of lenght 10, then declare a structure as follows
data : begin of file_wa,
f1(10) type c,
f2(10) type c,
f3(10) type c,
f4(10) type c,
f5(10) type c,
end of file_wa.
OPEN DATASET gv_filestatus FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc 0.
 WRITE: 'File cannot be opened.'.
ENDIF.
LOOP AT gt_pdfstatus INTO gw_pdfstatus.
 move-corresponding gw_pdfstatus to file_wa. " Add this
 TRANSFER file_wa TO gv_filestatus. " Change this line
ENDLOOP.
CLEAR gw_pdfstatus.
CLOSE DATASET gv_filestatus.
Hope this helps.
KR,
Advait

Problem in creating a file on Application Server

Hi,
I am facing an issue while creating a file on the application server.
I am creating a file with sales data from SAP and saving it on the application server.
At the end of this operation, I am calling a Unix script to push this file from SAP to an external system.
The issue I am facing is - at every month end, when I run a job for creating the file (its a custom program which is scheduled to run periodically), I get a strange scenario where a BLANK FILE gets created on the application server even though the data tables are not blank.
Also the user id gets changed to UID = 1400 when I run this job for the first time when a BLANK FILE gets created.
When I delete this file and run the job again, though, the file gets created WITH DATA.
The user name remains DEVADM (Dev Admin), as it should be for the scheduled jobs.
What could be the possible reasons for this?
Please help me in this direction.
Thank you.
Regards,
Keerthi

Hi,
You are using OPEN DATASET ? And what is the sy-subrc ?
Can you post some lines of your code?
Best regards,
Leandro Mengue

Create XML file on application server (unix directory) from internal table

Hallo everybody,
I have got the following problem:
I am working with release 4.6C and have got to create XML files from HR master data and organizational data respectively.
This takes place in 3 steps:
1. Collect the data in an internal table
2. Convert the data to XML format using the function module 'SAP_CONVERT_TO_XML_FORMAT'
3. Download the data
If I download the converted data, which are in an internal table, to the presentation server via the function module WS_DOWNLOAD and open it with the Internet Explorer, everything is ok.
If I download the converted data to the application server, i.e. into a unix directory via
open dataset, loop at internal table, transfer working area to file, close dataset
and then try to open it, this is not possible, because after the last tag some unreadable characters, e.g. a square, appear that arent supposed to be there. Thats what my colleagues told me, for I havent got access to the server.
I have no idea where these characters come from and how I can get rid of them. I guess that either I have to modify (how?) the table with the converted data before the download or I have to use another way to convert the data. For the second way I would probably have to work with an XML class or an XML interface. Unfortunately II am not an expert in working with classes so sample coding would have to be rather detailed.
Heres some more information about how I work with the conversion function module:
call function 'SAP_CONVERT_TO_XML_FORMAT'
 exporting
 i_field_seperator = lv_field_seperator
 i_line_header = lv_line_header
 i_filename = lv_xml_file
 i_appl_keep = ' '
 i_xml_doc_name = lv_xml_doc_name
 importing
 pe_bin_filesize = lv_result
 tables
 i_tab_sap_data = gt_data
 changing
 i_tab_converted_data = lt_tab_converted_data
 exceptions
 conversion_failed = 1
 others = 2.
lv_field_seperator = X.
lv_xml_doc_name = Personalstammdaten Publikation
lv_result: type i
gt_data: fields: PERNR, PERSG, PERSK etc.
types:
begin of truxs_xml_line,
 data(256) type x,
end of truxs_xml_line.
types:
truxs_xml_table type table of truxs_xml_line.
data:
lv_tab_converted_data type truxs_xml_line,
lt_tab_converted_data type truxs_xml_table
open dataset lv_xml_file for output in binary mode.
loop at lt_tab_converted_data into lv_tab_converted_data.
transfer lv_tab_converted_data to lv_xml_file.
endloop.
close dataset lv_xml_file
lv_xml_file: /usr/users/.../.../Personendaten_2004-11-02.xml
Hope the information is detailed enough! Otherwise let me know. Thank you in advance.
Message was edited by: Johannes Schwehm

Hi Raja,
tried the "TEXT" mode, but that didn't help.
There are still characters after the last tag, that are not supposed to be there including a date that is not
the creation date of the file.
Thank you for your help.
Regards
Johannes

Create excel file on application server

Hi experts,
Is it possiblel to create an excel file on the application server in a background process ?
We have an windows nt application server.
I tried with open dataset ..but i didn't work 100% good.
has anybody any sample ?
Thanks.

I m using an csv file as tabdelimited .
data: htab(1) type c.
htab = cl_abap_char_utilities=>horizontal_tab.
the file is downloaded as excel , but if i open the file i see the content of a row always in the first column.
Types : begin of ty_test,
 name1 type char10,
 name2 type char10,
 end of ty_test.
Data : it_test type table of ty_test,
 wa_test type ty_test,
 wa_row type string.
data: htab(1) type c.
htab = cl_abap_char_utilities=>horizontal_tab.
wa_test-name1 = 'name1'.
wa_test-name2 = 'name2'.
append wa_test to it_test.
clear wa_test.
open dataset <filename> for output in text mode
 encoding default.
 loop at it_test into wa_test.
 conatenate wa_test-nam1 wa_test-name2 into wa_row separated by htab.
 transfer wa_row to <filename>.
endloop.
close dataset.
Edited by: Moo Yac on Jul 2, 2009 11:48 AM

Authorization for the user to write/read/create a file in application serve

Hi experts.
I am uploading some data to a file in a folder in application server, created in AL11 tcode.
In my program i need to restrict the unauthorized users to create/write/read a file in app server.
I dont know how to do this.
Kindly give me the code, please it wil be helpfull for you all.
I dont know how to use the auth object or function module, to do this.
Is the basis/security people need to do something.
Kindly revert me back ASAP.
KK

Or use AUTHORITY_CHECK_DATASET function module before the open data set
This function module allow you to check the user's authorization to access files (with the key words OPEN DATASET, READ DATASET, TRANSFER and DELETE DATASET). A check should be performed before opening a file.
The authorization check is performed uwing the authorization object S_DATASET.
Description of function parameters:
PROGRAM: Name of the ABAP/4 program that contains the file access. If no program name is specified, the system assumes the current program.
ACTIVITY: Access type. The possible values are:
READ: Read file
WRITE: Change file
READ_WITH_FILTER: Read file with filter function
WRITE_WITH_FILTER: Change file with filter function
DELETE: Delete file
FILENAME: Name of accessed file
Example
Notes
The values to be passed as the ACTIVITY are defined as constants in the TYPE-POOL SABC.

Creating a new file in application server

hai,
please rectify this, how to create a file in application server ?
 can any one forward a sample code for creating a file in application server.
 hazam

Hi Hazam,
Please check the below code.
Data : P_UFILE(60) " Unix File name
 TYPE C
 value '/emn_R3/hr/ben_age25_dep'.
 CLEAR GD_SUBRC.
 OPEN DATASET GD_FILE FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
 IF SY-SUBRC <> 0.
 GD_SUBRC = SY-SUBRC.
 gs_error-pernr = gs_0021-pernr.
 gs_error-ename = gd_ename.
 gs_error-mess
 = 'Can not open File:'(017) + gd_file.
 append gs_error to gt_error.
 clear gs_error.
* CLEAR GD_MSG1.
* CONCATENATE 'Can not open File:'(017)
* GD_FILE
* INTO GD_MSG1.
* WRITE : / GD_MSG1.
 ELSE.
 LOOP AT GT_BODY INTO GS_BODY.
 TRANSFER GS_BODY TO GD_FILE.
 ENDLOOP.
 CLOSE DATASET GD_FILE.
 ENDIF.
Hope this will help you.
Thanks&Regards,
Siri.
Message was edited by: Srilatha T

FTP without creating files on Application server

hello everyone,
in an internal table i have around 100 records each of length around 3500 chararters. i want to send this data to the client via ftp in the form of txt file. since the lenght of each record exceeds 1000 bytes, i thought of sending the data directly to the ftp server without creating the file on the application server. is this feasible. please provide the necessary steps to achieve this.

Hi,
The FTP involves a lot of complexity but you can do the SCP(secure copy) instead. And what u can do is first create a file on application server and then u can delete it...
the sample code is below..
#!/bin/ksh
scp <filename> <destination>
rm -f <filename>

Delete files from APPLICATION SERVER?

Hi All,
I am creating the files in application server with folder name as
/interface/freeway/ and filename as PO concatenating with sy-datum and sy-uzeit.
Ex file name now is /interface/freeway/PO20081201064120.csv
Now my req is i need to delete files which has beeen created less than 30 days.
regards,
Sachin.

hi,,,,,,
REPORT ZDELETE.
* Delete a file on the application server.
PARAMETERS: P_DIR LIKE RLGRAP-FILENAME
DEFAULT '/usr/sap/trans/',
P_FILE1 LIKE RLGRAP-FILENAME.
DATA: P_FILE(128).
DATA: W_ANS.
START-OF-SELECTION.
CONCATENATE P_DIR P_FILE1 INTO P_FILE.
* check file exists
OPEN DATASET P_FILE FOR INPUT.
IF SY-SUBRC NE 0.
MESSAGE E899(BD) WITH P_FILE 'does not exist'.
EXIT.
ELSE.
CALL FUNCTION 'POPUP_CONTINUE_YES_NO'
EXPORTING
DEFAULTOPTION = 'N'
TEXTLINE1 = P_DIR
TEXTLINE2 = P_FILE1
TITEL = 'ARE YOU SURE YOU WANT TO DELETE'
* START_COLUMN = 25
* START_ROW = 6
IMPORTING
ANSWER = W_ANS
EXCEPTIONS
OTHERS = 1.
ENDIF.
CLOSE DATASET P_FILE.
CHECK W_ANS = 'J'.
* delete
DELETE DATASET P_FILE.
IF SY-SUBRC NE 0.
MESSAGE E899(BD) WITH 'Invalid file name' P_FILE.
ELSE.
CLOSE DATASET P_FILE.
MESSAGE I899(BD) WITH P_DIR P_FILE1 'DELETED'.
ENDIF.

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

Change character set used to write a file in application server.

Hello Experts,
I want to know if we can change the character set used to create a file in application server.(Is it posible to use a particular character set while creating a file in application server.
I will be very great full for any help.
Thanks in advance.
Sharath

Hello Sarath,
There is an extension CODE PAGE with OPEN DATASET stmt.
Can you please elaborate which character set you want to write to the application server?
BR,
Suhas

Move pdf file into application server

Hi ABAP Gurus,
i want your valuable help in solving my problem.
i tried to create PDF file in application server and its creating as
PDF file in Application server..but i am unable to see the content in text ,
instead it is displaying in binary content...but when i tried to create
in presentation server i am able to see it as text in PDF file....
Can u please let me know whats wrong in my work and how to create a PDF file
in Application server with text content
with regards,
Gowri.

Hi Gowri,
Check this example....
report ztest.
data: begin of itab occurs 0,
field(256),
end of itab.
data: dsn(100) value '/usr/sap/xfr/FIS/testpdf',
length like sy-tabix,
lengthn like sy-tabix.
call function 'GUI_UPLOAD'
exporting
filename = 'c:\temp\test.pdf'
filetype = 'BIN'
importing
filelength = length
tables
data_tab = itab.
open dataset dsn for output in binary mode.
loop at itab.
transfer itab-field to dsn.
endloop.
close dataset dsn.
clear itab.
refresh itab.
*- To crosscheck if it went well
open dataset dsn for input in binary mode.
do.
read dataset dsn into itab-field.
if sy-subrc = 0.
append itab.
else.
exit.
endif.
enddo.
call function 'GUI_DOWNLOAD'
exporting
filename = 'c:\temp\testn.pdf'
filetype = 'BIN'
bin_filesize = length
importing
filelength = lengthn
tables
data_tab = itab.
Or
Use the TCode
CG3Z or CG3Y
for downloading to Application Server.
Thanks,
Reward If helpful.

Creating a File in Application Server

Similar Messages

Maybe you are looking for