Length of file in application server

Hi ,
      Is there any standard function module to find the number of bytes occupied by the file in application server...
      I want to transfer my file to application server and check if it is properly transferred...
     Once i need to check before transferring and once after transferring....
     Please advice

hi,
see my sample program:
REPORT ZIT_FIL_TEST .
TYPES: NAME_OF_DIR(1024) TYPE C,
 NAME_OF_FILE(260) TYPE C,
 NAME_OF_PATH(1285) TYPE C.
DATA: BEGIN OF searchpoints OCCURS 10,
 dirname TYPE NAME_OF_DIR, " name of directory.
 sp_name TYPE NAME_OF_FILE, " name of entry. (may end with *)
 sp_cs(10) TYPE c, " ContainsString pattern for name.
 END OF searchpoints.
DATA: BEGIN OF file,
 dirname TYPE NAME_OF_DIR, " name of directory. (possibly
 " truncated.)
 name TYPE NAME_OF_FILE, " name of entry. (possibly
 " truncated.)
 type(10) TYPE c, " type of entry.
 len(8) TYPE p, " length in bytes.
 owner(8) TYPE c, " owner of the entry.
 mtime(6) TYPE p, " last modification date, seconds since 1970
 mode(9) TYPE c, " like "rwx-r-x--x": protection mode.
 useable(1) TYPE c,
 subrc(4) TYPE c,
 errno(3) TYPE c,
 errmsg(40) TYPE c,
 mod_date TYPE d,
 mod_time(8) TYPE c, " hh:mm:ss
 seen(1) TYPE c,
 changed(1) TYPE c,
 END OF file.
 CALL 'C_DIR_READ_FINISH'
 ID 'ERRNO' FIELD file-errno
 ID 'ERRMSG' FIELD file-errmsg.
searchpoints-dirname = '.'.
* searchpoints-sp_name = '*'.
searchpoints-sp_name = 'dev_tp'.
CALL 'C_DIR_READ_START' ID 'DIR' FIELD searchpoints-dirname
 ID 'FILE' FIELD searchpoints-sp_name
 ID 'ERRNO' FIELD file-errno
 ID 'ERRMSG' FIELD file-errmsg.
WRITE: / file-errmsg.
IF sy-subrc <> 0.
 sy-subrc = 4.
 EXIT.
ENDIF.
DO.
 CLEAR file.
 CALL 'C_DIR_READ_NEXT'
 ID 'TYPE' FIELD file-type
 ID 'NAME' FIELD file-name
 ID 'LEN' FIELD file-len.
 CASE sy-subrc.
 WHEN 0.
 WRITE: / file-name, file-len.
 WHEN 1. " end of directory
 EXIT.
 WHEN 4. " filename too long
 WHEN OTHERS.
 ENDCASE.
ENDDO.
CALL 'C_DIR_READ_FINISH'
 ID 'ERRNO' FIELD file-errno
 ID 'ERRMSG' FIELD file-errmsg.
regards,darek

Similar Messages

How to download file from application server

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

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

Fetching of multiple files from Application Server into SAP Program

Hi All,
I have a issue related Fetching of multiple files from Application Server into SAP Program.
Actual issue is as below.
In the selection screen of my program i will give Application Server Path as :
/PW/DATA/SAP/D1S/PP/DOWN/eppi0720*
Then the based on above input it should pick up all the files that are matching eppi0720* criteria.
Suppose if i am having 5 files with above scenario, i have to fetch all those 5 files at a time and place in my SAP Program.
All those 5 file's data should come into SAP at a time.
Can anybody tell me how can we solve above issue.
If any body has come across same issue please provide me with solution.
Thanks in advance.
Thanks & Regards,
Rayeez.

If you want to get around the authorization check, you can do something like this.
report zrich_0001 .
parameters: p_path type epsf-epsdirnam
 default '/usr/sap/TST/SYS/global'.
parameters: p_file type epsf-epsfilnam default 'CO*'.
start-of-selection.
perform get_file_list.
* FORM get_file_list *
form get_file_list.
types: name_of_dir(1024) type c,
 name_of_file(260) type c,
 name_of_path(1285) type c.
