CMD        PROMPT(' 商品マスター一覧表 ')                          
             PARM       KWD(HNSFROM) TYPE(*CHAR) LEN(4) CHOICE(*PGM) +          
                          CHOICEPGM(QTROBJ/PGM106P) +                           
                          PROMPT(' 品種コード ')                                
             PARM       KWD(HNSEND) TYPE(*CHAR) LEN(4) DFT(9999) +              
                          CHOICE(*PGM) CHOICEPGM(QTROBJ/PGM106P)                
             PARM       KWD(SHFROM) TYPE(*CHAR) LEN(10) CHOICE(*PGM) +          
                          CHOICEPGM(QTROBJ/PGM106P) +                           
                          PROMPT(' 商品コード ')                                
             PARM       KWD(SHEND) TYPE(*CHAR) LEN(10) +                        
                          DFT(9999999999) CHOICE(*PGM) +                        
                          CHOICEPGM(QTROBJ/PGM106P)                             
             PARM       KWD(OUTPUT) TYPE(*CHAR) LEN(8) RSTD(*YES) +             
                          DFT(*PRINT) VALUES(* *PRINT) PROMPT(' 出力 ')