FTP服务器收不到传送的文件,传输文件到FTP服务器(2)

LOOP AT btab .

MOVE-CORRESPONDING btab TO ctab .

APPEND ctab .

ENDLOOP .

CALL FUNCTION 'SAP_CONVERT_TO_CSV_FORMAT'

TABLES

i_tab_sap_data       = ctab

CHANGING

i_tab_converted_data = csvtab

EXCEPTIONS

conversion_failed    = 1

OTHERS               = 2.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

*  CALL 'AB_RFC_X_SCRAMBLE_STRING'

*  ID 'SOURCE' FIELD spwd

*  ID 'KEY' FIELD mi_key

*  ID 'SCR' FIELD 'X'

*  ID 'DESTINATION' FIELD spwd

*  ID 'DSTLEN' FIELD slen.

CALL FUNCTION 'HTTP_SCRAMBLE'

EXPORTING

SOURCE      = spwd

sourcelen   = slen

key         = mi_key

IMPORTING

destination = spwd.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CALL FUNCTION 'FTP_CONNECT'

EXPORTING

user            = suser

password        = spwd

host            = shost

rfc_destination = 'SAPFTP' "SAPFTPA

IMPORTING

handle          = mi_handle

EXCEPTIONS

not_connected   = 1

OTHERS          = 2.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CHECK sy-subrc = 0.

CALL FUNCTION 'FTP_R3_TO_SERVER'

EXPORTING

handle         = mi_handle

fname          = filename

character_mode = 'X'

TABLES

text           = csvtab.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CALL FUNCTION 'FTP_DISCONNECT'

EXPORTING

handle = mi_handle

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.