ABAP 连接ftp 删除某个文件

DATA :  
        p_host   TYPE char64 VALUE '192.168.100.64 21',"  IP
        p_folder TYPE char255 VALUE '/aa/bb/',  "ftp 路径
        p_uname  TYPE char30 VALUE 'sys' , "用户名称
        p_pwd    TYPE char30 VALUE 'psword' . "用户密码

  DATA : dest     LIKE rfcdes-rfcdest  VALUE 'SAPFTP',
         compress TYPE c  VALUE 'N'.

  DATA: hdl     TYPE i,
        key     TYPE i VALUE 26101957,
        slen    TYPE i,
        cmd(80) TYPE c.

  slen = strlen( p_pwd ).

*   "获取加密密码 保存到P_PWD
  CALL FUNCTION 'HTTP_SCRAMBLE'
    EXPORTING
      source      = p_pwd
      sourcelen   = slen
      key         = key
    IMPORTING
      destination = p_pwd.

*     连接ftp服务器
  CALL FUNCTION 'FTP_CONNECT'
    EXPORTING
      user            = p_uname
      password        = p_pwd
      host            = p_host
      rfc_destination = dest
    IMPORTING
      handle          = hdl.  "连接的句柄

  "删除远程文件夹下目录某个文件 。。。。。。start........
  DATA :  del_filename      TYPE char255 .
  DATA: BEGIN OF result OCCURS 0,
          line(100) TYPE c,
        END OF result.
  CALL FUNCTION 'FTP_COMMAND'
    EXPORTING
      handle        = hdl
      command       =  mdelete /ftp路径/a文件夹下/aa.DOCX'    "ftp删除命令
      compress      = compress
    TABLES
      data          = result
    EXCEPTIONS
      command_error = 1
      tcpip_error   = 2.

LOOP AT result.
  WRITE AT / result-line.
ENDLOOP.
REFRESH result. 

IF SY-SUBRC <> 0.
    "删除失败

  ELSE.
    "删除成功
  ENDIF.

*   断开FTP连接
  CALL FUNCTION 'FTP_DISCONNECT'
    EXPORTING
      handle = hdl.
*   断开RFC链接
  CALL FUNCTION 'RFC_CONNECTION_CLOSE'
    EXPORTING
      destination = dest
    EXCEPTIONS
      OTHERS      = 1.