SAP系统通过FTP上载*.txt文档到服务器

整体思路是从SAP系统内表抓取数据（PERFORM GET_DATA）进行整理之后（PERFORM DEAL_DATA）再进行转化为FTP上载用的格式（PERFORM GET_OUT.）也就是对数据的初始化，这里用到了CL_ABAP_CONV_OUT_CE这个类。接下来就是设置FTP了，分为有密码和没有密码的。

代码如下：

START-OF-SELECTION.

*-- create a class for converting sap object into binary data
PERFORM CREATE_CODEPAGE_CONVERT_OBJECT.

*-- 取出报关单清单 for transporting
PERFORM GET_DATA.

*-- 转化数据为BINARY DATA
*-- 并把16进制的数据写到 LT_DATA table中
PERFORM DEAL_DATA.
SORT IT_OUT BY EXPNR SORTID EBSQ.
LOOP AT IT_OUT.
IT_OUT-ITEM_NO = SY-TABIX.
MODIFY IT_OUT.
ENDLOOP.
PERFORM GET_OUT.
*****设置FTP的文件名
g_date = SY-DATUM.
g_time = SY-UZEIT.
CONCATENATE 'DEC_EXP_LIST' g_date g_time '.txt' INTO P_FILE.
*** DOWNLOAD 文件并送出去
PERFORM FTP_DOWNLOAD USING P_FILE.

**** CLOSE FTP
*    PERFORM FTP_DISCONNECT.

******************对内表数据进行上载FTP前的处理*****
FORM GET_OUT .
LOOP AT IT_OUT.
call method conv->reset.      "初始化类中所有数据
PERFORM cl_abap_conv_out_ce USING IT_OUT-EMS_NO.
PERFORM cl_abap_conv_out_ce USING IT_OUT-EXPNR.
.
.
.
PERFORM cl_abap_conv_out_ce USING IT_OUT-Factor_2.
PERFORM cl_abap_conv_out_ce USING IT_OUT-G_MARK.
*************内表数据处理完都附加到一个LT_DATA中****
PERFORM APPEND_BUFFER.
AT LAST.
IF NOT G_XSTRING IS INITIAL.
APPEND G_XSTRING TO LT_DATA.
CLEAR G_XSTRING.
ENDIF.
ENDAT.
ENDLOOP.
ENDFORM.

连接FTP分为有密码和没密码2种，没密码相对简单，就验证连上否，连上了就进行数据传输；而有密码(注意区分大小写哦，ABAP默认是大写的)的要进行加密处理（为什么要加密，如何加密，不太清楚）再连FTP.
无密码处理：
FORM FTP_DOWNLOAD  USING   FNAME.
DATA: WA_DATA TYPE TS_DATA,
blob_length type i.

check not LT_DATA is initial.  "判断是否有数据要传送

LOOP AT LT_DATA INTO WA_DATA.
blob_length = blob_length + XSTRLEN( WA_DATA ).
ENDLOOP.
*** FTP CONNECT
PERFORM FTP_CONNECT USING USER        "user
PWD         "password
HOST.       "id
***直接把table中数据形成文件,FTP
CALL FUNCTION 'FTP_R3_TO_SERVER'
EXPORTING
HANDLE         = HDL
FNAME          = FNAME
BLOB_LENGTH    = BLOB_LENGTH
CHARACTER_MODE = ' '
TABLES
blob           = LT_DATA
*      TEXT           = PT_TAB
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.
ELSE.
MESSAGE S000(ZS) WITH '档案下载成功！'.
ENDIF.
ENDFORM.                    " FTP_DOWNLOAD

有密码的：
CALL FUNCTION 'HTTP_SCRAMBLE'
EXPORTING
SOURCE      = pwd
sourcelen   = l_slen
key         = key
IMPORTING
destination = pwd.

* Connect to server
CALL FUNCTION 'FTP_CONNECT'
EXPORTING
user            = user
password        = pwd
host            = host
rfc_destination = dest
IMPORTING
handle          = hdl
EXCEPTIONS
not_connected   = 1
OTHERS          = 2.

*****FTP file
l_file = 'oa_insurance.txt'.
CALL FUNCTION 'FTP_R3_TO_SERVER'
EXPORTING
HANDLE         = HDL
FNAME          = l_file
BLOB_LENGTH    = BLOB_LENGTH
CHARACTER_MODE = ' '
TABLES
blob           = LT_DATA
*      TEXT           = PT_TAB
EXCEPTIONS
TCPIP_ERROR    = 1
COMMAND_ERROR  = 2
DATA_ERROR     = 3
OTHERS         = 4.
************************关闭连接FTP***********
CALL FUNCTION 'FTP_DISCONNECT'
EXPORTING
handle = hdl.

CALL FUNCTION 'RFC_CONNECTION_CLOSE'
EXPORTING
destination = 'SAPFTPA'    "固定
EXCEPTIONS
OTHERS      = 1.

REPORT ZIEIT0005.

REPORT ZITOA0002.