如何建立QINTER外可用于交互式访问的独立子系统RMTSBS？

MILY: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-bidi-font-family: 宋体; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA">建立独立子系统可用于特定用户的交互式访问，其交互式作业将被系统分配到该子系统中，与QINTER子系统不产生任何联系。特定用户可以在登陆到系统中后对QINTER子系统作开启和关闭的操作而不影响自己的作业。

0、 创建库

CRTLIB LIB(RMTLIB) TEXT('Remote Aclearcase/" target="_blank" >ccess 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') SPCAUT(*ALLOBJ) 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*) AT(*ENTER)

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(QSYS/QCMD) CLS(RMTLIB/RMTCLS)

10、 修改系统库列表

CHGSYSVAL SYSVAL(QSYSLIBL) VALUE('QSYS QSYS2 RMTLIB QHLPSYS QUSRSYS')

11、 启动子系统RMTSBS

STRSBS SBSD(RMTLIB/RMTSBS) 

12、退出系统

13、 将工作站ID修改为RMT01

14、 重新连接到系统:

15、命令行执行WRKACTJOB，发现RMT01这个JOB已经在RMTSBS子系统下。

☆注意：存在偶然情况，当工作站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 转移JOBQ到新RMTSBS中，后退出，重登录。

 ===>TFRJOB　JOBQ(RMTLIB/RMTJOBQ)　RTGDTA(RMTACC)