CMD        PROMPT(' 注文書メール送信 ')                            
             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 *MAIL) +                  
                          PROMPT(' 出力 ')                                      
             PARM       KWD(LOG) TYPE(*CHAR) LEN(4) RSTD(*YES) +                
                          DFT(*NO) VALUES(*YES *NO) PMTCTL(MAIL) +              
                          PROMPT(' ログ出力 ')                                  
 MAIL:       PMTCTL     CTL(OUTPUT) COND((*EQ *MAIL))