subsystem

建立保存子系统描述的库
crtlib mylib
建立子系统描述
CRTSBSD SBSD(myLIB/mySBS) POOLS((1 *BASE )) 
建立作业队列
CRTJOBQ JOBQ(myLIB/myJOBQ)
维护作业队列入口
ADDJOBQE SBSD(myLIB/mySBS) JOBQ(myLIB/myJOBQ) MAXACT(10)
维护程序路由入口
ADDRTGE  SBSD(myLIB/mySBS) SEQNBR(1) CMPVAL(*ANY) PGM(QCMD)
启动子系统
STRSBS SBSD(myLIB/mySBS)
提交作业到特定jobq－> subsystem
SBMJOB CMD(WRKSYSSTS OUTPUT(*PRINT)) JOB(myJOB) JOBQ(myLIB/myJOBQ)

运行情况：
Opt  Subsystem/Job  User        Type  CPU %  Function        Status  
--   mySBS          QSYS        SBS      .0                   DEQW      
--     myJOB        QSECOFR     BCH      .3  CMD-WRKSYSSTS    RUN