如何有简便的方法能将类型为*PGM的OBJECT从一台主机拷至另一台主机？
（用SAVF保存OBJECT再用FTP或SNDNETF可实现，但比较麻烦）
有一个命令是SAVRSTOBJ其中有一个参数是REMOTE SYSTEM,不知能否实现上述要求？
| hanyu 回复于：2003-12-12 16:17:24 |
| savrstobj 或savrst 都可以，注意两边机器OS版本号。 |
| qingzhou 回复于：2003-12-12 18:10:24 |
| 如果能够提供自由上传软件的地址就好了,
价值不斐的Hulft for AS/400肯定能够让大家一睹她的风采! Hulft系列通讯软件能够提供AS/400与异种OS进行流畅地交换数据。 也能帮上这位兄弟的忙了！ |
| cpxm 回复于：2003-12-15 10:13:02 |
| 我用命令及参数如下：
SAVRSTOBJ OBJ(AAACL) LIB(TESTLIB) RMTLOCNAME(APPN.RM400) RM400 为远程主机名． 结果系统提示： Message . . . . : An error occurred during the SAVRSTOBJ operation. Cause . . . . . : The condition code of 1 indicates a specific error. The condition codes are the following: 1 -- An error occurred during the save operation. 2 -- An error occurred during the restore operation. 3 -- An error occurred during both the save and restore operations. 0 objects were saved, 0 objects were not saved. 0 objects were restored, 0 objects were not restored. Recovery . . . : See the previously listed messages in the job log, correct any errors and try the request again. 上一个log为： Message . . . . : ObjectConnect/400 internal error, function code 00, return code 88. Cause . . . . . : An error occurred during an ObjectConnect/400 communications request. Recovery . . . : Try the request again. See the Backup and Recovery - Basic book, SC41-4304 for an explanation of the codes. If the problem persists, report the problem using the Analyze Problem (ANZPRB) command. 请各位老大帮忙看看问题出在哪里，谢谢！ |
| yj2yq 回复于：2003-12-15 10:30:12 |
| 直接用FTP传过去不就完了吗 |
| yokel 回复于：2003-12-15 10:32:30 |
| 如果你想往WINDOWS上传东西,可以访问以下站点:
http://www.zipseries.com/ 挺好用的 |
| cpxm 回复于：2003-12-15 10:43:43 |
| 如题 |
| yj2yq 回复于：2003-12-15 10:45:49 |
| 为什么我的机器上没SAVRSTOBJ这条命令?我的版本是V4R4的. |
| cpxm 回复于：2003-12-15 16:31:19 |
| 如题 |
| qingzhou 回复于：2003-12-15 19:59:17 |
| [quote:148ecd700f]yj2yq
为什么我的机器上没SAVRSTOBJ这条命令?我的版本是V4R4的. [/quote:148ecd700f] 请检查一下你是否具备权限. 另外: [quote:148ecd700f]cpxm 如何有简便的方法能将类型为*PGM的OBJECT从一台主机拷至另一台主机？ （用SAVF保存OBJECT再用FTP或SNDNETF可实现，但比较麻烦） 有一个命令是SAVRSTOBJ其中有一个参数是REMOTE SYSTEM,不知能否实现上述要求？ [/quote:148ecd700f] 如果有兴趣的话不妨去调试一下我在"当你在AS/400之间传输数据..."上传的代码,看看结果是什么,并测试一下功能是否能够满足你的要求. |
| sunnyliang 回复于：2003-12-16 11:28:29 |
| [quote:e9ee0dc5b6="yj2yq"]为什么我的机器上没SAVRSTOBJ这条命令?我的版本是V4R4的.[/quote:e9ee0dc5b6]
好象需要使用SNA协议. |
| qingzhou 回复于：2003-12-16 13:01:36 |
| 哈！
是IBM APPC协议吧！ |
| qingzhou 回复于：2003-12-16 13:35:56 |
| 补充完整：
以太网连接iSeries(AS/400)的参数对照表 环境 &&产品:OS/400 问题 &&以太网连接iSeries(AS/400)的参数对照表 解答 这里假设系统AS400A，AS400B在同一个ID的网络中，如果在建立线描述时使用AutoCreate Controller *YES参数，在一台系统上建立控制器并作VERY ON操作，在另一台系统上会自动建立控 制器描述。 以太网连接系统AS400A，AS400B的参数对照表: AS/400 A AS/400 B DSPNETA (5) Local NETID (APPN) (3) Local CPNAME(AS400A) (8) Default Local Location(AS400A) Default Mode (Blank) DSPNETA (4) Local NETID (APPN) (2) Local CPNAME(AS400B) (9) Default Local Location(AS400B) Default Mode (Blank) CRTLINETH LIND(ETHERLINE) RSCRNAME(CMN01) MAXFRAME(1496) (7) ADPTADR(020000000001) EXCHID(*SYSGEN) ETHSTD(*ALL) TEXT('ETHERNET LINE') CRTLINETH LIND(ETHERLINE) RSCRNAME(CMN01) MAXFRAM(1496) (6) ADPTADR(0200000000002) EXCHID(*SYSGEN) ETHSTD(*ALL) TEXT('ETHERNET LINE') CRTCTLAPPC CTLD(APPNELAN) LINKTYPE(*LAN) ONLINE(*YES) (1) APPN(*YES) SWTLINLST(ETHERLINE) MAXFRAME(1496) (2) RMTCPNAME(AS400B) (4) RMTNETID(*NETATR) (6) ADPTADR(0200000000002) TEXT(*CTLD to AS/400B) CRTCTLAPPC CTLD(APPNELAN) LINKTYPE(*LAN) ONLINE(*YES) (1) APPN(*YES) SWTLINLST(ETHERLINE) MAXFRAME(1496) (3) RMTCPNAME(AS400A) (5) RMTNETID(*NETATR) (7) ADPTADR(0200000000001) TEST(*CTLD to AS/400A) CRTDEVAPPC DEVD(APPLANDEV) RMTLOCNAME(AS400B) ONLINE (*YES) (1) APPN(*YES) (8) LCLLOCNAME(*NETATR) (4) RMTNETID(*NETATR) CTL(APPNELAN) (10) MODE(*NETATR) TEXT(*DEVD to AS/400B) CRTDEVAPPC DEVD(APPLANDEV) RMTLOCNAME(AS400A) ONLINE(*YES) (1) APPN(*YES) (9) LCLOCNAME(*NETATR) (5) RMTNETID(*NETATR) CTL(APPNELAN) (10) MODE(*NETATR) TEXT(*DEVD to AS/400A) |
| qingzhou 回复于：2003-12-16 13:38:22 |
| 呀！！！
My Gard! 粘贴上去都成为什么样子了！ |
| qingzhou 回复于：2003-12-16 13:45:09 |
| 环境 &&产品:OS/400
问题 &&以太网连接iSeries(AS/400)的参数对照表 解答 这里假设系统AS400A，AS400B在同一个ID的网络中，如果在建立线描述时使用AutoCreate Controller *YES参数，在一台系统上建立控制器并作VERY ON操作，在另一台系统上会自动建立控制器描述。 <以太网连接系统AS400A，AS400B的参数对照表> AS/400 A DSPNETA (5) Local NETID (APPN) (3) Local CPNAME(AS400A) (8) Default Local Location(AS400A) Default Mode (Blank) AS/400 B DSPNETA (4) Local NETID (APPN) (2) Local CPNAME(AS400B) (9) Default Local Location(AS400B) Default Mode (Blank) AS/400 A CRTLINETH LIND(ETHERLINE) RSCRNAME(CMN01) MAXFRAME(1496) (7) ADPTADR(020000000001) EXCHID(*SYSGEN) ETHSTD(*ALL) TEXT('ETHERNET LINE') AS/400 B CRTLINETH LIND(ETHERLINE) RSCRNAME(CMN01) MAXFRAM(1496) (6) ADPTADR(0200000000002) EXCHID(*SYSGEN) ETHSTD(*ALL) TEXT('ETHERNET LINE') AS/400 A CRTCTLAPPC CTLD(APPNELAN) LINKTYPE(*LAN) ONLINE(*YES) (1) APPN(*YES) SWTLINLST(ETHERLINE) MAXFRAME(1496) (2) RMTCPNAME(AS400B) (4) RMTNETID(*NETATR) (6) ADPTADR(0200000000002) TEXT(*CTLD to AS/400B) AS/400 B CRTCTLAPPC CTLD(APPNELAN) LINKTYPE(*LAN) ONLINE(*YES) (1) APPN(*YES) SWTLINLST(ETHERLINE) MAXFRAME(1496) (3) RMTCPNAME(AS400A) (5) RMTNETID(*NETATR) (7) ADPTADR(0200000000001) TEST(*CTLD to AS/400A) AS/400 A CRTDEVAPPC DEVD(APPLANDEV) RMTLOCNAME(AS400B) ONLINE (*YES) (1) APPN(*YES) (8) LCLLOCNAME(*NETATR) (4) RMTNETID(*NETATR) CTL(APPNELAN) (10) MODE(*NETATR) TEXT(*DEVD to AS/400B) AS/400 B CRTDEVAPPC DEVD(APPLANDEV) RMTLOCNAME(AS400A) ONLINE(*YES) (1) APPN(*YES) (9) LCLOCNAME(*NETATR) (5) RMTNETID(*NETATR) CTL(APPNELAN) (10) MODE(*NETATR) TEXT(*DEVD to AS/400A) |
| qingzhou 回复于：2003-12-16 15:47:57 |
| 我对上面的问题补充说明一下，以免大家看了误解！
1、要使用OS/400中CL命令进行双机传输，2台AS/400必须同时具备IBM APPC协议。 2、得按照我上传的"以太网连接系统AS400A，AS400B的参数对照表>"进行双机配置，否则无法传输会出错，包括使用SAVRSTOBJ命令进行传输时。 |
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
