CMD        PROMPT(' 商品明細表 ')                                  
             PARM       KWD(SHSCOD01) TYPE(*CHAR) LEN(0004) +                   
                          DFT(    ) +                                           
                          CHOICE(PNL0075) +                                     
                          PROMPT(' 品種 ｺｰﾄﾞ')                                  
             PARM       KWD(SHSCOD02) TYPE(*CHAR) LEN(0004) +                   
                          DFT(9999) +                                           
                          CHOICE(PNL0076)                                       
             PARM       KWD(SHCODE01) TYPE(*CHAR) LEN(0010) +                   
                          DFT(          ) +                                     
                          CHOICE(PNL0075) +                                     
                          PROMPT(' 商品 ｺｰﾄﾞ')                                  
             PARM       KWD(SHCODE02) TYPE(*CHAR) LEN(0010) +                   
                          DFT(9999999999) +                                     
                          CHOICE(PNL0076)                                       
             PARM       KWD(OUTPUT) TYPE(*CHAR) LEN(8) RSTD(*YES) +             
                          DFT(*PRINT) VALUES(*PRINT * *OUTFILE) +               
                          PROMPT(' 出力 ')                                      
             PARM       KWD(PRTDEV) TYPE(*NAME) LEN(10) +                       
                          SPCVAL((*SAME) (*USRPRF) (*SYSVAL) +                  
                          (*WRKSTN)) PMTCTL(*PMTRQS) +                          
                          PROMPT(' 印刷装置 ')                                  
             PARM       KWD(OUTQ) TYPE(OUTQ) PMTCTL(*PMTRQS) +                  
                          PROMPT(' 出力待ち行列 ')                              
 OUTQ:       QUAL       TYPE(*NAME) LEN(10) SPCVAL((*DEV)) MIN(1)               
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +                        
                          SPCVAL((*LIBL) (*CURLIB)) +                           
                          PROMPT(' ライブラリー ')                              
             PARM       KWD(JOBQ) TYPE(JOBQ)                                    
 JOBQ:       ELEM       TYPE(*NAME) LEN(1) RSTD(*YES) DFT(N) +                  
                          VALUES(Y N) CHOICE(PNL0074) +                         
                          PROMPT(' ジョブ待ち行列へ投入しますか ')              
             ELEM       TYPE(JOBD) +                                            
                          PROMPT(' ジョブ待ち行列 ')                            
 JOBD:       QUAL       TYPE(*NAME) LEN(10) SPCVAL((*JOBD)) MIN(1)              
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +                        
                          SPCVAL((*LIBL) (*CURLIB)) +                           
                          PROMPT(' ライブラリー ')                              
             PARM       KWD(RUNPTY) TYPE(*INT2) DFT(30) +                       
                          PMTCTL(*PMTRQS) PROMPT(' 実行優先順位 ')              
 OUTF:       PMTCTL     CTL(OUTPUT) COND((*EQ '*OUTFILE'))                      
             PARM       KWD(OUTFILE) TYPE(OUTFILE) MIN(0) +                     
                          PMTCTL(OUTF) +                                        
                          PROMPT(' 出力を受け取るファイル ')                    
 OUTFILE:    QUAL       TYPE(*NAME) LEN(10) MIN(1)                              
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +                        
                          SPCVAL((*LIBL) (*CURLIB)) +                           
                          PROMPT(' ライブラリー ')                              
             PARM       KWD(OUTMBR) TYPE(OUTMBR) MAX(1) PMTCTL(OUTF) +          
                          PROMPT(' 出力メンバー・オプション ')                  
 OUTMBR:     ELEM       TYPE(*NAME) LEN(10) DFT(*FIRST) +                       
                          SPCVAL((*FIRST)) PROMPT(' メンバー ')                 
             ELEM       TYPE(*CHAR) LEN(8) RSTD(*YES) DFT(*REPLACE) +           
                          VALUES(*REPLACE *ADD) +                               
                          PROMPT(' レコードの置換または追加 ')