CMD        PROMPT(' ユーザー待ち行列のクリヤー ')                  
             PARM       KWD(USRQ) TYPE(USRQ) MIN(1) +                           
                          PROMPT(' データ待ち行列 ')                            
 USRQ:       QUAL       TYPE(*NAME) LEN(10) MIN(1)                              
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +                        
                          SPCVAL((*LIBL) (*CURLIB)) +                           
                          PROMPT(' ライブラリー ')                              
             PARM       KWD(CLEAR) TYPE(*CHAR) LEN(10) RSTD(*YES) +             
                          DFT(*ALL) VALUES(*ALL *KEEP) +                        
                          PROMPT(' クリヤー ')