File from Application server into BW

Hi All,
I have a urgent requirement and I do not know much of ABAP
The requirement is
selecting existing file from application server Dynamically in BW server. This will be done by writing an ABAP code at the InfoPackage level in the External Data Tab but I am in need some ABAP code for the same
Also let me know which table stores AL11 files
I know USER_DIR stores directories but I required the table for the files within the directories.
Any help is appreciated

Hi DPN,
If we have a condition like depending on System Date we have to get a file some thing like that then we can do that by using the ABAP Routine. But in your Scenario there are no specific conditions to select a file.
If we have some variable which stores the value which we give and gets the specified file... That Would be Great.
But in Routine we can not use Variables..(As Far As I Know)
So better Select manually every time...
Hope This Helps.
Regards,
rik.

Similar Messages

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

Error while reading excel file from application server into internal table.

Hi experts,
My requirement is to read an excel file from application server into internal table.
Hence I have created an excel file fm_test_excel.xls in desktop and uploaded to app server using CG3Z tcode (as BIN file type).
Now in my program I have used :
OPEN DATASET v_filename FOR INPUT IN text mode encoding default.
DO.
READ DATASET v_filename INTO wa_tab.
The statement OPEN DATASET works fine but I get a dump (conversion code page error) at READ DATASET statement.
Error details:
A character set conversion is not possible.
At the conversion of a text from codepage '4110' to codepage '4103':
- a character was found that cannot be displayed in one of the two
codepages;
- or it was detected that this conversion is not supported
The running ABAP program 'Y_READ_FILE' had to be terminated as the conversion
would have produced incorrect data.
The number of characters that could not be displayed (and therefore not
be converted), is 445. If this number is 0, the second error case, as
mentioned above, has occurred.
An exception occurred that is explained in detail below.
The exception, which is assigned to class 'CX_SY_CONVERSION_CODEPAGE', was not
caught and
therefore caused a runtime error.
The reason for the exception is:
Characters are always displayed in only a certain codepage. Many
codepages only define a limited set of characters. If a text from a
codepage should be converted into another codepage, and if this text
contains characters that are not defined in one of the two codepages, a
conversion error occurs.
Moreover, a conversion error can occur if one of the needed codepages
'4110' or '4103' is not known to the system.
If the conversion error occurred at read or write of screen, the file
name was '/usr/sap/read_files/fm_test_excel.xls'. (further information about
the file: "X 549 16896rw-rw----201105170908082011051707480320110517074803")
Also let me know whether this is the proper way of reading excel file from app server, if not please suggest an alternative .
Regards,
Karthik

Hi,
Try to use OPEN DATASET v_filename FOR INPUT IN BINARY mode encoding default. instead of OPEN DATASET v_filename FOR INPUT IN text mode encoding default.
As I think you are uploading the file in BIN format to Application server and trying to open text file.
Regards,
Umang Mehta

Issue with uploading XML file from application server into internal table

i Need to fetch the XML file from the application server and place into internal table and i am getting error message while using the functional module SMUM_XML_PARSE and the error message is "line 1 col 1-unexpected symbol; expected '<', '</', entity reference, character data, CDATA section, processing instruction or comment" and could you please let me know how to resolve this issue?
 TYPES: BEGIN OF T_XML,
 raw(2000) TYPE C,
 END OF T_XML.
DATA:GW_XML_TAB TYPE T_XML.
DATA: GI_XML_TAB TYPE TABLE OF T_XML INITIAL SIZE 0.
DATA:GI_STR TYPE STRING.
data: GV_XML_STRING TYPE XSTRING.
DATA: GI_XML_DATA TYPE TABLE OF SMUM_XMLTB INITIAL SIZE 0.
data:GI_RETURN TYPE STANDARD TABLE OF BAPIRET2.
 OPEN DATASET LV_FILE1 FOR INPUT IN TEXT MODE ENCODING DEFAULT.
 IF SY-SUBRC NE 0.
 MESSAGE 'File does not exist' TYPE 'E'.
 ELSE.
 DO.
* Transfer the contents from the file to the work area of the internal table
 READ DATASET LV_FILE1 INTO GW_XML_TAB.
 IF SY-SUBRC EQ 0.
 CONDENSE GW_XML_TAB.
* Append the contents of the work area to the internal table
 APPEND GW_XML_TAB TO GI_XML_TAB.
 ELSE.
 EXIT.
 ENDIF.
 ENDDO.
 ENDIF.
