CMD       PROMPT(' 物理ファイル様式の変更 ')                       
             PARM       KWD(FILE) TYPE(FILE)  KEYPARM(*YES) +                   
                          PROMPT(' 物理ファイル ')                              
 FILE:       QUAL       TYPE(*NAME) LEN(10) SPCVAL((*ALL))                      
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +                        
                          SPCVAL((*LIBL)) PROMPT(' ライブラリー ')              
             PARM       KWD(FILLIB) TYPE(*NAME) LEN(10) DFT(*LIBL) +            
                          SPCVAL((*LIBL)) +                                     
                          PROMPT(' 置換えライブラリー ')                        
             PARM       KWD(SRCFILE) TYPE(SRCFILE) +                            
                          PROMPT(' 原始ファイル ')                              
 SRCFILE:    QUAL       TYPE(*NAME) LEN(10) DFT(QDDSSRC)                        
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +                        
                          SPCVAL((*LIBL)) PROMPT(' ライブラリー ')              
             PARM       KWD(SRCMBR) TYPE(*NAME) LEN(10) DFT(*FILE) +            
                          SPCVAL((*FILE)) +                                     
                          PROMPT(' 原始メンバー ')                              
             PARM       KWD(RCDLEN) TYPE(*CHAR) LEN(5) +                        
                          PROMPT('DDS がない場合のレコード長 ')                 
             PARM       KWD(IGCDTA) TYPE(*CHAR) LEN(4) RSTD(*YES) +             
                          DFT(*NO) VALUES(*YES *NO) +                           
                          PROMPT(' ユーザー指定の漢字データ ')                  
             PARM       KWD(TEXT) TYPE(*CHAR) LEN(50) +                         
                          DFT(*SRCMBRTXT) SPCVAL((*SRCMBRTXT) +                 
                          (*BLANK)) +                                           
                          PROMPT(' テキスト '' 記述 ''')                        
             PARM       KWD(MAXMBRS) TYPE(*CHAR) LEN(6) DFT(1) +                
                          SPCVAL((*NOMAX) (1)) +                                
                          PROMPT(' メンバーの最大数 ')                          
             PARM       KWD(MAINT) TYPE(*CHAR) LEN(6) RSTD(*YES) +              
                          DFT(*IMMED) VALUES(*IMMED *DLY *REBLD) +              
                          PROMPT(' アクセス・パスの保守 ')                      
             PARM       KWD(SIZE) TYPE(*CHAR) LEN(1) DSPINPUT(*NO) +            
                          PROMPT(' メンバー・サイズ ')                          
             PARM       KWD(INZ) TYPE(*CHAR) LEN(10) DFT(10000) +               
                          SPCVAL((*NOMAX 16777215)) PROMPT('  +                 
                           初期レコード数 ')                                    
             PARM       KWD(ADDRCD) TYPE(*CHAR) LEN(5) PROMPT('  +              
                           増分レコード数 ')                                    
             PARM       KWD(MAXADD) TYPE(*CHAR) LEN(5) PROMPT('  +              
                           最大増分値 ')                                        
             PARM       KWD(CONTIG) TYPE(*CHAR) LEN(4) RSTD(*YES) +             
                          DFT(*NO) VALUES(*YES *NO) +                           
                          PROMPT(' 連続記憶域 ')                                
             PARM       KWD(LVLCHK) TYPE(*CHAR) LEN(4) RSTD(*YES) +             
                          DFT(*NO) VALUES(*YES *NO) +                           
                          PROMPT(' レコード様式レベルの検査 ')                  
             PARM       KWD(AUT) TYPE(*CHAR) LEN(10) RSTD(*YES) +               
                          DFT(*LIBCRTAUT) VALUES(*LIBCRTAUT *ALL +              
                          *CHANGE *EXCLUSE *USE) +                              
                          PROMPT(' 権限 ')