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 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') 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)
文章来源于领测软件测试网 https://www.ltesting.net/
