CMD        PROMPT(' 仕入先マスター一覧表 ')                        
             PARM       KWD(SRFROM) TYPE(*CHAR) LEN(4) CHOICE(*PGM) +           
                          CHOICEPGM(QTROBJ/PGM106P) +                           
                          PROMPT(' 仕入先コード ')                              
             PARM       KWD(SREND) TYPE(*CHAR) LEN(4) DFT(9999) +               
                          CHOICE(*PGM) CHOICEPGM(QTROBJ/PGM106P)                
             PARM       KWD(OUTPUT) TYPE(*CHAR) LEN(8) RSTD(*YES) +             
                          DFT(*PRINT) VALUES(* *PRINT) PROMPT(' 出力 ')