在sap里有GUI_DOWNLOAD?函數將sap的數據下載到客戶端機器（presentation server），而Dataset則是將數據傳輸到應用服務器（Application server）。然而在有些時候需要將數據傳輸到第三方其他系統(3rd Party System)，這是我們就可以使用FTP命令來完成數據傳輸。

1、相關函數
HTTP_SCRAMBLE
FTP_CONNECT
FTP_R3_TO_SERVER
FTP_DISCONNECT
RFC_CONNECTION_CLOSE

2、函數說明
HTTP_SCRAMBLE: 將密碼轉化為SAP的格式
樣例代碼
l_pwd = p_pwd.
l_slen = STRLEN( l_pwd ).
CALL FUNCTION 'HTTP_SCRAMBLE'
exporting
? source = l_pwd
? sourcelen = l_slen
? key = c_key
importing
? destination = l_pwd.

FTP_CONNECT : 連接其他系統
* To Connect to the Server using FTP
樣例代碼
CALL FUNCTION 'FTP_CONNECT'
EXPORTING
? user = p_user
? password = l_pwd
? host = p_host
? rfc_destination = c_dest
IMPORTING
? handle = w_hdl
EXCEPTIONS
? OTHERS = 1.
IF sy-subrc <> 0.
? MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
? WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

FTP_R3_TO_SERVER: 將SAP的內表數據按字符方式傳輸到其他系統.
樣例代碼
CALL FUNCTION 'FTP_R3_TO_SERVER'
EXPORTING
? handle = w_hdl
? fname = <file path of destination system>
? character_mode = 'X'
TABLES
? text = <internal table data>
EXCEPTIONS
? tcpip_error = 1
? command_error = 2
? data_error = 3
OTHERS = 4.
IF sy-subrc <> 0.
? MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
? WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
? RAISING invalid_output_file.
ENDIF.

FTP_DISCONNECT: 關閉SAP與其他系統的連接.
樣例代碼
* To disconnect the FTP
CALL FUNCTION 'FTP_DISCONNECT'
EXPORTING
? handle = w_hdl.

RFC_CONNECTION_CLOSE:關閉SAP與其他系統的RFC連接.
樣例代碼
CALL FUNCTION 'RFC_CONNECTION_CLOSE'
EXPORTING
? destination = c_dest
EXCEPTIONS
OTHERS = 1.

3、SAP的樣例代碼
report rsftp004.

parameters: suser(30) type c lower case,
??????????? spwd(30) type c lower case,
??????????? shost(64) type c lower case,
??????????? duser(30) type c lower case,
??????????? dpwd(30) type c lower case,
??????????? dhost(64) type c lower case,
??????????? lines type i default 1000,
??????????? pasv.
selection-screen skip 1.
parameters: dest like rfcdes-rfcdest default 'SAPFTP'.

types: begin of text,
?????? line(120) type c,
?????? end of text.

types: begin of blob,
?????? line(80) type x,
?????? end of blob.

data: shdl type i,
????? dhdl type i,
????? key type i value 26101957,
????? slen type i,
????? bline(80) type x,
????? sdocid like sysuuid-c,
????? ddocid like sysuuid-c,
????? blob_length type i,
????? cmd(120),
????? error.

data: result type table of text with header line,
????? bindata type table of blob with header line.

* Create data

set extended check off.
error = 0.
bline = '0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F' &
??????? '0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F' &
??????? '0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F' &
??????? '0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F'.

do lines times.
? bindata-line = bline.
? append bindata.
enddo.

call function 'SYSTEM_UUID_C_CREATE'
? importing
??? uuid = sdocid.

call function 'SYSTEM_UUID_C_CREATE'
? importing
??? uuid = ddocid.

* connect to ftp server - source

slen = strlen( spwd ).

call function 'HTTP_SCRAMBLE'
? exporting
??? source????? = spwd
??? sourcelen?? = slen
??? key???????? = key
? importing
??? destination = spwd.

call function 'SAPGUI_PROGRESS_INDICATOR'
? exporting
??? text = 'Connect to FTP Server - Source'.

call function 'FTP_CONNECT'
? exporting
??? user??????????? = suser
??? password??????? = spwd
??? host??????????? = shost
??? rfc_destination = dest
? importing
??? handle????????? = shdl.

* connect to ftp server - destination

slen = strlen( dpwd ).

call function 'HTTP_SCRAMBLE'
? exporting
??? source????? = dpwd
??? sourcelen?? = slen
??? key???????? = key
? importing
??? destination = dpwd.

call function 'SAPGUI_PROGRESS_INDICATOR'
? exporting
??? text = 'Connect to FTP Server - Destination'.

call function 'FTP_CONNECT'
? exporting
??? user??????????? = duser
??? password??????? = dpwd
??? host??????????? = dhost
??? rfc_destination = dest
? importing
??? handle????????? = dhdl.

if not pasv is initial.
? refresh result.

