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 = NAMEFILETYPE = TYPAITEM = '文件测试'TABLESDATA_TAB = MAN1EXCEPTIONSINVALID_FILESIZE = 1INVALID_TABLE_WIDTH = 2INVALID_TYPE = 3NO_BATCH = 4UNKNOWN_ERROR = 5GUI_REFUSE_FILETRANSFER = 6OTHERS = 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.
