Latest File in AL11

Question

In AL11, we have many files for the perticular interface in a perticular dedicated folder/directory.
Out of these many files, I have to read the one that is latest.
Any idea how do get the file name of the latest file?
Thanks
Edited by: Pranu Pranu on Jan 26, 2011 5:12 AM

Answer 1

There is to method you can use.
1. Use the OS kernal functions.
get directory listing
CALL 'C_DIR_READ_FINISH' " just to be sure
ID 'ERRNO' FIELD files-errno
ID 'ERRMSG' FIELD files-errmsg.
CALL 'C_DIR_READ_START'
ID 'DIR' FIELD dir_nam
ID 'FILE' FIELD ''
ID 'ERRNO' FIELD files-errno
ID 'ERRMSG' FIELD files-errmsg.
IF sy-subrc 0.
*RAISE read_directory_failed.
ENDIF.
REFRESH files.
CLEAR file_counter.
CLEAR error_counter.
DO. <<<<<<<<<<<<<<----
Start Of reading a directory sequentially
CLEAR files.
files-dirname = dir_nam.
CALL 'C_DIR_READ_NEXT'
ID 'TYPE' FIELD files-type
ID 'NAME' FIELD files-name
ID 'LEN' FIELD files-len
ID 'OWNER' FIELD files-owner
ID 'MTIME' FIELD files-mtime
ID 'MODE' FIELD files-mode
ID 'ERRNO' FIELD files-errno
ID 'ERRMSG' FIELD files-errmsg.
IF sy-subrc = 0.
*Here You can match the creation time of the file by comparing it with others
IF <File is old then process with the next file>.
CONTINUE.
ELSEIF ( files-type(1) 'd' ) AND " <<<<----
D indicated directories
( files-type(1) 'D' ).
ADD 1 TO file_counter.
files-subrc = '0'.
PERFORM p6_to_date_time_tz(rstr0400)
USING
files-mtime
files-mod_time
files-mod_date.
APPEND files.
ENDIF.
ELSEIF sy-subrc = 1.
EXIT.
ELSE.
IF error_counter > 1000.
CALL 'C_DIR_READ_FINISH'
ID 'ERRNO' FIELD files-errno
ID 'ERRMSG' FIELD files-errmsg.
RAISE too_many_read_errors.
ENDIF.
ADD 1 TO error_counter.
files-subrc = '18'.
PERFORM p6_to_date_time_tz(rstr0400)
USING
files-mtime
files-mod_time
files-mod_date.
APPEND files.
ENDIF.
ENDDO.
CALL 'C_DIR_READ_FINISH'
ID 'ERRNO' FIELD files-errno
ID 'ERRMSG' FIELD files-errmsg.
IF file_counter > 0.
SORT files BY name ASCENDING.
ELSE.
*RAISE empty_directory_list.
ENDIF.
And Finally You can use the FILES table to get the latest file name.
2. Another method go with function module EPS_GET_DIRECTORY_LISTING and collect all file in output table and use some file information function module like EPS_GET_FILE_ATTRIBUTES or following kernal method to compare every file creation date and time and get the latest file out of that.
CALL 'C_FILE_ATTRIBUTES'
          ID 'NAME'   FIELD file_path
          ID 'TYPE'   FIELD file-type
          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.
Cheers
Dhirendra Pandit