data: begin of file_list occurs 100,
 dirname type name_of_dir, " name of directory. (possibly
 " truncated.)
 name type name_of_file, " name of entry. (possibly
 " truncated.)
 type(10) type c, " type of entry.
 len(8) type p, " length in bytes.
 owner(8) type c, " owner of the entry.
 mtime(6) type p, " last modification date, seconds since 1970
 mode(9) type c, " like "rwx-r-x--x": protection mode.
 useable(1) type c,
 subrc(4) type c,
 errno(3) type c,
 errmsg(40) type c,
 mod_date type d,
 mod_time(8) type c, " hh:mm:ss
 seen(1) type c,
 changed(1) type c,
 end of file_list.
data: begin of file,
 dirname type name_of_dir, " name of directory. (possibly
 " truncated.)
 name type name_of_file, " name of entry. (possibly
 " truncated.)
 type(10) type c, " type of entry.
 len(8) type p, " length in bytes.
 owner(8) type c, " owner of the entry.
 mtime(6) type p, " last modification date, seconds since 1970
 mode(9) type c, " like "rwx-r-x--x": protection mode.
 useable(1) type c,
 subrc(4) type c,
 errno(3) type c,
 errmsg(40) type c,
 mod_date type d,
 mod_time(8) type c, " hh:mm:ss
 seen(1) type c,
 changed(1) type c,
 end of file.
call 'C_DIR_READ_FINISH' " just to be sure
 id 'ERRNO' field file_list-errno
 id 'ERRMSG' field file_list-errmsg.
call 'C_DIR_READ_START' id 'DIR' field p_path
 id 'FILE' field p_file
 id 'ERRNO' field file-errno
 id 'ERRMSG' field file-errmsg.
if sy-subrc <> 0.
 sy-subrc = 4.
 exit.
endif.
* Read the file list and add to internal table.
do.
 clear file.
 call 'C_DIR_READ_NEXT'
 id 'TYPE' field file-type
 id 'NAME' field file-name
 id 'LEN' field file-len
 id 'OWNER' field file-owner
 id 'MTIME' field file-mtime
 id 'MODE' field file-mode
 id 'ERRNO' field file-errno
 id 'ERRMSG' field file-errmsg.
 if sy-subrc = 1.
 exit.
 endif.
 append file to file_list.
enddo.
* Write out the file list
loop at file_list.
 write:/ file_list-name.
endloop.
endform.
Regards,
Rich Heilman

What are the commands available to read a file from application server and

What are the commands available to read a file from application server and store the file into an internal table?

Hi,
To read a file from an Application Server to an Object there is a command in ABAP called READ DATASET. After that file is transported to that object you have to do a loop and put that data in an Internal Table.
This statement exports data from the file specified in dset into the data object dobj. For dobj, variables with elementary data types and flat structures can be specified. In Unicode programs, dobj must be character-type if the file was opened as a text file.
For dset, a character-type data object is expected - that is, an object that contains the platform-specific name of the file. The content is read from the file starting from the current file pointer. After the data transfer, the file pointer is positioned after the section that was read. Using the MAXIMUM LENGTH addition, the number of characters or bytes to be read from the file can be limited. Using ACTUAL LENGTH, the number of characters or bytes actually used can be determined.
In a Unicode program, the file must be opened with an arbitrary access type; otherwise, an exception that cannot be handled will be triggered.
If the file has not yet been opened in anon-Unicode program, it will be implicitly opened as a binary file for read access using the statement
OPEN DATASET dset FOR INPUT IN BINARY MODE.
. If a non-existing file is accessed, an exception that can be handled can be triggered.
Influence of Access Type
Files can be read independently of the access type. Whether data can be read or not depends solely on the position of the file pointer. If the latter is at the end of the file or after the file, no data can be read and sy-subrc will be set to 4.
Influence of the Storage Type
The import function will take place irrespective of the storage type in which the file was opened with the statement OPEN DATASET.
If the file was opened as a text file or as a legacy text file, the data is normally read from the current position of the file pointer to the next end-of-line marking, and the file pointer is positioned after the end-of-line marking. If the data object dobj is too short for the number of read characters, the superfluous characters and bytes are cut off. If it is longer, it will be filled with blanks to the right.
If the file was opened as a binary file or as a legacy-binary file, as much data is read that fits into the data object dobj. If the data object dobj is longer than the number of exported characters, it is filled with hexadecimal 0 on the right.
If the specified storage type makes conversion necessary, this is executed before the assignment to the data object dobj. Afterwards, the read data is placed, byte by byte, into the data object.
System Fields
sy-subrc Meaning
0 Data was read without reaching end of file.
4 Data was read and the end of the file was reached or there was an attempt to read after the end of the file.
Thanks,
Samantak.
Rewards points for useful answers.

