古いTXTとTXTの下にパスをアップロード

1、ファイルをダウンロード

TYPES：BEGIN  OF TY_DATA、
        A2 TYPE CHAR20、
        B2のTYPEのI、
        C2 TYPE CHAR20、
       END  OF TY_DATA。
DATA：IT_DATA TYPEの標準のTABLE  OF TY_DATA WITH  HEADER  LINE 、
     WA_DATA TYPE TY_DATA。
DATA：IT_DATA1 TYPEの標準のTABLE  OF TY_DATA WITH  HEADERの LINE 、
     WA_DATA1のTYPE TY_DATA.
DATA:NAME TYPE RLGRAP-FILENAME,TYPA TYPE RLGRAP-FILETYPE.
WA_DATA-A2 = '我是'.
WA_DATA-B2 = 1.
WA_DATA-C2 = '个中国人'.
APPEND WA_DATA TO IT_DATA.
CLEAR:WA_DATA.
WA_DATA-A2 = '你是'.
WA_DATA-B2 = 10.
WA_DATA-C2 = '全10美的人'.
APPENDWA_DATA TO IT_DATA。
CLEAR ：WA_DATA。
NAME = ' D：\ TEMPの\のTEXT.TXT ' 。
TYPA = ' DAT ' 。
CALLの FUNCTION  ' DOWNLOAD ' 
  EXPORTING 
    CODEPAGE                 = ' TEXT ' 
    FILENAME                 = NAMEの
    FILETYPE                 = TYPAの
    ITEM                     = ' 文件导出' 
  TABLES 
    DATA_TAB                 = IT_DATA
  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 。
* ここでのハンドリングに適したエラーを実装
ENDIFを。

 

2、ファイルをアップロード

CALL  FUNCTION  ' UPLOAD ' 
  EXPORTING 
    CODEPAGE                 = ' TEXT ' 
    FILENAME                 = NAMEの
    FILETYPE                 = TYPAの
    ITEM                     = ' 读入文件' 
  TABLES 
    DATA_TAB                 = IT_DATA1の
   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 。
* ここでのハンドリングに適したエラーを実装
ENDIFを。
LOOP  AT IT_DATA。
  WRITE：/ IT_DATA-A2、IT_DATA-B2、IT_DATA- C2。
  ENDLOOP。