CMD        PROMPT(' 注文書 FAX 送信 ')                             
             PARM       KWD(FROMSIR) TYPE(*CHAR) LEN(4) +                       
                          PROMPT(' 仕入先　　　　　から ')                      
             PARM       KWD(TOSIR) TYPE(*CHAR) LEN(4) +                         
                          DFT(9999) PROMPT(' 　　　　　　　　 +                 
                           まで ')                                              
             PARM       KWD(DATEFROM) TYPE(*DEC) LEN(8 0) +                     
                          PROMPT(' 発注日 (YYMMDD) 　　　から ')                
             PARM       KWD(DATEEND) TYPE(*DEC) LEN(8 0) +                      
                          DFT(99999999) PROMPT(' 　　　 +                       
                            (YYMMDD) 　　　まで ')                              
             PARM       KWD(OUTPUT) TYPE(*CHAR) LEN(6) RSTD(*YES) +             
                          DFT(*PRINT) VALUES(* *PRINT *FAX) +                   
                          PROMPT(' 出力 ')