* Close the file after reading the data
 CLOSE DATASET LV_FILE1.
 IF NOT GI_XML_TAB IS INITIAL.
 CONCATENATE LINES OF GI_XML_TAB INTO GI_STR SEPARATED BY SPACE.
 ENDIF.
* The function module is used to convert string to xstring
 CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
 EXPORTING
 TEXT = GI_STR
 IMPORTING
 BUFFER = GV_XML_STRING
 EXCEPTIONS
 FAILED = 1
 OTHERS = 2.
 IF SY-SUBRC <> 0.
 MESSAGE 'Error in the XML file' TYPE 'E'.
 ENDIF.
ENDIF.
IF GV_SUBRC = 0.
* Convert XML to internal table
 CALL FUNCTION 'SMUM_XML_PARSE'
 EXPORTING
 XML_INPUT = GV_XML_STRING
 TABLES
 XML_TABLE = GI_XML_DATA
 RETURN = GI_RETURN.
ENDIF.
READ TABLE GI_RETURN TRANSPORTING NO FIELDS WITH KEY TYPE = 'E'.
IF SY-SUBRC EQ 0.
 MESSAGE 'Error converting the input XML file' TYPE 'E'.
ELSE.
 DELETE GI_XML_DATA WHERE TYPE <> 'V'.
 REFRESH GI_RETURN.
ENDIF.

Could you please tel me why the first 8 lines were removed, till <Soap:Body and also added the line <?xml version="1.0" encoding="UTF-8"?> in the beggining .
Becuase there will be lot of XML files will be coming from the Vendor daily and that should be uploaded in the application server and should update in the SAP tables based on the data in the XML file.
what information i need to give to vendor that do not add the first 8 lines in the XML file and add the line in the beggining <?xml version="1.0" encoding="UTF-8"?> ??????
Is there any other way we can do with out removing the lines?

Reading XML file from application server and put into internal table-4.6C

Dear All,
Is there any way of reading XML file from application server to SAP? I am using 4.6C. Function module SCMS_STRING_TO_XSTRING function module is not available. Please suggest.
Thanks and regards,
Atanu

Hi Atanu!
Simply use the XSLT transformation 'ID'.
FIELD-SYMBOLS <ls_result> TYPE ANY.
CREATE DATA lref_data TYPE (your_structure).
ASSIGN lref_data->* TO <ls_result>.
CALL TRANSFORMATION id
SOURCE XML xmlstr
RESULT result = <ls_result>.
"xmlstr" contains your XML file. Just read it into it via standard I/O operations. "<ls_result>" will contain your DDIC formatted content.
Best regards
Torsten

File from application server-- Email ?

Hi,
I need to pickup a file from application server and Email the same to the intended receipents through ABAP program
For that i had used the following code:
REPORT ZEMAIL_APP_SER_FAIL.
DATA :is_doc_chng        TYPE sodocchgi1,
      it_objtxt          TYPE STANDARD TABLE OF solisti1,
      is_objtxt          TYPE solisti1,
      it_objpack         TYPE STANDARD TABLE OF sopcklsti1,
      is_objpack         TYPE sopcklsti1,
      it_objbin          TYPE STANDARD TABLE OF solisti1,
      is_objbin          TYPE solisti1,
      it_reclist         TYPE STANDARD TABLE OF somlreci1,
      is_reclist         TYPE somlreci1,
      w_lines_tx         TYPE i.
** Create Message Body
**   Title and Description
*is_doc_chng-obj_name = 'MAIL'.
is_doc_chng-obj_descr = 'Auto genareted Mail from Application server'.
** main text
is_objtxt-line = 'This is an automatically generated mail. Please do not reply to it.'(028).
APPEND is_objtxt TO it_objtxt.
is_objtxt-line = space.
APPEND is_objtxt TO it_objtxt.
*   write packing list (main)
DESCRIBE TABLE it_objtxt LINES w_lines_tx.
READ     TABLE it_objtxt INTO is_objtxt INDEX w_lines_tx.
is_doc_chng-doc_size = ( w_lines_tx - 1 ) * 255 + STRLEN( is_objtxt ).
CLEAR is_objpack-transf_bin.
is_objpack-head_start = 1.
is_objpack-head_num   = 0.
is_objpack-body_start = 1.
is_objpack-body_num   = w_lines_tx.
is_objpack-doc_type   = 'CVS'.
is_objpack-OBJ_NAME   = 'GIND_EXP'.
is_objpack-Obj_langu = 'E'.
APPEND is_objpack TO it_objpack.
is_reclist-receiver = 'XXX'@'YYY'.COM'.
is_reclist-rec_type = 'A'.
Break-point.
*is_reclist-REC_ID   = 'XXX@YYY'.COM'.
APPEND is_reclist TO it_reclist.
CLEAR is_reclist.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
   document_data              = is_doc_chng
   put_in_outbox              = 'X'
   commit_work                = 'X'
