CMD        PROMPT(' 請求書の発行 ')                                
             PARM       KWD(DATE) TYPE(*DEC) LEN(6 0) PROMPT(' 締日 ')          
             PARM       KWD(OUTQ) TYPE(*CHAR) LEN(10) +                         
                          PROMPT(' 印刷待ち行列 ')