SAP 与 ftp 交互上传文件 demo

港控/mmm° 2021-12-20 14:11 400阅读 0赞

\*&---------------------------------------------------------------------\*  
\*& Report  Z001\_TT\_3                                                   \*  
\*&                                                                     \*  
\*&---------------------------------------------------------------------\*  
\*&                                                                     \*  
\*&                                                                     \*  
\*&---------------------------------------------------------------------\*  
REPORT  Z001\_TT\_3.  
  
PARAMETERS: p\_file   TYPE char255 DEFAULT 'C:\\Users\\Administrator\\Desktop\\11.txt'."这个路径为了测试我给写死了  
            "p\_host   TYPE char64 DEFAULT 'xxx.xxx.xxx.xx xx',"ftp  ip  
            "p\_folder TYPE char255 DEFAULT '/home/ftp2018/SAPFiled/'LOWER CASE,"ftp 上传的路径  
            "p\_uname  TYPE char30 DEFAULT 'ftp2018' LOWER CASE,"ftp 名称  
            "p\_pwd    TYPE char30 DEFAULT 'xxxxxx' LOWER CASE."ftp 密码  
  
DATA:  
      p\_host(100)  type c value 'xxx.xxx.xxx.xx xx',"ftp  ip  
      p\_folder(1000)  type c value '/home/ftp2018/SAPFiled/',"ftp 上传的路径  
      p\_uname(100)  type c value  'ftp2018',"ftp 名称  
      p\_pwd(100)  type c value 'xxxxxxxxx'."ftp 密码  
  
"PARAMETERS: dest     LIKE rfcdes-rfcdest DEFAULT 'SAPFTP',  
"            compress TYPE c DEFAULT 'N'.  
  
DATA: hdl     TYPE i,  
      key     TYPE i VALUE 26101957,  
      slen    TYPE i,  
      cmd(80) TYPE c.  
  
DATA: BEGIN OF result OCCURS 0,  
        line(100) TYPE c,  
      END OF result.  
  
slen = strlen( p\_pwd ).  
"slen = strlen( p\_pwd ).  
  
\* "获取加密密码 保存到P\_PWD  
CALL FUNCTION 'HTTP\_SCRAMBLE'  
  EXPORTING  
    source      = p\_pwd  
    sourcelen   = slen  
    key         = key  
  IMPORTING  
    destination = p\_pwd.  
  
\* 连接ftp服务器  
CALL FUNCTION 'FTP\_CONNECT'  
  EXPORTING  
    user            = p\_uname  
    password        = p\_pwd  
    host            = p\_host  
    rfc\_destination = 'SAPFTP'"dest  
  IMPORTING  
    handle          = hdl.  "连接的句柄  
  
   if sy-subrc <> 0.  
    write :/ sy-datum, sy-uzeit, sy-uname,  '连接ftp失败！'.            "MESSAGEG  
    stop.  
  endif.  
  
 "执行FTP命令 CD 打开目标ftp的文件夹  
"now open the target ftp folder  
concatenate 'cd' p\_folder into cmd SEPARATED BY space.  
  
CALL FUNCTION 'FTP\_COMMAND'  
  EXPORTING  
    handle        = hdl  
    command       = cmd  
    compress      = 'N'"compress  
  TABLES  
    data          = result  
  EXCEPTIONS  
    command\_error = 1  
    tcpip\_error   = 2.  
LOOP AT result.  
  WRITE AT / result-line.  
ENDLOOP.  
REFRESH result.  
  
\* 打开本地ftp文件夹  
"now open the local ftp folder  
\*concatenate 'lcd' 'C:\\TEMP\\' into cmd SEPARATED BY space.  
\*CALL FUNCTION 'FTP\_COMMAND'  
\*  EXPORTING  
\*    handle        = hdl  
\*    command       = cmd  
\*    compress      = 'N'"compress  
\*  TABLES  
\*    data          = result  
\*  EXCEPTIONS  
\*    command\_error = 1  
\*    tcpip\_error   = 2.  
\*LOOP AT result.  
\*  WRITE AT / result-line.  
\*ENDLOOP.  
\*REFRESH result.  
\* 将本地文件放到目标ftp文件夹中  
CONCATENATE 'put ' p\_file INTO cmd SEPARATED BY space.  
CALL FUNCTION 'FTP\_COMMAND'  
  EXPORTING  
    handle        = hdl  
    command       = cmd  
    compress      = 'N'"compress  
  TABLES  
    data          = result  
  EXCEPTIONS  
    command\_error = 1  
    tcpip\_error   = 2.  
LOOP AT result.  
  WRITE AT / result-line.  
ENDLOOP.  
REFRESH result.  
  
\* 断开FTP连接  
CALL FUNCTION 'FTP\_DISCONNECT'  
  EXPORTING  
    handle = hdl.  
\* 断开RFC链接  
CALL FUNCTION 'RFC\_CONNECTION\_CLOSE'  
  EXPORTING  
    destination = 'SAPFTP'"dest  
  EXCEPTIONS  
    OTHERS      = 1.