Issue in Uploading file to application server

Hi folks,
I need to transfer data to excel file on application server but i am facing issues while doing so.
I am working on ECC6.0 system.
I am trying with this code and it giving dump error on transfer command.
w_file = '/usr/data/020//varun.xls'.
OPEN DATASET w_file for input in text mode encoding non-unicode.
LOOP AT T_MARD.
TRANSFER string to w_file.
endloop.
CLOSE DATASET w_file.
Please help.
Is there any other way to do so please let me know

Hi Got the solution :-
If the data to be transferred is having all characters then we can use this:-
OPEN DATASET w_file for output in text mode encoding non-unicode.
if sy-subrc eq 0.
   LOOP AT T_MARD into wa_mard.
        TRANSFER wa_mard to w_file.
   endloop.
endif.
CLOSE DATASET w_file.
If all the data is not in char then - declare a char strinf of the table length.
Data: loc_string(300) type c.
OPEN DATASET w_file for output in text mode encoding non-unicode.
if sy-subrc eq 0.
   LOOP AT T_MARD into wa_mard.
      CALL FUNCTION 'HR_99S_COPY_STRUC1_STRUC2'
        EXPORTING
          p_struct1 = wa_mard
        IMPORTING
          p_struct2 = loc_string.
        TRANSFER loc_string to w_file.
   endloop.
endif.
CLOSE DATASET w_file.
Thanks for the help

Urgent.... Help Needed for Storing file in Application Server

Hi All,
I have a requirement where in I have to save a file in Application Server.
File is of 141 Character Length, so there can be spaces left at the end.
When I am downloading the file into Application Sever and then downloading the same file from Application Server to Presentation into a notepad then the spaces at the end are truncating.
I want that the file that is generated should be of 141 character though if there may be spaces at the end.
It will be great if you can help me out in this.
Thanks in Advance.
Jayant Sahu.

when downloading to App server, you need to specify the LENGTH option on your TRANSFER ststement to keep fixed length. You must also use a STRING type variable in your transfer.
From Documentation on Transfer command:
If the file was opened as a text file or a legacy text file, the trailing blank characters are deleted for all data objects, except for those of data type string. The line end marker defined when the file was opened is then added to the remaining content of the data object or to the result of the conversion, and the final result is written byte-by-byte to the file.
There also used to be a problem with WS_DOWNLOAD - you had to do the following:
Maintaining Trailing spaces when downloading to PC
Before calling DOWNLOAD or WS_DOWNLOAD, do a perform SET_TRAIL_BLANKS(saplgrap) using 'X'
To set the length of each record including your blanks add this code: perform SET_FIXLEN(saplgrap) using '0' '100'
Don't think this is needed any more.
Andrew

Program for uploading file on application server...

Hi,
I have created a program to upload a file from presentation server (local desktop) to application server. But in this program I have to specify the file length. What should I do in given program so that I can upload file of any length on application server ?
*& Report Z_FILE_DOWNLOAD_TO_APP_SERVER *
* This Program can be used to move flat files to application server from presentation server.
REPORT Z_FILE_DOWNLOAD_TO_APP_SERVER.
PARAMETERS: P_FILE LIKE IBIPPARMS-PATH,
 P_FILE1(20000) default 'E:CONVERSIONFLAT' lower case.
DATA: WS_FILE TYPE STRING.
DATA: BEGIN OF T_DATA OCCURS 0,
 RECORD(20000),
 END OF T_DATA.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = ' '
IMPORTING
FILE_NAME = P_FILE
START-OF-SELECTION.
WS_FILE = P_FILE.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
 FILENAME = WS_FILE
