ABPA 对文件的存取

最新推荐文章于 2023-06-08 16:00:27 发布

StevenChen158258

最新推荐文章于 2023-06-08 16:00:27 发布

阅读量552

点赞数

分类专栏： SAP ABAP 文章标签： table function upload insert download 测试

本文链接：https://blog.csdn.net/StevenChen158258/article/details/6014258

版权

SAP ABAP 专栏收录该内容

20 篇文章 0 订阅

订阅专栏

*------------------内部数据另存为文件------------------
*DATA: BEGIN OF MAN,
*      NAME(20) TYPE C,
*      HIGH     TYPE P DECIMALS 2,
*      WEIGHT   TYPE P DECIMALS 2,
*      END OF MAN.
*DATA: MAN1 LIKE TABLE OF MAN.
*DATA: NAME TYPE RLGRAP-FILENAME ,TYPA TYPE RLGRAP-FILETYPE.
*      MAN-NAME = '张参'.
*      MAN-HIGH = '1.68'.
*      MAN-WEIGHT = '120'.
*      INSERT MAN INTO TABLE MAN1.
*      MAN-NAME = '刘志'.
*      MAN-HIGH = '1.78'.
*      MAN-WEIGHT = '160'.
*      INSERT MAN INTO TABLE MAN1.
*
*      NAME = 'C:/TEMP/TESTA.TXT'.
*      TYPA = 'DAT'.
*
*      CALL FUNCTION 'DOWNLOAD'
*      EXPORTING
*      CODEPAGE = 'TESTA'
*      FILENAME = NAME
*      FILETYPE = TYPA
*      ITEM      = '文件测试'
*      TABLES
*      DATA_TAB = MAN1
*      EXCEPTIONS
*      INVALID_FILESIZE = 1
*      INVALID_TABLE_WIDTH = 2
*      INVALID_TYPE = 3
*      NO_BATCH = 4
*      UNKONOWN_ERROR = 5
*      GUI_REFUSE_FILETRANSFER = 6
*      OTHERS    = 7.
*------------------直接读入文件------------------
DATA: BEGIN OF MAN,
      NAME(20) TYPE C,
      HIGH     TYPE P DECIMALS 2,
      WEIGHT   TYPE P DECIMALS 2,
      END OF MAN.
DATA: MAN1 LIKE TABLE OF MAN.
*------------------直接读入文件------------------
*      CALL FUNCTION 'UPLOAD'.
*------------------不使用提示框提示直接读入文件------------------
      CALL FUNCTION 'WS_UPLOAD'
      EXPORTING
      CODEPAGE = 'TESTA'
      FILENAME = 'C:/TEMP/TESTA.TXT'
      FILETYPE = 'DAT'
      ITEM      = '读放文件'
      TABLES
      DATA_TAB = MAN1
      EXCEPTIONS
      INVALID_FILESIZE = 1
      INVALID_TABLE_WIDTH = 2
      INVALID_TYPE = 3
      NO_BATCH = 4
      UNKONOWN_ERROR = 5
      GUI_REFUSE_FILETRANSFER = 6
      OTHERS    = 7.
      LOOP AT MAN1 INTO MAN.
      WRITE: / MAN-NAME , MAN-HIGH , MAN-WEIGHT.
      ENDLOOP.