ABAP 读取FTP文件

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

DATA:lv_pwd(40),
       lv_len       TYPE i,
       ls_ftpserver TYPE sapftp_servers,
       lv_handle    TYPE i,
       lv_file(20),
       lo_csv       TYPE REF TO cl_rsda_csv_converter.
  DATA: BEGIN OF ls_line,
          line(2000),
        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 = 21.
  IF sy-subrc <> 0.
    ls_ftpserver-ftp_server_name = cns_host.
    ls_ftpserver-ftp_server_port = 21.
    ls_ftpserver-description = 'XXXFTP'.
    INSERT INTO sapftp_servers VALUES ls_ftpserver .
    COMMIT WORK AND WAIT.
  ENDIF.
  DO 3 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   = 1
        OTHERS          = 2.
    IF sy-subrc = 0.
      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    = 1
      command_error  = 2
      data_error     = 3
      OTHERS         = 4.
LOOP AT lt_line INTO ls_line.
ENDLOOP.