FILETYPE = 'ASC'
TABLES
 DATA_TAB = T_DATA
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.
* Creating the file at Appl server............................
OPEN DATASET P_FILE1 FOR OUTPUT IN TEXT MODE encoding utf-8.
if sy-subrc ne 0.
message e000(--) with 'Error in opening file'.
endif.
* Trasfer the records to file.............
loop at t_data.
transfer t_data to p_file1.
endloop.
close dataset p_file1.
if sy-subrc eq 0.
write: / 'Written the files at ', p_file1.
write:/ 'Goto AL11 Transaction and then click on SAP Directory DIR_SAPUSERS to look for the file'.
endif.
Please advice.
Regards,
Rajesh

Try declaring it as TYPE STRING. Not sure though.
There are two predefined types in ABAP with variable length:
STRING for character strings
XSTRING for byte strings
Thanks,
SKJ

Pipe delimited file on application server.

Hi , i m creating a text file on application server, i have written below code and file is getting created correctly. however, i want to create pipe delimited file. is there any method for this?
DATA : lv_line(173).
DATA : l_wa_itab_length(4) TYPE c VALUE '173'.
IF NOT p_tab[] IS INITIAL.
 SORT p_tab.
 OPEN DATASET p_file FOR OUTPUT IN TEXT MODE ENCODING NON-UNICODE.
 IF sy-subrc NE 0.
 MESSAGE 'Error on output file read' TYPE 'E'.
 ELSE.
 LOOP AT p_tab.
 lv_line = p_tab.
 TRANSFER lv_line TO p_file LENGTH l_wa_itab_length.
 CLEAR p_tab.
 CLEAR lv_line.
 ENDLOOP.
 CLOSE DATASET p_file.
 ENDIF.
ENDIF.
REFRESH p_tab.

i m pasting below my entire code.
REPORT zmigration_data_download.
FIELD-SYMBOLS: <fs_table> TYPE STANDARD TABLE.
DATA: d_table_ref TYPE REF TO data.
DATA: d_rfc_db_opt TYPE rfc_db_opt.
DATA: it_opt LIKE rfc_db_opt OCCURS 0 WITH HEADER LINE.
DATA: d_file TYPE string.
PARAMETERS: p_tab TYPE dd02l-tabname OBLIGATORY.
PARAMETERS: p_file LIKE rlgrap-filename OBLIGATORY DEFAULT '/usr/sap/tmp/test.txt'.
SELECT-OPTIONS: s_opt FOR d_rfc_db_opt NO INTERVALS.
START-OF-SELECTION.
REFRESH it_opt.
LOOP AT s_opt WHERE sign = 'I' OR option = 'EQ'.
 it_opt-text = s_opt-low.
 APPEND it_opt.
ENDLOOP.
CREATE DATA d_table_ref TYPE TABLE OF (p_tab).
UNASSIGN <fs_table>.
ASSIGN d_table_ref->* TO <fs_table>.
IF <fs_table> IS ASSIGNED.
 CLEAR <fs_table>.
 SELECT * FROM (p_tab) INTO TABLE <fs_table>
 WHERE (it_opt).
 IF sy-subrc EQ 0.
 PERFORM download_file TABLES <fs_table> USING p_file.
 MESSAGE i398(00) WITH 'Upload from SAP Successfull'.
 ENDIF.
ENDIF.
*& Form download_file
 text
 -->P_<FS_TABLE> text
 -->P_P_FILE text
FORM download_file TABLES p_tab USING p_file.
DATA : lv_line(173).
DATA : l_wa_itab_length(4) TYPE c VALUE '173'.
IF NOT p_tab[] IS INITIAL.
 SORT p_tab.
 OPEN DATASET p_file FOR OUTPUT IN TEXT MODE ENCODING NON-UNICODE.
 IF sy-subrc NE 0.
 MESSAGE 'Error on output file read' TYPE 'E'.
 ELSE.
 LOOP AT p_tab.
 lv_line = p_tab.
 TRANSFER lv_line TO p_file LENGTH l_wa_itab_length.
 CLEAR p_tab.
 CLEAR lv_line.
 ENDLOOP.
 CLOSE DATASET p_file.
 ENDIF.
