假设有一台服务器的IP地址为:192.168.0.40(服务器一),另一台的是:192.168.2.16(服务器二),现在要将服务器一的某个库下(zrplib1)的文件(QDSPSRC)导入到服务器二的某个库(zrplib2)下。
第一步:在服务器一创建一个*savf类型的文件,执行命令"crtsavf",在弹出的窗口中个参数的设置如下
1) Savefile zdspsrc /*自己取的名,在后面的savobj中用到此文件*/
2) Library QGPL /*服务器一下QGPL库*/
第二步:在服务器一中,把要复制的文件(QSDPSRC)保存到步骤一创建的文件中.执行"savobj"命令,在弹出的窗口中参数的设置如下.
1) Objects QDSPSRC /*要复制的文件名*/
2) Library zrplib1 /*要复制的文件所在的库*/
3) Device *savf
4) Savefile zdspsrc /*复制到此文件下*/
5) Library QGPL /*文件zdspsrc所在的库、服务器一下QGPL库*/
注意:在此步骤中,按下F10,有一个重要的参数,Target release *CURRENT /*关于版本,如果从5.2版本->5.4版本,默认值就可以了,如果从5.4版本->5.2版本,需要设置成V5R2MO 按下F4会有提示*/
第三步:在程序的运行中,输入"cmd",访问服务器一,并把zrplib的QGPL库下的文件zdspsrc导出到AS400客户端的PC某个盘(比如C:\自己取的文件名)上.
1)输入命令:ftp 192.168.0.40
2) 输入用户名和密码
3)输入"bin" /*转换为二进制*/
4)输入get QGPL/zdspsrc c:\zzzzsrc
5)最后输入"bye"
第四步:在服务器二上创建一个空的savf文件,执行命令"crtsavf",参数设置
1)Object abcsrc /*名字可以随便取*/
2) Library QGPL /*服务器二下QGPL库*/
第五步:在运行dos下(和第三步一样)访问服务器二,把刚才从导出到本地PC的C:\zzzzsrc的文件复制到服务器二的QGPL库下的abcsrc上。
1)ftp 192.168.2.16
2) 输入用户名和密码
3)输入"bin" /*转换为二进制*/
4)输入put c:\zzzzsrc QGPL/abcsrc
5)最后输入"bye"
第六步:在服务器二下,执行"rstobj"命令,参数设置
1) Object QDSPSRC /*在服务器一的要复制的文件名*/
2) Saved Library zrplib1
3) Device *savf
4) Save file abcsrc
5) Library QGPL /*服务器二下QGPL库*/
6)按下F10,PageDown,在额外参数中,有个重要的参数,Restor to Library zrplib2
注意:如果此时zrplib2库下已经存在有QDSPSRC文件名,则无法Restor成功,要解决此问题,可以在复制开始之前,修改zrplib1下QDSPSRC的名称,比如改成ZDSPSRC等,在开始以上的操作,就可以了。