oracle ftp 文件乱码,FTP_R3_TO_SERVER生成文件放到FTP中.中文亂碼問題

这样就可以用后台的方式正常往ftp传输汉字了。

"把内表数据用此函数SCMS_TEXT_TO_BINARY转换成2进制；

然后再FTP_R3_TO_SERVER用这个函数传ftp 注意用BLOB           = IN_DATA 和  BLOB_LENGTH    = LEN

CALL FUNCTION 'SCMS_TEXT_TO_BINARY'

IMPORTING

OUTPUT_LENGTH = LEN

TABLES

TEXT_TAB      = CONTENT

BINARY_TAB    = IN_DATA

EXCEPTIONS

FAILED        = 1

OTHERS        = 2.

CLEAR CONTENT[].

REFRESH RESULT.

CALL FUNCTION 'FTP_COMMAND'

EXPORTING

HANDLE        = HDL

COMMAND       = 'ascii'   "'binary' "

TABLES

DATA          = RESULT

EXCEPTIONS

TCPIP_ERROR   = 1

COMMAND_ERROR = 2

DATA_ERROR    = 3.

CALL FUNCTION 'FTP_COMMAND'

EXPORTING

HANDLE        = HDL

COMMAND       = 'cr'

TABLES

DATA          = RESULT

EXCEPTIONS

TCPIP_ERROR   = 1

COMMAND_ERROR = 2

DATA_ERROR    = 3.

CALL FUNCTION 'FTP_R3_TO_SERVER'

EXPORTING

HANDLE         = HDL

FNAME          = FILENAME

BLOB_LENGTH    = LEN

*        CHARACTER_MODE = 'X'

TABLES

*        TEXT           = IN_DATA

BLOB           = IN_DATA

EXCEPTIONS

TCPIP_ERROR    = 1

COMMAND_ERROR  = 2

DATA_ERROR     = 3.

IF SY-SUBRC <> 0.

MESSAGE = '往FTP服务器写数据失败。'.

EXIT.

ENDIF.

ENDIF.