CMD        PROMPT('QUERY プロンプト作成 ')                         
             PARM       KWD(QRY) TYPE(QRY) PROMPT(QUERY)                        
 QRY:        QUAL       TYPE(*NAME) LEN(10) MIN(1) CHOICE(PNL0114)              
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +                        
                          SPCVAL((*LIBL) (*CURLIB)) +                           
                          PROMPT(' ライブラリー ')                              
             PARM       KWD(QRYTYPE) TYPE(*CHAR) LEN(7) RSTD(*YES) +            
                          DFT(*QRYDFN) VALUES(*QMQRY *QRYDFN) +                 
                          PROMPT('QRY タイプ ')                                 
             PARM       KWD(LANGUAGE) TYPE(*CHAR) LEN(4) RSTD(*YES) +           
                          DFT(*JPN) VALUES(*JPN *USA) +                         
                          PMTCTL(*PMTRQS) PROMPT(' 言語 ')                      
             PARM       KWD(APW) TYPE(APW) PMTCTL(*PMTRQS) +                    
                          PROMPT(' 書式ファイル ')                              
 APW:        QUAL       TYPE(*NAME) LEN(10) DFT(*NONE) SPCVAL((*NONE))          
             QUAL       TYPE(*NAME) LEN(10) DFT(*QRYLIB) +                      
                          SPCVAL((*QRYLIB)) PROMPT(' ライブラリー ')            
             PARM       KWD(APWFORM) TYPE(*NAME) DFT(*QRY) +                    
                          SPCVAL((*QRY)) PMTCTL(*PMTRQS) +                      
                          PROMPT(' ＡＰＷ書式 ')                                
             PARM       KWD(FORMSIZE) TYPE(FORMSIZE) PMTCTL(*PMTRQS) +          
                          PROMPT(' 用紙サイズ ')                                
 FORMSIZE:   ELEM       TYPE(*INT2) DFT(66) RANGE(1 255) +                      
                          PROMPT(' 用紙の長さ ')                                
             ELEM       TYPE(*INT2) RSTD(*YES) DFT(132) VALUES(80 +             
                          132 198) PROMPT(' 用紙の幅 ')                         
             PARM       KWD(OVRFLW) TYPE(*INT2) DFT(60) RANGE(1 255) +          
                          PMTCTL(*PMTRQS) PROMPT(' オーバーフロー行 ')          
             PARM       KWD(FORMTYPE) TYPE(*CHAR) LEN(10) DFT(*STD) +           
                          PMTCTL(*PMTRQS) PROMPT(' 用紙タイプ ')                
             PARM       KWD(CMD) TYPE(CMD) PGM(*YES) PMTCTL(*PMTRQS) +          
                          PROMPT(' コマンド ')                                  
 CMD:        QUAL       TYPE(*NAME) LEN(10) DFT(*QRY) SPCVAL((*QRY))            
             QUAL       TYPE(*NAME) LEN(10) DFT(*QRYLIB) +                      
                          SPCVAL((*QRYLIB)) PROMPT(' ライブラリー ')            
             PARM       KWD(SRCFILE) TYPE(SRCFILE) PMTCTL(*PMTRQS) +            
                          PROMPT(' 原始ファイル ')                              
 SRCFILE:    QUAL       TYPE(*NAME) LEN(10) DFT(QCMDSRC)                        
             QUAL       TYPE(*NAME) LEN(10) DFT(QGPL) +                         
                          SPCVAL((*LIBL) (*CURLIB)) +                           
                          PROMPT(' ライブラリー ')                              
             PARM       KWD(SRCMBR) TYPE(*NAME) LEN(10) DFT(*QRY) +             
                          SPCVAL((*QRY)) PMTCTL(*PMTRQS) +                      
                          PROMPT(' 原始メンバー ')                              
             PARM       KWD(PGM) TYPE(PGM) PGM(*YES) PMTCTL(*PMTRQS) +          
                          PROMPT(' コマンドを処理するプログラム ')              
 PGM:        QUAL       TYPE(*NAME) LEN(10) DFT(*QRYCL) +                       
                          SPCVAL((*QRY) (*QRYCL))                               
             QUAL       TYPE(*NAME) LEN(10) DFT(*QRYLIB) +                      
                          SPCVAL((*QRYLIB)) PROMPT(' ライブラリー ')            
             PARM       KWD(QCLSRC) TYPE(QCLSRC) PMTCTL(*PMTRQS) +              
                          PROMPT(' 原始ファイル ')                              
 QCLSRC:     QUAL       TYPE(*NAME) LEN(10) DFT(QCLSRC)                         
             QUAL       TYPE(*NAME) LEN(10) DFT(QGPL) +                         
                          SPCVAL((*LIBL) (*CURLIB)) +                           
                          PROMPT(' ライブラリー ')                              
             PARM       KWD(CLPMBR) TYPE(*NAME) LEN(10) DFT(*QRYCL) +           
                          SPCVAL((*QRY) (*QRYCL)) PMTCTL(*PMTRQS) +             
                          PROMPT(' 原始メンバー ')                              
             PARM       KWD(AUT) TYPE(*CHAR) LEN(10) RSTD(*YES) +               
                          DFT(*LIBCRTAUT) VALUES(*LIBCRTAUT *USE +              
                          *ALL *CHANGE *EXCLUDE) PMTCTL(*PMTRQS) +              
                          PROMPT(' 権限 ')