CMD        PROMPT(' 納期問合せ一覧表 ')                            
             PARM       KWD(TAFROM) TYPE(*CHAR) LEN(4) CHOICE(*PGM) +           
                          CHOICEPGM(MYLIB/DSPRANGE) +                           
                          PROMPT(' 担当者コード ')                              
             PARM       KWD(TAEND) TYPE(*CHAR) LEN(4) DFT(9999) +               
                          CHOICE(*PGM) CHOICEPGM(MYLIB/DSPRANGE)                
             PARM       KWD(DATFROM) TYPE(*DEC) LEN(8 0) +                      
                          CHOICE(*PGM) CHOICEPGM(MYLIB/DSPRANGE) +              
                          PROMPT(' 日付 ')                                      
             PARM       KWD(DATEND) TYPE(*DEC) LEN(8 0) +                       
                          DFT(99999999) CHOICE(*PGM) +                          
                          CHOICEPGM(MYLIB/DSPRANGE)                             
             PARM       KWD(OUTPUT) TYPE(*CHAR) LEN(8) RSTD(*YES) +             
                          DFT(*PRINT) VALUES(* *PRINT) PROMPT(' 出力 ')