as400不同服务器之间的文件导入

城市色彩

假设有一台服务器的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等，在开始以上的操作，就可以了。