*&---------------------------------------------------------------------* *&      Form  frm_ftp_command
*&---------------------------------------------------------------------* *      FTP通用Form
*----------------------------------------------------------------------* *  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------* form frm_get_dir using pv_dir.
select single dir into pv_dir from zftp_conf where sysid=const_sysid. endform.                    "frm_get_dir
*&---------------------------------------------------------------------* *&      Form  frm_ftp_command
*&---------------------------------------------------------------------* *      FTP通用Form
*----------------------------------------------------------------------* *  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------* form frm_ftp_command tables pt_ftpresult structure line
using pv_cmd type char100
pv_handle like sy-tabix.
*连接FTP服务器
基于tcpip协议的文件传输命令是
if pv_handle is initial.
data:lw_zftp_conf like zftp_conf.
select single*into lw_zftp_conf from zftp_conf
where sysid=const_sysid.
do3times.
call function'FTP_CONNECT'
exporting
user            =lw_zftp_conf-ftpus  "USER
password        =lw_zftp_conf-ftppw  "PASSWORD
host            =lw_zftp_conf-ftpad  "IP
rfc_destination='SAPFTPA'          "DEFAULT
importing
handle          =pv_handle
exceptions
not_connected  =1
others          =  2.
if sy-subrc=0.
exit.
endif.
enddo.
if sy-subrc<>0.
clear pt_ftpresult.
pt_ftpresult-line='Error-连接FTP服务器失败！'.
append pt_ftpresult.
exit.
endif.
endif.
*执行FTP命令
if pv_cmd='quit'.
call function'FTP_DISCONNECT'
exporting
handle=pv_handle.
exit.
endif.
call function'FTP_COMMAND'
exporting
handle        =pv_handle
command      =pv_cmd
tables
data          =pt_ftpresult
exceptions
tcpip_error  =1
command_error=2
data_error    =3
others        =  4.
if sy-subrc<>0.
pt_ftpresult='Error'.
case pv_cmd(3).
when'put'.
clear pt_ftpresult.
pt_ftpresult-line='Error-文件传输中出现错误!'.
when'asc'.
clear pt_ftpresult.
pt_ftpresult-line=  'Error-改变FTP传输模式出现错误!'.
endcase.
append pt_ftpresult.
exit.
endif.
endform.                    "frm_ftp_command 相关函数：
FTP_CONNECT
FTP_COMMAND      执行FTP操作命令，命令必须小写
FTP_SERVER_TO_R3 将FTP上制定文本文件数据读取到内表
相关命令：
FTP是用来在Internet上上传或者下载软件的软件。以下是对命令行方式FTP软件
的介绍。
FTP命令是Internet用户使用最频繁的命令之一，不论是在DOS还是UNIX操作系统
下使用FTP，都会遇到大量的FTP内部命令。熟悉并灵活应用FTP的内部命令，可
以大大方便使用者，并收到事半功倍之效。
FTP的命令行格式为：ftp -v -d -i -n -g [主机名] ，
其中-v 显示远程服务器的所有响应信息；
-n 限制ftp的自动登录，即不使用；
-n etrc文件；
-d 使用调试方式；
-g 取消全局文件名。
ftp使用的内部命令如下(中括号表示可选项):
1.![cmd[args]]：在本地机中执行交互shell，exit回到ftp环境，如：!ls*.zi p.
2.$ macro-ame[args]：执行宏定义macro-name.
3.account[password]：提供登录远程系统成功后访问系统资源所需的补充口令
。
4.append local-file[remote-file]：将本地文件追加到远程系统主机，若未指定远程系统文件名，则使用本地文件名。
5.ascii：使用ascii类型传输方式。
6.bell：每个命令执行完毕后计算机响铃一次。
7.bin：使用二进制文件传输方式。
8.bye：退出ftp会话过程。
9.case：在使用mget时，将远程主机文件名中的大写转为小写字母。
10.cd remote-dir：进入远程主机目录。
11.cdup：进入远程主机目录的父目录。
12.chmod mode file-name：将远程主机文件file-name的存取方式设置为mode，如：chmod 777 a.out 。
13.close：中断与远程服务器的ftp会话(与open对应)。
<：使用asscii方式传输文件时，将回车换行转换为回行。
15.delete remote-file：删除远程主机文件。
16.debug[debug-value]：设置调试方式，显示发送至远程主机的每条命令，如
：deb up 3，若设为0，表示取消debug。
17.dir[remote-dir][local-file]：显示远程主机目录，并将结果存入本地文件local-file。
18.disconnection：同close。
19.form format：将文件传输方式设置为format，缺省为file方式。
< remote-file[local-file]：将远程主机的文件remote-file传至本地硬盘的local-file。
21.glob：设置mdelete，mget，mput的文件名扩展，缺省时不扩展文件名，同命
令行的-g参数。
22.hash：每传输1024字节，显示一个hash符号(#)。
23.help[cmd]：显示ftp内部命令cmd的帮助信息，如：help get。
24.idle[seconds]：将远程服务器的休眠计时器设为[seconds]秒。
25.image：设置二进制传输方式(同binary)。
26.lcd[dir]：将本地工作目录切换至dir。
27.ls[remote-dir][local-file]：显示远程目录remote-dir，并存入本地文件local-file。
28.macdef macro-name：定义一个宏，遇到macdef下的空行时，宏定义结束。
29.mdelete[remote-file]：删除远程主机文件。
30.mdir remote-files local-file：与dir类似，但可指定多个远程文件，如：mdir *.o.*.zipoutfile 。
< remote-files：传输多个远程文件。
32.mkdir dir-name：在远程主机中建一目录。
33.mls remote-file local-file：同nlist，但可指定多个文件名。
36.mput local-file：将多个文件传输至远程主机。
的时间更近，则重传该文件。
38.nlist[remote-dir][local-file]：显示远程主机目录的文件清单，并存入本地硬盘的local-file。
件中的某些字符相互转换，
如：nmap $1.$2.$3[$1，$2].[$2，$3]，则传输文件a1.a2.a3时，文件名变为a 1，a2。该命令特别适用于远程主机为非UNIX 机的情况。
41.open host[port]：建立指定ftp服务器连接，可指定连接端口。
42.passive：进入被动传输方式。
43.prompt：设置多个文件传输时的交互提示。
44.proxy ftp-cmd：在次要控制连接中，执行一条ftp命令，该命令允许连接两
个ftp服务器，以在两个服务器间传输文件。第一条ftp命令必须为open，以首先
建立两个服务器间的连接。
45.put local-file[remote-file]：将本地文件local-file传送至远程主机。
46.pwd：显示远程主机的当前工作目录。
47.quit：同bye，退出ftp会话。
48.quote arg1，：将参数逐字发至远程ftp服务器，如：quote syst.
< remote-file[local-file]：类似于get，但若local-file存在，则从上次传输中断处续传。
haixu.li 于2012/5/31 17:20 修改FTP通用操作
2012年5月31日
17:13
上次传输中断处续传。
51.rhelp[cmd-name]：请求获得远程主机的帮助。
52.rstatus[file-name]：若未指定文件名，则显示远程主机的状态，否则显示文
件状态。
57.runique：设置文件名唯一性存储，若文件存在，则在原文件后加后缀...1，
.2等。
58.send local-file[remote-file]：同put。
59.sendport：设置PORT命令的使用。
60.site arg1，：将参数作为SITE命令逐字发送至远程ftp主机。
61.size file-name：显示远程主机文件大小，如：site idle 7200。
62.status：显示当前ftp状态。
63.struct[struct-name]：将文件传输结构设置为struct-name，缺省时使用st ream结构。
64.sunique：将远程主机文件名存储设置为唯一(与runique对应)。
65.system：显示远程主机的操作系统类型。
<：将文件传输类型设置为TENEX机的所需的类型。
67.tick：设置传输时的字节计数器。
e binary，设置二进制传输方式。
70.umask[newmask]：将远程服务器的缺省umask设置为newmask，如：umask 3。
71.user user-name[password][account]：向远程主机表明自己的身份，需要口令时，必须输入口令，如：user anonymous my@email。
72.verbose：同命令行的-v参数，即设置详尽报告方式，ftp服务器的所有响应
都将显示给用户，缺省为on.
73.?[cmd]：同help.

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。