Need a List of Files on Application Server WITH "Last Changed Date".

Experts:
I'm currently using FM 'SUBST_GET_FILE_LIST' but it does not return the date which I need because I'm working on something that needs to build an internal table of the files on the server with the oldest file on top (which means I need to sort by the date).
I've searched this forum and there's several existing posts with different function modules and I've tried several but they either display an ALV grid or they do return an itab but it doesn't have the date.
Please help and thank you!

You can try:
data: begin of tabl occurs 0,          "execute command on server
        line(200),
      end of tabl.
call 'SYSTEM' id 'COMMAND' field com
                id 'TAB'     field tabl-*sys*.
where com is something like 'ls -al'.
Rob

Similar Messages

Copy file on application server with codepage changed

Hello Gurus,
I need to copy an existing *.csv file on the application server to a different location as a *.txt file with the code page UTF-8 /8400/ in the background.
Example:
I have a file with the name is: 'new.csv' in the DIR: '/SERVER/NEW'.
I need to convert the file to 'UTF-8' and copy to DIR: '/SERVER/ARCHIVE' with the name: 'archive.txt'
I was able to get the file via FM: DX_FILE_READ into an internal table. Now I tried to use GUI_UPLOAD, but failed due to the fact the GUI_UPLOAD will just upload a file from PC to an internal table. Additionally I need to run the report in background. So the FG: SFES will not do.
Could you please give me a hint on this?
I am running in a circle
Any help will be rewarded.
Thank you!
Martin

Hello Atish, Satish
Thank you for the quick answer!
@Atish,
Your guide is very helpful and I have downloaded it for further use, however I do not need to make any uploads/downloads from and to PC in the background.
@Satish
The OPEN DATASET helped. This works in the background as well.
I have allotted points to both of you as promised.
Thanks again!
Sample of the code I used:
OPEN DATASET g_out_file FOR OUTPUT IN TEXT MODE ENCODING UTF-8.
LOOP AT lt_file INTO ll_file.
TRANSFER ll_file TO g_out_file.
ENDLOOP.
CLOSE DATASET g_out_file.
Where g_out_file is the path and file name and lt_file and ll_file are internal tables I retrieve by FM: DX_FILE_READ /type: dxrawdata/

Need to save a file on Application server, receiving error.

Hello,
I want to save a file on Application server.
I have data in the final output table gt_out_chng.
I want to write a file in the application server and this is the
code that written,
data : MY_NEW_FILE type file.
        MY_NEW_FILE = '/tmp/test.txt'.
data: gv_output(255) type c,
      P_FILE TYPE rlgrap-filename.
   p_file = 'F:\USR\SAP\PUT'.
CONCATENATE p_file '\' sy-datum sy-uzeit '.txt'
                             INTO p_file.
OPEN DATASET 'P_FILE' IN TEXT MODE FOR OUTPUT
                                  ENCODING DEFAULT.
IF SY-SUBRC = 0.
LOOP AT GT_OUT_CHNG INTO WA_OUTPUT_TAB.
TRANSFER WA_OUTPUT_TAB TO 'P_FILE'.
CLEAR WA_OUTPUT_TAB.
ENDLOOP.
ENDIF.
CLOSE DATASET 'P_FILE'.
i am receiving an error message as follows :
"WA_OUTPUT_TAB" cannot be a table, a reference,
a string, or contain any of these objects.
Please correct the code if found any errors..
Any suggestions will be apprecaited!
Regards,
Kittu
Edited by: Kittu on May 15, 2009 10:27 AM

Hello,
Instead of using the following,
OPEN DATASET 'P_FILE' IN TEXT MODE FOR OUTPUT ENCODING DEFAULT.
use this,
OPEN DATASET P_FILE IN TEXT MODE FOR OUTPUT ENCODING DEFAULT.
P_FILE is your variable, do not put it in quotes
Edit: The same thing applies for your transfer and close statements
Edited by: Kris Donald on May 15, 2009 2:05 PM

