/* REXX */                                                                      
ARG DATASET .                                                                   
TRACE N                                                                         
SIGNAL ON ERROR NAME ERR_PROC                                                   
                                                                                
ADDRESS ISPEXEC "VGET (ZENVIR)"                                                 
  REL = SUBSTR(ZENVIR,6,3)                                                      
  VER = "V" || SUBSTR(REL,1,1) || "R" || SUBSTR(REL,3,1) || "M0"                
ADDRESS TSO                                                                     
 "ALLOC F(ISPLUSR) DA('ISP.SISPLOAD','KIMU.TEST.LOAD')                          
                   SHR REU"                                                     
 "ALLOC F(ISPPUSR) DA('DDMS.V1R2M3.ISPPLIB')                                    
                   SHR REU"                                                     
 "ALLOC F(SNAPDD)  DA(*)                                                        
                   SHR REU"                                                     
ADDRESS ISPEXEC                                                                 
 "LIBDEF ISPLLIB EXCLLIBR ID(ISPLUSR) COND"                                     
 "LIBDEF ISPPLIB LIBRARY  ID(ISPPUSR) COND"                                     
 "SELECT PGM(@RV#1) PARM("DATASET")"                                            
 "LIBDEF ISPLLIB EXCLLIBR"                                                      
 "LIBDEF ISPPLIB LIBRARY"                                                       
ADDRESS TSO                                                                     
 "FREE F(ISPLUSR,ISPPUSR,SNAPDD)"                                               
 EXIT                                                                           
                                                                                
ERR_PROC:                                                                       
  SAY                                                                           
  SAY                                                                           
  SAY '>> OS000 Initial Process Abnormal Ended ....      Bye !!'                
  SAY                                                                           
