FTP服务器文件重命名

*程序逻辑结构

*1. 查询FTP链接配置信息表获取源FTP及目标FTP登陆信息

*2. 建立源系统FTP链接

*3. 将源FTP服务器传输编码方式转换为ASCII

*4. 建立目标系统FTP链接

*5. 将目标FTP服务器传输编码方式转换为ASCII

*6. 将传输文件列表中源FTP目录下的源文件名重命名

*7. 关闭源FTP链接

*8. 关闭目标FTP链接

*9. 关闭RFC远程链接

配置表

参数

定义

查询获取登录信息

建立链接

转码

将传输文件列表中源FTP目录下的源文件名重命名

关闭源 链接

代码：

function zlm_frpmt_ftp_rename.

*"----------------------------------------------------------------------

*"*"Local Interface:

*"  IMPORTING

*"     REFERENCE(I_SOURCE_NAME) TYPE  CHAR50

*"     REFERENCE(I_NEW_NAME) TYPE  CHAR40

*"     REFERENCE(I_DES_NAME) TYPE  CHAR100

*"     REFERENCE(I_DEST) TYPE  CHAR10 OPTIONAL

*"  EXCEPTIONS

*"      FILE_IS_NOT_FOUND

*"      FTP_CONNECT_FAILD

*"      FTP_CHANGE_CODE_FAILD

*"      FTP_CLOSE_FAILD

*"      CAN_NOT_GET_CONNECTION_INFOR

*"      FTP_RUN_RENAME_COMMAND_FAILD

*"----------------------------------------------------------------------

*程序逻辑结构

*1. 查询FTP链接配置信息表获取源FTP及目标FTP登陆信息

*2. 建立源系统FTP链接

*3. 将源FTP服务器传输编码方式转换为ASCII

*4. 建立目标系统FTP链接

*5. 将目标FTP服务器传输编码方式转换为ASCII

*6. 将传输文件列表中源FTP目录下的源文件名重命名

*7. 关闭源FTP链接

*8. 关闭目标FTP链接

*9. 关闭RFC远程链接

*-----------------------------------------------------------------------

**************************工作区声明区域********************************

  types: begin of text,

         line(120) type c,

         end of text.

  data:

        l_wa_login        type zlm_login_detail.                        "FTP登陆信息配置结构

*        l_wa_file_list    TYPE zlm_file_list.                           "传输文件结构

***************************内表声明区域*********************************

  data:

        l_tab_result       type table of text with header line.         "返回文本

***************************变量声明区域*********************************

  data:

       l_handle_s         type i,                                       "源FTP连接句柄

       l_handle_d         type i,                                       "目标FTP连接句柄

       l_dest             type zlm_dest,

       l_str_length       type i,                                       "密码长度

       l_key              type i value 26101957,                        "关键字

       l_password(30)     type c.                                       "密码

  data:

       l_ftp_command(500) type c,                                      "ftp命令

       l_file_dir         type string,

       l_source_name      type string,                                 "源文件名

       l_new_name         type string.                                 "新文件名

***************************常量声明区域*********************************

  constants:

        con_ftp_command_rename(6) type c value 'rename',

        con_ascii(5)      type c value 'ascii'.

******************************程序逻辑区域******************************

*"---------------------------------------------------------------------*

*" 1. 查询FTP链接配置信息表获取源FTP及目标FTP登陆信息

*"---------------------------------------------------------------------*

  if i_dest is initial.                                             "如果输入参数不为空值

    l_dest = 'SAPFTPA'.

  else.

    l_dest = i_dest.

  endif.

  select single * from zlm_login_detail into l_wa_login

            where dest = l_dest.

  if sy-subrc <> 0.

    raise can_not_get_connection_infor.

  endif.

*"---------------------------------------------------------------------*

*" 2. 建立源系统FTP链接

*"---------------------------------------------------------------------*

  l_str_length = strlen( l_wa_login-s_password ).

  call function 'HTTP_SCRAMBLE'

    exporting

      source      = l_wa_login-s_password                               "密码

      sourcelen   = l_str_length                                        "长度

      key         = l_key                                               "关键字

    importing

      destination = l_password.                                         "密码

  call function 'FTP_CONNECT'

    exporting

      user            = l_wa_login-s_username                           "用户名

      password        = l_password                                      "密码

      host            = l_wa_login-s_hostip                             "IP地址

      rfc_destination = l_wa_login-dest                                 "RFC逻辑目标

    importing

      handle          = l_handle_s                                      "源FTP连接句柄

    exceptions

      not_connected   = 1.

  if sy-subrc <> 0.

    raise ftp_connect_faild.

  endif.

