CMD        PROMPT(' オープン・データ ')                            
             PARM       KWD(FILE) TYPE(FILE1) +                                 
                          PROMPT(' ファイル ')                                  
             PARM       KWD(MBR) TYPE(*NAME) LEN(10) DFT(*FIRST) +              
                          SPCVAL((*FIRST)) PROMPT(' メンバー ')                 
 FILE1:      QUAL       TYPE(*NAME) LEN(10) DFT(*SAME) +                        
                          SPCVAL((*SAME)) CHOICE(*PGM) +                        
                          CHOICEPGM(RDALIB/SELFILCL)                            
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +                        
                          SPCVAL((*LIBL)) PROMPT(' ライブラリー ')              
 DFNEXC:     PMTCTL     CTL(FILE) COND((*EQ '*SAME     '))                      
             PARM       KWD(OPNDFN) TYPE(OPNDFN) PMTCTL(DFNEXC) +               
                          PROMPT('OPNDTA 定義 ')                                
 OPNDFN:     QUAL       TYPE(*NAME) LEN(10) DFT(*NONE) +                        
                          SPCVAL((*NONE)) CHOICE(*PGM) +                        
                          CHOICEPGM(RDALIB/SELOPNCL)                            
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +                        
                          SPCVAL((*LIBL) (*CURLIB))        +                    
                          PROMPT(' ライブラリー ')                              
             PARM       KWD(OPNTXT) TYPE(*CHAR) LEN(50) DFT(*BLANK) +           
                          PMTCTL(DFNEXC) +                                      
                          PROMPT(' テキスト '' 記述 ''')                        
             PARM       KWD(OPNAUT) TYPE(*NAME) LEN(10) +                       
                          DFT(*LIBCRTAUT) SPCVAL((*LIBCRTAUT) +                 
                          (*CHANGE) (*ALL) (*EXCLUDE) (*USE)) +                 
                          PMTCTL(DFNEXC)  PROMPT(' 権限 ')