ENDIF.
REFRESH p_tab.
ENDFORM. " download_file

Putting Flat file on Application Server

Hi,
I am using following report to transfer a flat file to application server.
REPORT Z_DOWNLOAD.
PARAMETERS: P_FILE LIKE IBIPPARMS-PATH,
 P_FILE1(100) default '/usr/sap/put' lower case.
DATA: WS_FILE TYPE STRING.
DATA: BEGIN OF T_DATA OCCURS 0,
 RECORD(200),
 END OF T_DATA.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = ' '
IMPORTING
FILE_NAME = P_FILE
START-OF-SELECTION.
WS_FILE = P_FILE.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
 FILENAME = WS_FILE
FILETYPE = 'ASC'
HAS_FIELD_SEPARATOR = ' '
HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
CHECK_BOM = ' '
IMPORTING
FILELENGTH =
HEADER =
TABLES
 DATA_TAB = T_DATA
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.
Creating the file at Appl ...........
OPEN DATASET P_FILE1 FOR OUTPUT IN TEXT MODE encoding utf-8.
if sy-subrc ne 0.
message e000(--) with 'Error in opening file'.
endif.
Trasfer the records to file.............
loop at t_data.
transfer t_data to p_file1.
endloop.
close dataset p_file1.
if sy-subrc eq 0.
write: / 'Written the files at ', p_file1.
Now when I am uploading Flat file1 with following data it gets updated but when I use Flat file2, it does not work.
Please help me out..
I am posting the data of both flat files.
Flat file1:(File getting transferred successfully to application server)
1,NPOBL,ABC
1,NPOBL,CDE
1,NPOBL,FGH
Flat file2: (Getting error when trying to transfer this file on application server)
DS04,1,NPOBL,200,CREATE1,NEW YORK,X
DS04,1,NPOBL,200,CREATE2,NEW YORK,X
DS04,1,NPOBL,200,CREATE3,NEW YORK,X
Please help me out...
-Tushar

hi Rajesh,
I guess your in ternal table is not able to hold the data as is of 200 characters ... try increasing the length ..
DATA: BEGIN OF T_DATA OCCURS 0,
RECORD(2000),
END OF T_DATA.
Regards,
Santosh

Upload 1gb file from application server to PSA

Hi,
The following is the requirement my client has,
1) there will be a 1gb file on application server
2) pick up the file, and validate if the number of records are equal to number provided in the footer, if they dont match, reject the file
3) then validate the first field, employees number, with a database table
if the employee exisits insert this file in PSA ( BW)
else reject this file and proceed to next file.
this file is a fixed length file, and not a CSV.
can you please provide me with some hint or link or answers.
Thanks
ajay

Hi,
The following is the requirement my client has,
there will be a 1gb file on application server pick up the file, and validate if the number of records are equal to number provided in the footer, if they dont match, reject the file then validate the first field, employees number,
with a database table if the employee exisits insert this file in PSA (
BW) else reject this file and proceed to next file.
this file is a fixed length file, and not a CSV.
can you please provide me with some hint or link or
answers.
Thanks
ajay
for my above queries, i have an idea but need your help to solve.
i want to read the file on application server ( for example 1st record to 100th record) and store it in the internal table 1, and again i want to read the same file on application server from 101th record to 200th record and store it in the internal table 2. and so on.
can anyone help me to this, what is it that i should code for this?
open data set
read data set (any conditions???)
close dataset.
ill surely award points for all the replies.
thankyou
ajay

Download PDF file from Application Server in BSP

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

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

Problem while dowloading the file from Application Server

Dear Experts,
I am facing the Problem while downloading the file from Application server.
We done the automatic function while saving the invoice, this will create an idoc, and this idoc is written in the Application Server.
I am running the Transaction AL11 and select the record, and from menu --> List, i am downloading into TXT format.
But for some segments, the length is long, and so the last 3 to 4 fields values are not appearing in the File. Even though i am unable to view the values in the file before downloading. But i can view in IDOC.
Please help me to solve this issue.
Thanks & Regards,
Srini

