根据目录节点读取SAP 服务器下的文件列表

最新推荐文章于 2024-05-08 17:08:19 发布

SAP小白kenny

最新推荐文章于 2024-05-08 17:08:19 发布

阅读量620

点赞数

分类专栏： ABAP 文章标签： abap

本文链接：https://blog.csdn.net/weixin_42646630/article/details/106907780

版权

ABAP 专栏收录该内容

124 篇文章

订阅专栏

  DATA BEGIN OF app_file.
       INCLUDE RSTR0112.
  DATA END   OF app_file.  

DATA: len TYPE i.
*  CLEAR file_list. REFRESH file_list.
   CLEAR len.
  CALL 'C_DIR_READ_FINISH'.
  CALL 'C_DIR_READ_START'
    ID 'DIR'  FIELD a_dir
    ID 'FILE' FIELD '*'.
  IF sy-subrc NE 0.
    MESSAGE e000(z900)  WITH '读取错误' a_dir.
  ENDIF.
  DO.
    CLEAR app_file.
    CALL 'C_DIR_READ_NEXT'
      ID 'TYPE' FIELD app_file-type
      ID 'NAME' FIELD app_file-name .
    CASE sy-subrc.
      WHEN 0.
      WHEN 1.
        EXIT.
      WHEN OTHERS.
        ADD 1 TO len.
        IF len > 10.
          EXIT.
        ENDIF.
    ENDCASE.
*    CHECK app_file-typ(1) CO 'fFdD'.
    CHECK app_file-type(1) CO 'fF'. "只要文件，不要目录
  ENDDO.

    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