CALL 'C_DIR_READ_START' ID 'DIR'    FIELD filename
                          ID 'FILE'   FIELD i_pattern
                          ID 'ERRNO'  FIELD file-errno
                          ID 'ERRMSG' FIELD file-errmsg.
  DO.
...
    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.
...
  ENDDO.

  CALL 'C_DIR_READ_FINISH'
      ID 'ERRNO'  FIELD file_list-errno
      ID 'ERRMSG' FIELD file_list-errmsg.

  CALL 'C_DIR_READ_FINISH'             "just to be sure    "#EC CI_CCALL
      ID 'ERRNO'  FIELD l_errno
      ID 'ERRMSG' FIELD l_errmsg.
  IF sy-subrc <> 0 AND sy-subrc <> 3.
     RAISE READ_FINISH_FAILED.
  ENDIF.
  CALL 'C_DIR_READ_START' ID 'DIR'    FIELD lv_dir
                          ID 'FILE'   FIELD i_file_mask
                          ID 'ERRNO'  FIELD l_errno
                          ID 'ERRMSG' FIELD l_errmsg.
  IF sy-subrc <> 0.
    RAISE READ_START_FAILED.
  ENDIF.
  CLEAR l_sum_error.
*  CLEAR gt_file_list.
*  REFRESH gt_file_list.
  DO.
    CLEAR ls_file_list.
    CLEAR file.
    CALL 'C_DIR_READ_NEXT'                                "#EC CI_CCALL
      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 l_errno
      ID 'ERRMSG' FIELD l_errmsg.
    CASE sy-subrc.
      WHEN 0.                                               " or 4.
        CLEAR: l_errno, l_errmsg.
        CHECK file-name <> '.' AND file-name <> '..' .
        CASE file-type(1).
          WHEN 'F' or 'f'.                      " normal file.
            MOVE 'F'                   TO ls_file_list-type.
          WHEN 'D' or 'd'.                      " directory
            MOVE 'D'                   TO ls_file_list-type.
          WHEN OTHERS.                   " device, fifo, socket,...
            MOVE 'S'                   TO ls_file_list-type.
        ENDCASE.

        PERFORM p6_to_date_time
          USING file-mtime g_timezone_sec
                file-mod_time
                file-mod_date.
        MOVE file-mode               TO ls_file_list-mode.
        MOVE file-owner              TO ls_file_list-owner.
        MOVE file-mod_date           TO ls_file_list-date.
        MOVE file-mod_time           TO ls_file_list-time.
        IF file-len > 9999999.
          MOVE '>10 MB'              TO ls_file_list-len.
        ELSE.
          WRITE file-len             TO ls_file_list-len.
        ENDIF.
        MOVE file-name               TO ls_file_list-name.
*        CONCATENATE i_dir
*                    file-name
*               INTO ls_file_list-full_name.
        APPEND ls_file_list TO t_files.

      WHEN 1.                          "End of List
        EXIT.                          "exit do loop
      WHEN OTHERS.
        ADD 1                          TO l_sum_error.
    ENDCASE.
  ENDDO.
  CALL 'C_DIR_READ_FINISH'                                "#EC CI_CCALL
      ID 'ERRNO'  FIELD l_errno
      ID 'ERRMSG' FIELD l_errmsg.
  IF sy-subrc <> 0 AND sy-subrc <> 4.
    RAISE READ_FINISH_FAILED.
  ENDIF.