유닉스 서버에서 특정 디렉토리의 파일을 찾아서 읽는 것을 하려고 합니다.

그런데 CALL 'C_DIR_READ_START' ID 'FILE' 을 해서 처음엔 파일을 읽는데,

두번째로 하게 되면 읽지못하고 FILE1-ERRMSG에 'Last Dir scan is not finished'란

에러 메세지가 나옵니다. 어떻게 처리해야 할지 모르겠습니다...

도와주세요 ^^

아래는 파일 찾는 부분입니다

====================================================================

FORM FILEDETECT.

  CALL 'C_DIR_READ_START' ID 'FILE'
   FIELD '/home/cmsadm/RECV/scnedi/'
                         ID 'ERRNO'  FIELD FILE1-ERRNO
                         ID 'ERRMSG' FIELD FILE1-ERRMSG.

  DO.
    CLEAR FILE.

    CALL 'C_DIR_READ_NEXT'
      ID 'TYPE'     FIELD FILE1-TYPE
      ID 'NAME'     FIELD FILE1-NAME
      ID 'LEN'      FIELD FILE1-LEN
      ID 'OWNER'    FIELD FILE1-OWNER
      ID 'MTIME'    FIELD FILE1-MTIME
      ID 'MODE'     FIELD FILE1-MODE
      ID 'MDATE'    FIELD FILE1-MDATE
      ID 'ERRNO'    FIELD FILE1-ERRNO
      ID 'ERRMSG'   FIELD FILE1-ERRMSG.
    MOVE SY-SUBRC TO    FILE1-SUBRC.
    CASE SY-SUBRC.
      WHEN 0.
      WHEN OTHERS.
        EXIT.
    ENDCASE.
    MOVE-CORRESPONDING FILE1 TO FILELIST.
    APPEND FILELIST.
  ENDDO.

  DELETE FILELIST WHERE TYPE <> 'file, regular'.

ENDFORM.