Upload a csv file in application server with the specified codepage(Poland

Hi,
i want to upload a csv file in application server with the specified codepage ( for poland ) , please let me know how to use open dataset for that.?
Anurag

I would upload the file with transaction CG3Z in binary mode and do the code page translation with a report: read from server an save with different name.

How to get the list of file from application server

Hi Expert.
I want to get the file list from dicrectory in application server
best regards.
Alex

Hi.
Yes, You are right, i can get the file list by AL11.
But i need get the list in ABAP program.
So i need a function modul to get the list. If you has some sample code, it should be very nice.
Best.
Alex

Not able to get file from application server with read dataset

Hi,
Firstly i download a file from application server from read data set and then i sent this file as attachment. But problem is that i am able to send .jpg .bmp file but i am not able to send .pdf or .doc file so what can i do for that. ?
My code is like below...
DATA : PATH TYPE STRING.
DATA: E_FILE LIKE RLGRAP-FILENAME.
CONCATENATE '/tmp/' NAME_WITH_EXT INTO E_FILE SEPARATED BY SPACE.
CONDENSE E_FILE NO-GAPS.
IF EXTENSION = 'TXT'.
    OPEN DATASET E_FILE FOR INPUT IN TEXT MODE ENCODING DEFAULT WITH WINDOWS LINEFEED . " MESSAGE MSG.
    IF SY-SUBRC <> 0.
   WRITE: SY-SUBRC, MSG, ' LIKE ', C_FNAME.
    ELSE.
      WHILE SY-SUBRC = 0.
        READ DATASET E_FILE INTO WA_C.
        IF SY-SUBRC <> 0.
          EXIT.
        ENDIF.
        APPEND WA_C TO IT_C.
      ENDWHILE.
      CLOSE DATASET E_FILE.
    ENDIF.
ELSE.
    OPEN DATASET E_FILE FOR INPUT IN BINARY MODE. " ENCODING DEFAULT. "    INPUT IN BINARY MODE . " TEXT MODE ENCODING   NON-UNICODE.
    IF SY-SUBRC = 0.
      DO .
        READ DATASET E_FILE INTO GS_PDF_TAB.
        IF SY-SUBRC = 0.
          APPEND GS_PDF_TAB TO GT_PDF_TAB.
        ELSE.
          EXIT.
        ENDIF.
      ENDDO.
      CLOSE DATASET E_FILE.
    ENDIF.
ENDIF.
Regards,
Gurprit Bhatia

delete this line DEFAULT WITH WINDOWS LINEFEED and check this..

File names with last changed Date and time in a directory

Hi All.
I need to get all filename, last changed date, last changed time in a directory. Is there any function module for this?
Regards,
Venkat.

hi,
if the directory is in any application server try to use this code
> DATA: wa_file TYPE zdpp_file_read.
> DATA: nomefile(75).
> DATA: ext_chek(3).
>DATA: BEGIN OF wa_file,
>        dirname     TYPE DIRNAME_AL11, " name of directory
>        name        TYPE FILENAME_AL11," name of entry
>        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 mod.date, sec since 1970
>        mode(9)     TYPE c,            " like "rwx-r-x--x": prot. 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.
> data: files like wa_file occurs 0 with header line.
>
> CALL FUNCTION 'FILE_GET_NAME'
>       EXPORTING
>            client           = sy-mandt
>            logical_filename = logpath
>            operating_system = sy-opsys
>       IMPORTING
>            file_name        = path
>       EXCEPTIONS
>            file_not_found   = 1
>            OTHERS           = 2.
> IF sy-subrc <> 0.
>    RAISE file_not_found.
> ENDIF.
>
> DATA: last_path TYPE i.
> DO.
>    last_path = strlen( path ).
>    last_path = last_path - 1.
>    IF pathlast_path(1) = '/' or pathlast_path(1) = '\'.
>      EXIT.
>    ELSE.
>      CLEAR path+last_path(1).
>    ENDIF.
> ENDDO.
>
> MOVE extension TO ext_chek.
> TRANSLATE ext_chek TO UPPER CASE.
> nomefile = '*'.
>
> CALL 'C_DIR_READ_FINISH'
>      ID 'ERRNO' FIELD wa_file-errno
>      ID 'ERRMSG' FIELD wa_file-errmsg.
>
> CALL 'C_DIR_READ_START' ID 'DIR'    FIELD path
>                          ID 'FILE'   FIELD nomefile
>                          ID 'ERRNO' FIELD wa_file-errno
>                          ID 'ERRMSG' FIELD wa_file-errmsg.
> IF sy-subrc <> 0.
>    RAISE wrong_directory.
> ELSE.
>
>    DO.
>      CLEAR wa_file.
>
>      CALL 'C_DIR_READ_NEXT'
>        ID 'TYPE'   FIELD wa_file-type
>        ID 'NAME'   FIELD wa_file-name
>        ID 'MTIME' FIELD wa_file-mtime
>        ID 'ERRNO' FIELD wa_file-errno
>        ID 'ERRMSG' FIELD wa_file-errmsg.
>      IF sy-subrc <> 0.
>        EXIT.
>      ENDIF.
>
>        PERFORM p6_to_date_time_tz(rstr0400) USING wa_file-mtime
>                                                   wa_file-mod_time
>                                                   wa_file-mod_date.
>      MOVE path TO wa_file-dirname.
>      APPEND wa_file TO files.
>    ENDDO.
> ENDIF.
>
> CALL 'C_DIR_READ_FINISH'
>      ID 'ERRNO' FIELD wa_file-errno
>      ID 'ERRMSG' FIELD wa_file-errmsg.
bye,
marco

List of files in application server

Hi,
I would like to get the list of files in the directory of application server.
Is there any standard function module to acieve this?.
Regards
Elini.P

Hi again,
1. Independent form.
2. I have created one independent form
   which does this.
3. we need to just provide the path.
4. just copy paste this code in new program.
On selection screen provide the path
and it returns the files with TIME STAMP.
5.
REPORT abc.
DATA
TYPES: name_of_dir(1024)        TYPE c,
       name_of_file(260)        TYPE c,
       name_of_path(1285)       TYPE c.
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.
DATA : allfile LIKE file OCCURS 0 WITH HEADER LINE.
SELECTION SCREEN
PARAMETERS : path(260) TYPE c DEFAULT '/usr/sap/trans' LOWER CASE.
PARAMETERS : mydate TYPE sy-datum DEFAULT sy-datum.
START OF SELECTION
START-OF-SELECTION.
PERFORM getallfiles USING path.
BREAK-POINT.
show date files
WRITE :/ '----
FILES OF DATE ' , mydate.
LOOP AT allfile WHERE mod_date = mydate.
    IF allfile-type CS 'file'.
      WRITE :/ allfile-name.
    ENDIF.
ENDLOOP.
show all files
SKIP.
SKIP.
WRITE :/ '----
ALL FILES & DIRECTORIES'.
LOOP AT allfile .
    WRITE :/ allfile-name .
ENDLOOP.
FORM
FORM getallfiles USING mypath .
REFRESH allfile.
CLEAR allfile.
CALL 'C_DIR_READ_FINISH'             " just to be sure
      ID 'ERRNO' FIELD file-errno
      ID 'ERRMSG' FIELD file-errmsg.
CALL 'C_DIR_READ_START' ID 'DIR'    FIELD mypath
                         ID 'FILE'   FIELD a_generic_name
                          ID 'ERRNO' FIELD file-errno
                          ID 'ERRMSG' FIELD file-errmsg.
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.
    PERFORM p6_to_date_time_tz(rstr0400) USING file-mtime
                                          file-mod_time
                                          file-mod_date.
    allfile = file.
    APPEND allfile.
ENDDO.
ENDFORM.                    "GETALLFILES
FORM
FORM p6_to_date_time_tz USING gmtime
                        asc_time
                        asc_date.
DATA: opcode TYPE x,
        unique, not_found,
        timestamp TYPE i,
        date TYPE d,
        time TYPE t,
        tz LIKE sy-zonlo,
        timestring(10),
        abapstamp(14),
        abaptstamp TYPE timestamp.
timestamp = gmtime.
IF sy-zonlo = space.
Der Benutzer hat keine Zeitzone gepflegt: nehme lokale des App. Srv.
    CALL FUNCTION 'TZON_GET_OS_TIMEZONE'
      IMPORTING
        ef_timezone   = tz
        ef_not_unique = unique
        ef_not_found = not_found.
    IF unique = 'X' OR not_found = 'X'.          .
      tz = sy-tzone.
      CONCATENATE 'UTC+' tz INTO tz.
    ENDIF.
ELSE.
    tz = sy-zonlo.
ENDIF.
wandle den Timestamp in ABAP Format um und lass den ABAP konvertieren
opcode = 3.
CALL 'RstrDateConv'
    ID 'OPCODE' FIELD opcode
    ID 'TIMESTAMP' FIELD timestamp
    ID 'ABAPSTAMP' FIELD abapstamp.
abaptstamp = abapstamp.
CONVERT TIME STAMP abaptstamp TIME ZONE tz INTO DATE date
    TIME time.
IF sy-subrc <> 0.
    date = abapstamp(8).
    time = abapstamp+8.
ENDIF.
WRITE: time(2) TO timestring(2),
         ':' TO timestring+2(1),
         time2(2) TO timestring3(2),
         ':' TO timestring+5(1),
         time4(2) TO timestring6(2).
MOVE timestring TO asc_time.
MOVE date TO asc_date.
ENDFORM.                    "P6_TO_DATE_TIME_TZ
regards,
amit m.

How to upload file on Application Server with Forms 6i?

Please, I need to upload .csv file from local to Application Server, I think to use .jsp application, but I don't know where I had to put it...Apache can't read .jsp file without Tomcat? If I launch my .jsp file from Apache/htdocs directory can't view .jsp code (Method Not Allowed)...method is POST...any idea? Thanks in advance!

Hi,
You could write a java bean to get the file from the client and to upload to App Server. And, you simply use it in Forms 6i.
Also, you could use d2kwutil (not tried though. you could search this forum and get an idea of that).
Of course, For your information, You could use WebUtil (in Forms 10g / 10.1.2) which has the functionality.
HTH.
Regards,
Arun

Regarding writing file in application server with ISO8859 characters

Hello Experts,
I have a requirement that i need to write my file which read from the data base in ISO8859 characters in the application server.
Is there any FM or any particular code conver normal data base data to ISO8859 characters ?
Please give me some advise.
Thanks,
Suresh

Hello Suresh,
You DONOT have to do any conversion. You need to use the CODE PAGE addition with your OPEN DATASET stmt.
Can you specify as to which Character Set you need to download? (e.g., Cyrillic, Greek, Polish etc)
You can have a look into the SAP Note 73606 for details.
BR,
Suhas
Edited by: Suhas Saha on Dec 19, 2008 7:27 AM

How to store a file in application server with comma as a delimiter !!

<i>Hi,
   I'm Creating a file in app. server using "open dataset" statment and populating the file using Transfer stmt.
I like to store the data fields with comma delimiter, since it normally fixed length.
Please let me know Any method available.
Thank You,
Senthil</i>

No problem, just concatenate all your fields into one field separated by a comma. Then transfer that field only.
data: your_dataset type localfile default '/usr/sap/TST/SYS/Data1.txt'.
data: output type string.
open dataset your_dataset for output in text mode.
loop at itab.
concatenate itab-fld1
              itab-fld2
              itab-fld3
                   into output separated by ','.
transfer output to your_dataset.
endloop.
close dataset your_dataset.
REgards,
Rich Heilman

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?

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 copy a file from application server to local system

Guys,
Need to copy a file from application server to local system.Is there an FM for the same.
Tried searching for it but couldn't find anything useful.
Code snippets will be highly appreciated.
Warm Regards,
P.
Moderator message: very frequently asked and answered question, obviously you did not search thoroughly, all points removed.
Edited by: Thomas Zloch on Dec 3, 2010 4:48 PM

hi,
You can use the transactions CG3Y or through program u can do like this..
DATA: BEGIN OF IT_FILE OCCURS 0,
                LINE TYPE STRING,
           END OF IT_FILE.
OPEN DATASET <file_name> FOR INPUT IN TEXT MODE ENCODING DEFAULT.
        IF SY-SUBRC IS INITIAL.
          DO.
            READ DATASET<file_name> INTO IT_FILE-LINE.
            IF SY-SUBRC = 0.
              APPEND IT_FILE.
              CLEAR IT_FILE.
            ELSE.
              EXIT.
            ENDIF.
          ENDDO.
        ENDIF.
CLOSE DATASET <file_name>.
Download it to local system using FM - GUI_DOWNLOAD

Function module to read xml files from application server

Hi experts,
I need to read xml files from application server to sap. Is the any siutable function moldule for that?

Hi Cenosure,
Donno about FM which will upload data directly to SAP, I think you have to do some mapping for it so that it will suit the SAP format. Again it depends on your requirement..
Please elaborate more about your requirement.
Please have a look on below FM
TEXT_CONVERT_XML_TO_SAP
Also search on SCN there are many threads on the same topic available.
http://abapreports.blogspot.com/2008/09/upload-xml-file-from-application-server.html
This is the link which will give you the Code
http://www.geocities.com/rmtiwari/Resources/MySolutions/Dev/Codes/Report/Z_RMTIWARI_XML_TO_ABAP_46C.html
Use this XML file to Upload the same, this Program will work for your XML file also,
http://www.geocities.com/rmtiwari/Resources/MySolutions/Dev/Codes/Report/input_xml.xml
See the below thread also
Upload XML to internal table and vice versa in SAP 4.6C
Hope it will solve your problem..
Thanks & Regards
ilesh 24x7
ilesh Nandaniya

Need a List of Files on Application Server WITH "Last Changed Date".

Similar Messages

Maybe you are looking for