Download files from application server - unknown file name

Question

Hello everybody,
I am working on a report allowing users to download XML files from the application server. All these XML files are created by the SAP system and their names can be found in a table. I can simply use OPEN DATASET for these files, put all file content to a buffer and send them to the GUI with CALL METHOD cl_gui_frontend_services=>gui_download.
The problem is now that some files are touched by an external document management system. These files are moved to another directory and timestamped. The first is no problem since the folder name is always the same and can be replaced before the OPEN DATASET statement. But additionally, the file gets a timestamp, when the filename was xyz.xml before, it now gets xyz.xml.01012008123456123456. As I cannot try all possible values (mircoseconds!), I need a way to search for the right filename on the application server. Is there a function module for this available?
It can always be stated that the former name (xyz.xml) is still a unique prefix, so I don't have to worry that xyz.xml.* will return multiple files.
Thanks in advance for any suggestions.
Christoph

Answer 1

HI!
I copy the function GET_DIRECTORY_FILE. In the eyelash of tables create one structures:
DIR_FILES           LIKE                  ZDIR_FILES
The single structure has component NAME (char 250).
I code of the function that I use is:
FUNCTION zget_directory_file.
""Interfase local
*"  IMPORTING
*"     REFERENCE(NAME_OF_DIR) TYPE  CHAR120
*"     REFERENCE(NAME_OF_FILE) TYPE  CHAR120 OPTIONAL
*"     REFERENCE(SP_CS) TYPE  CHAR120 OPTIONAL
*"  TABLES
*"      DIR_FILES STRUCTURE  ZDIR_FILES
  DATA: a_dir_name TYPE  char120,
        a_generic_name TYPE  char120,
        a_must_cs TYPE  char120.
  a_dir_name      = name_of_dir.
  a_generic_name  = name_of_file.
  a_must_cs       = sp_cs.
  DATA: errcnt(2) TYPE p VALUE 0.
  IF a_dir_name IS INITIAL.
   MESSAGE e220.     " 'Place cursor on valid line !'.
  ENDIF.
  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 a_dir_name
                          ID 'FILE'   FIELD a_generic_name
                          ID 'ERRNO'  FIELD file-errno
                          ID 'ERRMSG' FIELD file-errmsg.
  IF sy-subrc <> 0.
    sy-subrc = 4.
    EXIT.
  ENDIF.
  file-dirname = a_dir_name.
  DO.
    CLEAR file.
    file-name = '*.zip'.
    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.
    file-dirname = a_dir_name.
    MOVE sy-subrc TO file-subrc.
    CASE sy-subrc.
      WHEN 0.
        CLEAR: file-errno, file-errmsg.
        CASE file-type(1).
          WHEN 'F'.                 " normal file.
            PERFORM filename_useable USING file-name file-useable.
          WHEN 'f'.                 " normal file.
            PERFORM filename_useable USING file-name file-useable.
          WHEN OTHERS.              " directory, device, fifo, socket,...
            MOVE sap_no  TO file-useable.
        ENDCASE.
        IF file-len = 0.
          MOVE sap_no TO file-useable.
        ENDIF.
      WHEN 1.                     " end of directory
        EXIT.
      WHEN 4.                     " filename too long
        MOVE sap_no TO file-useable.
      WHEN OTHERS.
        ADD 1 TO errcnt.
        IF errcnt > 90.
          EXIT.
        ENDIF.
        IF sy-subrc = 5.
          MOVE: '???' TO file-type,
                '???' TO file-owner,
                '???' TO file-mode.
        ELSE.
        ULINE.
        WRITE: / 'C_DIR_READ_NEXT', 'SUBRC', SY-SUBRC.
        ENDIF.
        MOVE sap_no TO file-useable.
    ENDCASE.
   PERFORM p6_to_date_time_tz(rstr0400) USING file-mtime
                                              file-mod_time
                                              file-mod_date.
  * Does the filename contains the requested pattern?
  * Then store it, else forget it.
   MOVE-CORRESPONDING file TO file_list.
   APPEND file_list.
    MOVE file-name TO dir_files-name.
    APPEND dir_files.
   IF a_must_cs = no_cs.
     MOVE-CORRESPONDING file TO file_list.
     APPEND file_list.
   ELSE.
     IF file-name CS a_must_cs.
       MOVE-CORRESPONDING file TO file_list.
       APPEND file_list.
     ENDIF.
   ENDIF.
  ENDDO.
ENDFUNCTION.
*&      Form  filename_useable
      text
     -->A_NAME     text
     -->A_USEABLE  text
FORM filename_useable USING a_name a_useable.
*--================--
  DATA l_name(75).
  l_name = a_name.
  IF l_name(4) = 'core'.
    a_useable = sap_no.
  ELSE.
    a_useable = sap_yes.
  ENDIF.
ENDFORM.                    "FILENAME_USEABLE
With this I obtain all the archives XML of that route in a table
DATA: zfiles LIKE STANDARD TABLE OF zdir_files WITH HEADER LINE.
CALL FUNCTION 'ZGET_DIRECTORY_FILE'
  EXPORTING
    name_of_dir = dsn
  TABLES
    dir_files   = zfiles.
IF sy-subrc = 0.
  LOOP AT zfiles .
    IF  zfiles-name+0(2) = 'O_' AND
        zfiles-name+2(3) = sy-mandt AND
        zfiles-name+5(1) = '_' AND
       zfiles-name+22(4) = '.xml'.
      file = zfiles-name.
endloop.
endif.
I hope this helps you.
Regards.