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

fh2001

建立独立子系统可用于特定用户的交互式访问，其交互式作业将被系统分配到该子系统中，与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

建议版主设为精华。

zzzddd

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

971726

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

zzzddd

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

971726

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

zzzddd

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

971726

执行qcmd程序

zzzddd

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

971726

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