建立独立子系统可用于特定用户的交互式访问，其交互式作业将被系统分配到该子系统中，与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 |
| 精华，顶一下！ |
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/