内部数据存为文件

内部数据存为文件 

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
          .