PGM PARM(&SBS &RUNPTY)                                                          
             DCL        VAR(&SBS) TYPE(*CHAR) LEN(10) /* +                      
                          サブシステム名 */                                   
             DCL        VAR(&RUNPTY) TYPE(*CHAR) LEN(2) /* +                    
                          実行優先順位 */                                     
             CRTSBSD    SBSD(QGPL/&SBS) POOLS((1 *BASE))                        
             CRTJOBQ    JOBQ(QGPL/&SBS)                                         
             ADDJOBQE   SBSD(&SBS) JOBQ(&SBS) MAXACT(*NOMAX)                    
             CRTCLS     CLS(QGPL/&SBS) RUNPTY(&RUNPTY)                          
             ADDRTGE    SBSD(&SBS) SEQNBR(9999) CMPVAL(*ANY) +                  
                          PGM(QCMD) CLS(&SBS)                                   
ENDPGM