but our user will use the Txn. AL11 and they will download from there
Educate the user On a serious note, tell him this is not how data from app server should be downloaded. You can ask him to talk to the basis team to provide him access to the app server folder where the file is being stored.
I can set the Variant and put this in background, But always the file name will be change, Like we use Time stamp in the File name.
You can't automate this process by scheduling in BG mode. This is because the in BG mode you can't dwld the file to presentation server.
Hope i'm clear.
BR,
Suhas

Placing the text file in application server

Hi all,
I am uploading the text file into application server.
the line length is 1028 characters.But in application server i am not able to see whole line.it is showing only some data and reamaining data is not coming.
Please let em know how can we increase the line length in application server.
Regards,
Shoban

SE38 is the ABAP Editor transaction.
Use function module GUI_UPLOAD to create an upload the data.
*Use function module GUI_UPLOAD to create an upload the data.
Example Code >>>
REPORT zuploadtab                    .
PARAMETERS: p_infile LIKE rlgrap-filename
                        OBLIGATORY DEFAULT '/usr/sap/'..
*DATA: ld_file LIKE rlgrap-filename.
DATA: gd_file type string.
*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.
*Internal table to upload data into
DATA: BEGIN OF it_datatab OCCURS 0,
row(500) TYPE c,
END OF it_datatab.
*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.
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_INFILE.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_infile.
CALL FUNCTION 'WS_FILENAME_GET'
       EXPORTING
            def_filename     = p_infile
            mask             = ',*.txt.'
            mode             = 'O'
            title            = 'Upload File'(078)
       IMPORTING
            filename         = p_infile
       EXCEPTIONS
            inv_winsys       = 1
            no_batch         = 2
            selection_cancel = 3
            selection_error = 4
            OTHERS           = 5.
*START-OF-SELECTION
START-OF-SELECTION.
gd_file = p_infile.
CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                = gd_file
      has_field_separator     = 'X' "file is TAB delimited
    TABLES
      data_tab                = it_record
    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 NE 0.
      write: 'Error ', sy-subrc, 'returned from GUI_UPLOAD FM'.
      skip.
    endif.
Alternative method, where by you split fields at each TAB after you
have returned the data. No point unless you dont have access to
GUI_UPLOAD but just included for information
CALL FUNCTION 'GUI_UPLOAD'
      EXPORTING
           filename        = gd_file
           filetype        = 'ASC'
      TABLES
           data_tab        = it_datatab "ITBL_IN_RECORD[]
      EXCEPTIONS
           file_open_error = 1
           OTHERS          = 2.
IF sy-subrc NE 0.
ELSE.
   LOOP AT it_datatab.
     CLEAR: wa_string, wa_uploadtxt.
     wa_string = it_datatab.
     SPLIT wa_string AT con_tab INTO wa_uploadtxt-name1
                                     wa_uploadtxt-name2
                                     wa_uploadtxt-age.
     MOVE-CORRESPONDING wa_uploadtxt TO wa_record.
     APPEND wa_record TO it_record.
   ENDLOOP.
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.
Edited by: Nikhil Jathar on Jan 9, 2008 7:38 AM

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.

Write PDF file into application server.

Hi Gurus,
I have created a smartform and converted into PDF using function module as given below. Now I want to write this generated PDF file into application server. I am not generating any spool request too. How can I proceed from here? Pls advice..
CALL FUNCTION 'CONVERT_OTF_2_PDF'
    IMPORTING
      bin_filesize                 = lv_bin_filesize
    TABLES
      otf                              = ls_job_output_info-otfdata
      doctab_archive         = lt_docs
      lines                           = lt_lines
    EXCEPTIONS
      err_conv_not_possible = 1
      err_otf_mc_noendmarker = 2
      OTHERS                 = 3.
Thanks..
Saj

transfer all the data from ur itabs to one final itab declared as follow
DATA: BEGIN OF final_itab OCCURS 0,
                 document TYPE string,
           END OF final_itab.
then finally,
OPEN DATASET 'yourfile.pdf' FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
len = strlen( final_itab-DOCUMENT ).
TRANSFER final_itab-DOCUMENT TO 'yourfile.pdf' LENGTH len.
CLOSE DATASET 'yourfile.pdf'.
This ends the coding mate.
Enjoy it n have a good day.
Cheers

Length of file in application server

Similar Messages

Maybe you are looking for