上一篇：V5R3 CL Programm...

原创：建立QINTER外可用于交互式访问的独立子系统

建立独立子系统可用于特定用户的交互式访问，其交互式作业将被系统分配到该子系统中，与QINTER子系统不产生任何联系。特定用户可以在登陆到系统中后对QINTER子系统作开启和关闭的操作而不影响自己的作业。

0、创建库
CRTLIB LIB(RMTLIB) TEXT(Remote Access Library)

1、创建作业描述
CRTDUPOBJ OBJ(QDFTJOBD) FROMLIB(QGPL) OBJTYPE(*JOBD)
TOLIB(RMTLIB) NEWOBJ(RMTJOBD)

2、修改作业描述
CHGJOBD JOBD(RMTLIB/RMTJOBD) TEXT(Remote Job Description) RTGDTA(RMTACC)

3、创建用户
CRTUSRPRF USRPRF(REMOTE) USRCLS(*SECOFR)
TEXT(Remote Access User) JOBD(RMTLIB/RMTJOBD)

4、创建CLASS
CRTCLS CLS(RMTLIB/RMTCLS) RUNPTY(20)
TEXT(Remote Access Class)

5、创建SUBSYSTEM
CRTSBSD SBSD(RMTLIB/RMTSBS) POOLS((1 *BASE))
TEXT(Remote Access Subsystem)

6、添加工作站入口
ADDWSE SBSD(RMTLIB/RMTSBS) WRKSTN(RMT*)

7、创建作业队列
CRTJOBQ JOBQ(RMTLIB/RMTJOBQ) TEXT(Remote Job Queue)

8、添加作业队列入口
ADDJOBQE SBSD(RMTLIB/RMTSBS) JOBQ(RMTLIB/RMTJOBQ)
MAXACT(*NOMAX)

9、添加路由入口
ADDRTGE SBSD(RMTLIB/RMTSBS) SEQNBR(10) CMPVAL(RMTACC) PGM(QCMD) CLS(RMTLIB/RMTCLS)

10、修改系统库列表
CHGSYSVAL SYSVAL(QSYSLIBL)
VALUE(QSYS      QSYS2     RMTLIB    QHLPSYS    QUSRSYS)

11、退出系统

12、将工作站ID修改为RMT01

13、重新连接到系统
                                   Sign On
                                               System  . . . . . :   AS400SYS
                                               Subsystem . . . . :   RMTSBS
                                               Display . . . . . :   RMT01

                User  . . . . . . . . . . . . . .
                Password  . . . . . . . . . . . .
                Program/procedure . . . . . . . .
                Menu  . . . . . . . . . . . . . .
                Current library . . . . . . . . .




                                        (C) COPYRIGHT IBM CORP. 1980, 1998.

注意：存在偶然情况，当工作站ID设为RMTXX并重新连接到系统后，工作站仍然被系统分配到QINTER子系统中。这时请用以上用户先登陆到系统中，然后执行以下命令将交互式作业转移到RMTSBS子系统中并退出系统。不改变工作站ID重新连接到系统，这时，工作站将被系统分配到RMTSBS子系统中。

方法1：
chgjobd jobd(rmtlib/rmtjobd) jobq(rmtlib/rmtjobq) 后测试将会生成正确的workstation device

之后再其改回来：
chgjobd jobd(rmtlib/rmtjobd) jobq(qgpl/qbatch)

方法2：
命令：tfrjob 转移job到新sbs中，后退出，重登录。

pcas400 回复于：2004-03-18 10:34:06

建议版主设为精华。

zzzddd 回复于：2004-03-19 11:07:48

照你的说法作了，但是
CPC1117 Routing data does not match routing entry.
我两面都设成RMTACC了阿！

971726 回复于：2004-03-19 11:39:47

要限制终端进入qinter,可以通过wse限制呀，不必麻烦tfrjob!

zzzddd 回复于：2004-03-19 11:46:57

我的问题没人回答吗？
我加了一条9999的 *ANY就进去了，可是和RMTACC好像没什么关系阿！

971726 回复于：2004-03-19 12:07:54

jobd,sbsd中的routing data要相互比较才能确定是否执行rtge中的程序。你若设定为*any,则表示任何值都可以。ol23书中有interactive job 执行步骤说明，可以参考！

zzzddd 回复于：2004-03-19 13:31:00

那为什么我两个设的匹配的，还是进不去？？
如果匹配了，他具体执行什么步骤呢？？

971726 回复于：2004-03-19 14:49:57

执行qcmd程序

zzzddd 回复于：2004-03-19 14:55:37

qcmd我也加的阿，但是好像没反应阿？
确报这个错！
CPC1117 Routing data does not match routing entry.

971726 回复于：2004-03-19 15:39:33

那就是不匹配嘛！确认一下！（我有张图形，不知咋贴上来给你看）

fh2001 回复于：2004-03-19 15:50:58

[quote:c7371da45d="zzzddd"]照你的说法作了，但是
CPC1117 Routing data does not match routing entry.
我两面都设成RMTACC了阿！[/quote:c7371da45d]

早上不在公司，刚看到，待检查一下再给你答复

zzzddd 回复于：2004-03-19 16:02:11

我搞定了！！
谢谢各位大哥！

fh2001 回复于：2004-03-19 16:22:13

[quote:20f8945345="zzzddd"]我搞定了！！
谢谢各位大哥！[/quote:20f8945345]

祝贺zzzddd 大大终于搞定！

补充一点，登录前先STRSBS RMTLIB/RMTSBS.

回答971726 大大：QINTER的WSE还是不改为好。用TFRJOB也很方便,只是第一次需要，以后就自动进入RMTSBS.
命令为：TFRJOB JOBQ(RMTLIB/RMTJOBQ) RTGDTA(RMTACC).

971726 回复于：2004-03-19 16:27:44

友情提示：若一个终端可在2个sbsd中登陆，终端会挂在最后启动的那个sbsd下！

zzzddd 回复于：2004-03-19 19:32:18

THX个位热心的弟兄！

riancy1106 回复于：2004-03-28 15:17:21

精华，顶一下！

最热门文章推荐：
>· x浏览器
>· 好用的浏览器
>· 网络营销与传统营销
>· 网络营销优势
>· serv
>· serv uftp
>· 磁盘配额管理
>· 批处理教程

下一篇：hanyu看过来，24小时交易的AS/400如何备份？

↓相关文章：