? call function 'FTP_COMMAND'
??? exporting
????? handle??????? = shdl
????? command?????? = 'set passive on'
??? tables
????? data????????? = result
??? exceptions
????? tcpip_error?? = 1
????? command_error = 2
????? data_error??? = 3.

? if sy-subrc eq 0.
??? write: / 'Set passive mode - Source'.
? endif.

? refresh result.

? call function 'FTP_COMMAND'
??? exporting
????? handle??????? = dhdl
????? command?????? = 'set passive on'
??? tables
????? data????????? = result
??? exceptions
????? tcpip_error?? = 1
????? command_error = 2
????? data_error??? = 3.

? if sy-subrc eq 0.
??? write: / 'Set passive mode - Destination'.
? endif.
? skip 1.

endif.

* Create file on Source

blob_length = lines * 80.

call function 'SAPGUI_PROGRESS_INDICATOR'
? exporting
??? text = 'Create File on Source'.

call function 'FTP_R3_TO_SERVER'
? exporting
??? handle????? = shdl
??? fname?????? = sdocid
??? blob_length = blob_length
? tables
??? blob??????? = bindata.

* Copy Files

call function 'SAPGUI_PROGRESS_INDICATOR'
? exporting
??? text = 'Copy File to Destination'.

refresh result.

call function 'FTP_COPY'
? exporting
??? handle_source????? = shdl
??? handle_destination = dhdl
??? file_source??????? = sdocid
??? file_destination?? = ddocid
? tables
??? data?????????????? = result
? exceptions
??? tcpip_error??????? = 1
??? command_error????? = 2
??? data_error???????? = 3
??? others???????????? = 4.

if sy-subrc ne 0. error = 1. endif.

loop at result.
? write / result-line.
endloop.

* compare content

if error eq 0.

? call function 'SAPGUI_PROGRESS_INDICATOR'
??? exporting
????? text = 'Compare Content'.

? skip 1.
? refresh bindata.

? call function 'FTP_SERVER_TO_R3'
??? exporting
????? handle????? = shdl
????? fname?????? = sdocid
??? importing
????? blob_length = blob_length
??? tables
????? blob??????? = bindata.

? slen = lines * 80.

? if slen ne blob_length.
??? error = 1.
??? write: / 'Length error - expected',slen,'received',blob_length.
? else.
??? loop at bindata.
????? if bindata-line ne bline.
??????? slen = sy-tabix * 80.
??????? write: / 'Content error at',slen,bindata-line.
??????? error = 1.
??????? exit.
????? endif.
??? endloop.
? endif.

? refresh bindata.

? call function 'FTP_SERVER_TO_R3'
??? exporting
????? handle????? = dhdl
????? fname?????? = ddocid
??? importing
????? blob_length = blob_length
??? tables
????? blob??????? = bindata.

? slen = lines * 80.

? if slen ne blob_length.
??? error = 1.
??? write: / 'Length error - expected',slen,'received',blob_length.
? else.
??? loop at bindata.
????? if bindata-line ne bline.
??????? slen = sy-tabix * 80.
??????? write: / 'Content error at',slen,bindata-line.
??????? error = 1.
??????? exit.
????? endif.
??? endloop.
? endif.

? if error eq 0.
??? write: / 'Content compare OK'.
? else.
??? write: / 'Content compare error'.
? endif.
? skip 1.

endif.

* Delete

concatenate 'del' sdocid into cmd separated by ' '.
refresh result.

call function 'SAPGUI_PROGRESS_INDICATOR'
? exporting
??? text = 'Delete Files'.

call function 'FTP_COMMAND'
? exporting
??? handle??????? = shdl
??? command?????? = cmd
? tables
??? data????????? = result
? exceptions
??? tcpip_error?? = 1
??? command_error = 2
??? data_error??? = 3.

loop at result.
? write / result-line.
endloop.

concatenate 'del' ddocid into cmd separated by ' '.
refresh result.

call function 'FTP_COMMAND'
? exporting
??? handle??????? = dhdl
??? command?????? = cmd
? tables
??? data????????? = result
? exceptions
??? tcpip_error?? = 1
??? command_error = 2
??? data_error??? = 3.

loop at result.
? write / result-line.
endloop.

* Disconnect
call function 'FTP_DISCONNECT'
? exporting
??? handle = shdl.
call function 'FTP_DISCONNECT'
? exporting
??? handle = dhdl.

call function 'RFC_CONNECTION_CLOSE'
? exporting
??? destination = dest
? exceptions
??? others = 1.

if error ne 0.
? format color col_negative.
? write: / 'Error im Test'.
else.
? format color col_positive.
? write: / ' Test OK'.
endif.

* password not visible

at selection-screen output.

? loop at screen.
??? if screen-name = 'SPWD' or screen-name = 'DPWD'.
????? screen-invisible = '1'.
????? modify screen.
??? endif.
? endloop.

轉載于:https://www.cnblogs.com/xiaomaohai/archive/2007/01/25/6157417.html

總結

以上是生活随笔為你收集整理的如何将SAP数据传输到其他系统（Transferring Data from SAP to Other Systems）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。