TABLES
   packing_list               = it_objpack
   contents_txt               = it_objtxt
   receivers                  = it_reclist
EXCEPTIONS
   too_many_receivers         = 1
   document_not_sent          = 2
   document_type_not_exist    = 3
   operation_no_authorization = 4
   parameter_error            = 5
   x_error                    = 6
   enqueue_error              = 7
   OTHERS                     = 8.
IF sy-subrc NE 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
         WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
when i execute this program:
I get the following error msg:
Activation setting not yet maintained
May i know what is the problem?

If you are sending an email, the receiver type should be U (internet mail address type). From your code it appears that you have input it as 'A'. I am not sure if the error message is related to this. Have you checked in transaction SOST, whether an email has been triggered from your program? At what point of execution is this error message triggered?

How to delete the Generated files from application server(open hub)?

hi experts,
when i try to execute process chain the DTP it is giving below dump. Exception CX_RSBK_REQUEST_LOCKED logged.
when i execute the DTP manually and trying to delete the previous request, it is giving for dump ITAB_DUPLICATE_KEY.
so to delete the generated file from application server, how to delete it for specific dates?
Information on where terminated
Termination occurred in the ABAP program "GPD6S3OE0BCVGC6L9DBNVYQARZM" - in
"START_ROUTINE".
The main program was "RSBATCH_EXECUTE_PROZESS ".
In the source code you have the termination point in line 2874
of the (Include) program "GPD6S3OE0BCVGC6L9DBNVYQARZM".
The program "GPD6S3OE0BCVGC6L9DBNVYQARZM" was started as a background job.
and when i check the dump it is point out at below code
" Populate the lookup table for 0STOR_LOC
SELECT * from /BI0/TSTOR_LOC
into CORRESPONDING FIELDS OF table L_0STOR_LOC_TEXT
FOR ALL ENTRIES IN SOURCE_PACKAGE WHERE
STOR_LOC = SOURCE_PACKAGE-STOR_LOC.
but the programme is syntactically correct only.
how to rectify the issue.
regards
venuscm
Edited by: venugopal vadlamudi on Sep 28, 2010 1:59 PM

hi experts,
We have written start routine to get the storage location text and sending to File located at Application server through OPEN HUB.
here is the code written in the Transformations
In the global section
Text for 0STOR_LOC
    DATA: l_0stor_loc_text TYPE HASHED TABLE OF /bi0/tstor_loc
          WITH UNIQUE KEY stor_loc.
    DATA: l_0stor_loc_text_wa TYPE /bi0/tstor_loc.
and in the code to get the text
" Populate the lookup table for 0STOR_LOC
    *SELECT * from /BI0/TSTOR_LOC*
      into CORRESPONDING FIELDS OF table L_0STOR_LOC_TEXT
      FOR ALL ENTRIES IN SOURCE_PACKAGE WHERE
              STOR_LOC = SOURCE_PACKAGE-STOR_LOC.
im sure there is problem with the Routine only. i think i need to change the code if so please provide me the modified one.
thanks
venuscm
Edited by: venugopal vadlamudi on Sep 29, 2010 9:37 AM

File from application server -Read and process and delete the file .

Hi All,
         I writing a ZEE program which will read the file from application server(file will be in text delimat format) and moving the data to internal table and uploadind data base.The part which iam facing problem is -
> I hve read the file from application server like below ,
OPEN DATASET ld_file FOR INPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc NE 0.
EXIT.
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.
Spliting part i having problem .i need to seperate each field which is seperate from tab delimite and pass it into respective fields of internal table .
Second if another file come to the appicaltion server , wether my first file will be there ? or should i need to delete the first file after redaing how should i proceed further ?.
Regards
SRIRAM...
THANKS In ADVANCE

HI,
1.
OPEN DATASET ld_file FOR INPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc NE 0.
EXIT.
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 cl_abap_char_utilities=>horizontal_tab INTO wa_uploadtxt-name1
wa_uploadtxt-name2
wa_uploadtxt-age.
APPEND wa_uploadtxt TO itab.
ENDDO.
CLOSE DATASET ld_file.
ENDIF.
2. If the another file get's generated in the application server with same file name then the data in old file get's over written with the new data. You are not required to delete the file.

