ABAP 读取FTP文件

CONSTANTS: cns_host TYPE c LENGTH  VALUE '172.168.1.250'.
CONSTANTS: cns_usr TYPE c LENGTH  VALUE 'username'.
CONSTANTS: cns_pwd TYPE c LENGTH  VALUE 'password'.
CONSTANTS: cns_key TYPE i VALUE ."密钥
CONSTANTS: cns_rfcdest LIKE rfcdes-rfcdest VALUE 'SAPFTPA'.

DATA:lv_pwd(),
       lv_len       TYPE i,
       ls_ftpserver TYPE sapftp_servers,
       lv_handle    TYPE i,
       lv_file(),
       lo_csv       TYPE REF TO cl_rsda_csv_converter.
  DATA: BEGIN OF ls_line,
          line(),
        END OF ls_line,
        lt_line LIKE TABLE OF ls_line.

lv_len = strlen( cns_pwd ).
  CALL FUNCTION 'HTTP_SCRAMBLE'
    EXPORTING
      source      = cns_pwd
      sourcelen   = lv_len
      key         = cns_key
    IMPORTING
      destination = lv_pwd. "加密密码

  CLEAR ls_ftpserver.
  SELECT SINGLE * FROM sapftp_servers INTO ls_ftpserver
    WHERE ftp_server_name = cns_host AND ftp_server_port = .
  IF sy-subrc <> .
    ls_ftpserver-ftp_server_name = cns_host.
    ls_ftpserver-ftp_server_port = .
    ls_ftpserver-description = 'XXXFTP'.
    INSERT INTO sapftp_servers VALUES ls_ftpserver .
    COMMIT WORK AND WAIT.
  ENDIF.
  DO  TIMES.
    CALL FUNCTION 'FTP_CONNECT'
      EXPORTING
        user            = cns_usr
        password        = lv_pwd
*       ACCOUNT         =
        host            = cns_host
        rfc_destination = cns_rfcdest
*       GATEWAY_USER    =
*       GATEWAY_PASSWORD       =
*       GATEWAY_HOST    =
      IMPORTING
        handle          = lv_handle
      EXCEPTIONS
        not_connected   =
        OTHERS          = .
    IF sy-subrc = .
      EXIT.
    ENDIF.
  ENDDO.
lv_file = '......'.
CALL FUNCTION 'FTP_SERVER_TO_R3'
    EXPORTING
      handle         = lv_handle
      fname          = lv_file
      character_mode = 'X'
* IMPORTING
*     BLOB_LENGTH    =
    TABLES
*     BLOB           =
      text           = lt_line
    EXCEPTIONS
      tcpip_error    =
      command_error  =
      data_error     =
      OTHERS         = .
LOOP AT lt_line INTO ls_line.
ENDLOOP.