*"---------------------------------------------------------------------*

*" 3. 将源FTP服务器传输编码方式转换为ASCII

*"---------------------------------------------------------------------*

  call function 'FTP_COMMAND'

    exporting

      handle  = l_handle_s                                              "源FTP连接句柄

      command = con_ascii                                               "编码方式

    tables

      data    = l_tab_result                                            "返回文本

    exceptions

      others  = 1.

  if sy-subrc <> 0.

    raise ftp_change_code_faild.

  endif.

*"---------------------------------------------------------------------*

*" 4. 建立目标系统FTP链接

*"---------------------------------------------------------------------*

  l_str_length = strlen( l_wa_login-p_password ).

  call function 'HTTP_SCRAMBLE'

    exporting

      source      = l_wa_login-p_password                               "密码

      sourcelen   = l_str_length                                        "长度

      key         = l_key                                               "关键字

    importing

      destination = l_password.                                         "密码

  call function 'FTP_CONNECT'

    exporting

      user            = l_wa_login-p_username                           "用户名

      password        = l_password                                      "密码

      host            = l_wa_login-p_hostip                             "IP地址

      rfc_destination = l_wa_login-dest                                 "RFC逻辑目标

    importing

      handle          = l_handle_d                                      "目标FTP连接句柄

    exceptions

      not_connected   = 1.

  if sy-subrc <> 0.

    raise ftp_connect_faild.

  endif.

*"---------------------------------------------------------------------*

*" 5. 将目标FTP服务器传输编码方式转换为ASCII

*"---------------------------------------------------------------------*

  call function 'FTP_COMMAND'

    exporting

      handle  = l_handle_d                                              "目标FTP连接句柄

      command = con_ascii                                               "编码方式

    tables

      data    = l_tab_result                                            "返回文本

    exceptions

      others  = 1.

  if sy-subrc <> 0.

    raise ftp_change_code_faild.

  endif.

*"---------------------------------------------------------------------*

*" 6. 将传输文件列表中源FTP目录下的源文件名重命名

*"---------------------------------------------------------------------*

*   读取FTP上文件路径

  select single des_addr into l_file_dir

    from zftp_config

    where des_name = i_des_name.

  if sy-subrc <> 0.

    raise file_is_not_found.

  endif.

*   拼接源文件全路径

  concatenate l_file_dir

              i_source_name into l_source_name.

*   拼接新文件全路径

  concatenate l_file_dir

              i_new_name    into l_new_name.

*   拼接ftp_command文件重命名命令

  concatenate con_ftp_command_rename

              l_source_name

              l_new_name

              into l_ftp_command

              separated by space.

*   启动FTP命令

  call function 'FTP_COMMAND'

    exporting

      handle  = l_handle_d                                              "目标FTP连接句柄

      command = l_ftp_command                                               "编码方式

    tables

      data    = l_tab_result                                            "返回文本

    exceptions

      others  = 1.

  if sy-subrc <> 0.

    raise ftp_run_rename_command_faild.

  endif.

*"---------------------------------------------------------------------*

*" 7. 关闭源FTP链接

*"---------------------------------------------------------------------*

  call function 'FTP_DISCONNECT'

    exporting

      handle = l_handle_s.                                              "源FTP连接句柄

*"---------------------------------------------------------------------*

*" 8. 关闭目标FTP链接

*"---------------------------------------------------------------------*

  call function 'FTP_DISCONNECT'

    exporting

      handle = l_handle_d.                                              "目标FTP连接句柄

*"---------------------------------------------------------------------*

*" 9. 关闭RFC远程链接

*"---------------------------------------------------------------------*

  call function 'RFC_CONNECTION_CLOSE'

    exporting

      destination = l_dest                                              "RFC远程连接

    exceptions

      others      = 1.

  if sy-subrc <> 0.

    raise ftp_close_faild.

  endif.

endfunction.