CMD        PROMPT(' パネル GRP 保管 ')                             
             PARM       KWD(GRP) TYPE(*GENERIC) LEN(10) +                       
                          SPCVAL((*ALL)) MAX(30) PROMPT(' パネル GRP')          
             PARM       KWD(OBJLIB) TYPE(*NAME) LEN(10) MIN(1) +                
                          PROMPT(' ライブラリー ')                              
             PARM       KWD(DEV) TYPE(*NAME) LEN(10) SPCVAL((*SAVF)) +          
                          PROMPT(' 装置 ')                                      
             PARM       KWD(SAVOBJ) TYPE(*CHAR) LEN(5) RSTD(*YES) +             
                          DFT(*BOTH) VALUES(*DFN *OBJ *BOTH) +                  
                          PROMPT(' オブジェトまたは定義 ')                      
             PARM       KWD(TGTRLS) TYPE(*CHAR) LEN(8) RSTD(*YES) +             
                          DFT(*CURRENT) VALUES(*CURRENT *PRV V2R2M0 +           
                          V2R3M0 V3R0M5 V3R1M0 V3R2M0 V3R6M0 V3R7M0 +           
                          V4R1M0) PROMPT(' 目的リリース ')                      
 SAVTAP:     PMTCTL     CTL(DEV) COND((*NE *SAVF))                              
             PARM       KWD(ENDOPT) TYPE(*CHAR) LEN(7) RSTD(*YES) +             
                          DFT(*REWIND) VALUES(*REWIND *LEAVE +                  
                          *UNLOAD) PMTCTL(SAVTAP) +                             
                          PROMPT(' テープ終了オプション ')                      
 SAVFIL:     PMTCTL     CTL(DEV) COND((*EQ *SAVF))                              
             PARM       KWD(SAVF) TYPE(SAVF) PMTCTL(SAVFIL) +                   
                          PROMPT(' 保管ファイル ')                              
SAVF:        QUAL       TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)                   
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +                        
                          SPCVAL((*LIBL) (*CURLIB)) EXPR(*YES) +                
                          PROMPT(' ライブラリー ')                              
             PARM       KWD(UPDHST) TYPE(*CHAR) LEN(4) RSTD(*YES) +             
                          DFT(*YES) VALUES(*YES *NO) PMTCTL(SAVFIL) +           
                          PROMPT(' 活動記録更新 ')