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.
MAN-NAME = '李志'.
MAN-HIGH = '1.58'.
MAN-WEIGHT = 110.
INSERT MAN INTO MAN1 INDEX 2.
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
UNKNOWN_ERROR = 5
GUI_REFUSE_FILETRANSFER = 6
OTHERS = 7.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*文件数据上传到内表--------------------------------
*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'
*EXPORTING
*CODEPAGE = 'TEST'
*FILENAME = 'C:/TEMP/TESTA.TXT'
*FILETYPE = 'DAT'
*ITEM = '读放文件'
*TABLES
*DATA_TAB = MAN1
*EXCEPTIONS
*CONVERSION_ERROR = 1
*INVALID_TABLE_WIDTH = 2
*INVALID_TYPE = 3
*NO_BATCH = 4
*UNKNOWN_ERROR = 5
*GUI_REFUSE_FILETRANSFER = 6
*OTHERS = 7.
*IF SY-SUBRC <> 0.
** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
** WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*ENDIF.
*LOOP AT MAN1 INTO MAN.
*WRITE: / MAN-NAME,MAN-HIGH, MAN-WEIGHT.
*ENDLOOP.