- 論壇徽章:
- 0
|
建立獨(dú)立子系統(tǒng)可用于特定用戶的交互式訪問，其交互式作業(yè)將被系統(tǒng)分配到該子系統(tǒng)中，與QINTER子系統(tǒng)不產(chǎn)生任何聯(lián)系。特定用戶可以在登陸到系統(tǒng)中后對QINTER子系統(tǒng)作開啟和關(guān)閉的操作而不影響自己的作業(yè)。
0、 創(chuàng)建庫
CRTLIB LIB(RMTLIB) TEXT('Remote Access Library')
1、 創(chuàng)建作業(yè)描述
CRTDUPOBJ OBJ(QDFTJOBD) FROMLIB(QGPL) OBJTYPE(*JOBD)
TOLIB(RMTLIB) NEWOBJ(RMTJOBD)
2、 修改作業(yè)描述
CHGJOBD JOBD(RMTLIB/RMTJOBD) TEXT('Remote Job Description') RTGDTA(RMTACC)
3、 創(chuàng)建用戶
CRTUSRPRF USRPRF(REMOTE) USRCLS(*SECOFR)
TEXT('Remote Access User') JOBD(RMTLIB/RMTJOBD)
4、 創(chuàng)建CLASS
CRTCLS CLS(RMTLIB/RMTCLS) RUNPTY(20)
TEXT('Remote Access Class')
5、 創(chuàng)建SUBSYSTEM
CRTSBSD SBSD(RMTLIB/RMTSBS) POOLS((1 *BASE))
TEXT('Remote Access Subsystem')
6、 添加工作站入口
ADDWSE SBSD(RMTLIB/RMTSBS) WRKSTN(RMT*)
7、 創(chuàng)建作業(yè)隊(duì)列
CRTJOBQ JOBQ(RMTLIB/RMTJOBQ) TEXT('Remote Job Queue')
8、 添加作業(yè)隊(duì)列入口
ADDJOBQE SBSD(RMTLIB/RMTSBS) JOBQ(RMTLIB/RMTJOBQ)
MAXACT(*NOMAX)
9、 添加路由入口
ADDRTGE SBSD(RMTLIB/RMTSBS) SEQNBR(10) CMPVAL(RMTACC) PGM(QCMD) CLS(RMTLIB/RMTCLS)
10、 修改系統(tǒng)庫列表
CHGSYSVAL SYSVAL(QSYSLIBL)
VALUE('QSYS QSYS2 RMTLIB QHLPSYS QUSRSYS')
11、 退出系統(tǒng)
12、 將工作站ID修改為RMT01
13、 重新連接到系統(tǒng)
Sign On
System . . . . . : AS400SYS
Subsystem . . . . : RMTSBS
Display . . . . . : RMT01
User . . . . . . . . . . . . . .
Password . . . . . . . . . . . .
Program/procedure . . . . . . . .
Menu . . . . . . . . . . . . . .
Current library . . . . . . . . .
(C) COPYRIGHT IBM CORP. 1980, 1998.
注意：存在偶然情況，當(dāng)工作站ID設(shè)為RMTXX并重新連接到系統(tǒng)后，工作站仍然被系統(tǒng)分配到QINTER子系統(tǒng)中。這時(shí)請用以上用戶先登陸到系統(tǒng)中，然后執(zhí)行以下命令將交互式作業(yè)轉(zhuǎn)移到RMTSBS子系統(tǒng)中并退出系統(tǒng)。不改變工作站ID重新連接到系統(tǒng)，這時(shí)，工作站將被系統(tǒng)分配到RMTSBS子系統(tǒng)中。
方法1：
chgjobd jobd(rmtlib/rmtjobd) jobq(rmtlib/rmtjobq) 后測試將會生成正確的workstation device
之后再其改回來：
chgjobd jobd(rmtlib/rmtjobd) jobq(qgpl/qbatch)
方法2：
命令：tfrjob 轉(zhuǎn)移job到新sbs中，后退出，重登錄。 |
|
免費(fèi)注冊
發(fā)表于 2004-03-18 10:23
