内部数据存为文件
REPORT Z_SAVE_ITAB_TO_FILE_NEIL .
DATA: BEGIN OF MAN,
NAME(20) TYPE C,
HIGH TYPE P DECIMALS 2,
WEIGHT TYPE P DECIMALS 2,
END OF MAN.
*DATA: MAN1 LIKE HASHED TABLE OF MAN WITH UNIQUE KEY NAME.
DATA: MAN1 LIKE TABLE OF MAN.
DATA: NAME TYPE RLGRAP-FILENAME, TYPA TYPE RLGRAP-FILETYPE.
MAN-NAME = 'TICO'.
MAN-HIGH = '1.68'.
MAN-WEIGHT = 120.
INSERT MAN INTO TABLE MAN1.
MAN-NAME = 'LIU'.
MAN-HIGH = '1.98'.
MAN-WEIGHT = 130.
INSERT MAN INTO TABLE MAN1.
LOOP AT MAN1 INTO MAN.
WRITE:/ MAN-NAME, MAN-HIGH, MAN-WEIGHT.
ENDLOOP.
MAN-NAME = 'LIZHI'.
MAN-HIGH = '1.50'.
MAN-WEIGHT = 160.
INSERT MAN INTO MAN1 INDEX 2.
NAME = '//172.29.68.101/d$/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
* UNKNOWN_ERROR = 5
* GUI_REFUSE_FILETRANSFER = 6
* CUSTOMER_ERROR = 7
* OTHERS = 8
* .
*直接存入文件,不加提示
CALL FUNCTION 'WS_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
UNKNOWN_ERROR = 5
GUI_REFUSE_FILETRANSFER = 6
CUSTOMER_ERROR = 7
OTHERS = 8
.