Regarding Reading the file from Application Server

Hi,
I am trying to read data from Application Server but due to special characters it is getting dumped out.
US24,Q,Acero (Carbon),AA,0010,0001,01,Ver Mir para dimension#
US24,Q,Acero (Carbon),AA,0010,0002,01,Area rectificada sin da#os ra
US24,Q,Acero (Carbon),AA,0010,0003,01,Ver Mir para dimension#
US24,Q,Acero (Carbon),CD,0010,0001,01,ITPE Soken para verificacion
US24,Q,Acero (Carbon),CD,0010,0010,01,No se permite desprendimiento
US24,Q,Acero (Carbon),CD,0010,0002,01,"Vernier, cinta metrica"#
In the last line it is going into dump due to special character ".
Please suggest.
Thanks
Priyanka.

Hi,
You can check the mode in which you are reading the file
from application server that is
Open Dataset in Binary or Text Mode.
Hope it helps
Regards
Mansi

Reading tab delimited file from application server

Hi All,
I do know that we need to use Open data set to read a file from application server, but my question is when you use read DATASET v_file into wa_final - this wa_final is an work area and also i have mentione an internal table. so do we need to Split the record at tab into the corresponding fields. Append the records into an internal table i_input.????
Please let me know on this....
thanks in advance....
Poonam....

Hi,
first see the file contents in application server, how the contents whether the contents seperated by any symbol or not, if the contents seperated by any symbol then you have to split the data before appending to internal table.
check this code.
DATA: l_data_string TYPE string.
filename = p_file.
OPEN DATASET p_file FOR INPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc EQ 0.
    DO.
      READ DATASET filename INTO l_data_string.
      IF sy-subrc NE 0.
        EXIT.
      ENDIF.
      CLEAR k_input.
      SPLIT l_data_string AT '#' INTO k_input-agreement k_input-suffix k_input-status
            k_input-first_name k_input-last_name k_input-job_title k_input-tel k_input-fax k_input-email_address k_input-mob_number.
      APPEND k_input TO i_input.
    ENDDO.
ENDIF.
Regards,
Venu

Read Tilda separated file from Application Server

I have a requirement to read a tilda separated file from application server and write a tilda separeted output to application server. Please suggest how to to get data from tilda separated file to internal table ? and also How to create a tilda separated file from internal table to application server.

Hi again,
This some sample code for outputing data on application server with tilda separator.
OPEN DATASET p_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT. " MESSAGE msg.
IF sy-subrc <> 0.
 message i812(LQ).
 LEAVE LIST-PROCESSING.
ENDIF.
LOOP AT gs_input INTO wa_input.
 CONCATENATE wa_input-wadat_ist
 wa_input-sort2
 wa_input-name1
 wa_input-street
 wa_input-region
 wa_input-post_code1
 wa_input-zzchep
 wa_input-vbeln
 wa_input-bstkd
 wa_input-zfrom
 wa_input-zland
 wa_input-zccode
 wa_input-zrcvd
 wa_input-zfref
 wa_input-znorc
 wa_input-zsepr
 wa_input-zvers
 wa_input-zlout
 wa_input-zinfo
 wa_input-zinco
 wa_input-zsqal
 wa_input-zscod
 wa_input-zrqal
 wa_input-zeqal
 wa_input-zecod
 wa_input-zcust
 wa_input-ztran INTO g_path SEPARATED BY '~'.
 TRANSFER g_path TO p_file.
 CLEAR : g_path, wa_input.
ENDLOOP.
CLOSE DATASET p_file.
Hope this will be helpful for you.
Regards,
Vijay

Read Tab delimited File from Application server

Hi Experts,
I am facing problem while reading file from Application server.
File in Application server is stored as follows, The below file is a tab delimited file.
##K#U#N#N#R###T#I#T#L#E###N#A#M#E#1###N#A#M#E#2###N#A#M#E#3###N#A#M#E#4###S#O#R#T#1###S#O#R#T#2###N#A#M#E#_#C#O###S#T#R#_#S#U#P#P#L#1###S#T#R#_#S#U#P#P#L#2###S#T#R#E#E#T###H#O#U#S#E#_#N#U#M#1
i have downloaded this file from Application server using Transaction CG3Y. the Downloaded file is a tab delimited file and i could not see "#' in the file,
The code is as Below.
c_split TYPE abap_char1 VALUE cl_abap_char_utilities=>horizontal_tab.
here i am using IGNORING CONVERSION ERRORS in order to avoid Conversion Error Short Dump.
OPEN DATASET wa_filename-file FOR INPUT IN TEXT MODE ENCODING DEFAULT IGNORING CONVERSION ERRORS.
      IF sy-subrc = 0.
        WRITE : /,'...Processing file - ', wa_filename-file.
       DO.
      Read the contents of file
          READ DATASET wa_filename-file INTO wa_file-data.
          IF sy-subrc = 0.
            SPLIT wa_file-data AT c_split INTO wa_adrc_2-kunnr
                                               wa_adrc_2-title
                                               wa_adrc_2-name1
                                               wa_adrc_2-name2
                                               wa_adrc_2-name3
                                               wa_adrc_2-name4
                                               wa_adrc_2-name_co
                                               wa_adrc_2-city1
                                               wa_adrc_2-city2
                                               wa_adrc_2-regiogroup
                                               wa_adrc_2-post_code1
                                               wa_adrc_2-post_code2
                                               wa_adrc_2-po_box
                                               wa_adrc_2-po_box_loc
                                               wa_adrc_2-transpzone
                                               wa_adrc_2-street
                                               wa_adrc_2-house_num1
                                               wa_adrc_2-house_num2
                                               wa_adrc_2-str_suppl1
                                               wa_adrc_2-str_suppl2
                                               wa_adrc_2-country
                                               wa_adrc_2-langu
                                               wa_adrc_2-region
                                               wa_adrc_2-sort1
                                               wa_adrc_2-sort2
                                               wa_adrc_2-deflt_comm
                                               wa_adrc_2-tel_number
                                               wa_adrc_2-tel_extens
                                               wa_adrc_2-fax_number
                                               wa_adrc_2-fax_extens
                                               wa_adrc_2-taxjurcode.
WA_FILE-DATA is having below values
##K#U#N#N#R###T#I#T#L#E###N#A#M#E#1###N#A#M#E#2###N#A#M#E#3###N#A#M#E#4###S#O#R#T#1###S#O#R#T#2###N#A#M#E#_#C#O###S#T#R#_#S#U#P#P#L#1###S#T#R#_#S#U#P#P#L#2###S#T#R#E#E#T###H#O#U#S#E#_#N#U#M#1
And this is split by tab delimited and moved to other variables as shown above.
Please guide me how to read the contents without "#' from the file.
I have tried all possible ways and unable to get solution.
Thanks,
Shrikanth

Hi ,
In ECC 6 if all the unicode patches are applied then UTF 16 will defintly work..
More over i would suggest you to ist replace # with some other * or , and then try to see in debugging if any further # appears..
and no # appears then try to split now.
if even now the # appears after replace statement then try to find out what exactly is it... wheather it is a horizantal tab etc....
and then again try to replace it and then split..
Please follow the process untill all the # are replaced...
This should work for you..
Let me know if you further face any issue...
Regards
Satish Boguda

Problem in uploading file from Application Server

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

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

Problem in reading file from application server

while reading the file from application server i am succesful in reading from dataset but the program gets terminated giving a runtime error "CONVT_CODEPAGE".
the code written is as below :
open dataset d1 for input in text mode encoding default.
IF sy-subrc NE 0.
EXIT.
ENDIF.
do.
 Read dataset d1 into btab.
 if sy-subrc <> 0.
 exit.
 else.
 condense btab NO-GAPS.
 wtt_text-text1 = btab-wa+0(10).
 wtt_text-text2 = btab-wa+10(1).
 wtt_text-text3 = btab-wa+11(3).
 append wtt_text.
 clear wtt_text.
 wt_counter = wt_counter + 1.
 ENDIF.
enddo.
write : /10 ' number of records :'.
write : wt_counter.
kindly help me asap.
regards,
rachu.

If I am not wrong you are working on a Unicode enabled system. That is why this error is coming.
Look at the link below, where the solution is provided.
http://help.sap.com/saphelp_nw2004s/helpdata/en/79/c554dcb3dc11d5993800508b6b8b11/content.htm
open dataset DSN in text mode for output encoding utf-8.
Regards,
Ravi
Note - Please close the thread by selecting PROBLEM SOLVED against the answer which helped your most, if the issue is resolved.

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.

File from Application server into BW

Similar Messages

Maybe you are looking for