How to copy a PANEXEC PANESRL library for testing?

Products

• Panvalet

Issue/Introduction

What is the proper procedure to copy a Panexec PANESRL library from one system to another for testing a new version of z/OS?

Environment

Release : 5.3

Component : Panexec 

Resolution

Option 1 - Use the IBM ADRDSSU Copy utility 

1)  Pre-allocate the PANESRL library on the target system:

//ALLOC   EXEC PGM=IEFBR14                        
//ALLOCD1  DD DSN=hlq.mlq.PEV53.PANESRL,
//       DISP=(NEW,CATLG,DELETE),                 
//       DCB=(RECFM=U,LRECL=0,BLKSIZE=32752),     
//       SPACE=(CYL,(PPP,,1),RLSE),               
//       UNIT=3390,VOL=SER=(xxxxxx)               
/*                                                

 

2)  On the Production system run the following ADRDSSU Copy job to copy the PANESRL library on the Production system to the pre-allocated library on the target system:

//DFDSSTR  EXEC PGM=ADRDSSU,REGION=200M               
//SYSPRINT DD SYSOUT=*                                
//INDD     DD DISP=OLD,UNIT=3390,VOL=SER=vvvvvv       << volser of the existing PANESRL library on the Production system
//OUTDD    DD DISP=OLD,UNIT=3390,VOL=SER=xxxxxxx      << volser of the new pre-allocated PANESRL on the target system 
//SYSIN    DD *                                       
    COPY DATASET(   -                                 
      INCLUDE(hlq.mlq.PEV53.PANESRL)  -     
                 )  -                                 
      LOGINDDNAME(INDD)  -                            
      OUTDDNAME(OUTDD)   -                            
      REPLACE                                         
/*                                                    

 

3)   On the target system, run the PANEIPL job  

4)   Verify the copied PANESRL library by running a PE106 report.

 

++++++++++++++++++++++++++++++++++++++++++++++

Option 2 - use PanExec Backup and restore

 

1)  Run a PE101 report to get the defaults for the library to be copied:

//PE101  EXEC PGM=PANEXEC,REGION=1024K                     
//STEPLIB  DD DISP=SHR,DSN=hlq.mlq.PEV53.PANESRL 
//PANESRL  DD DISP=SHR,DSN=hlq.mlq.PEV53.PANESRL 
//PANELIB  DD DISP=SHR,DSN=hlq.mlq.PEV53.PANESRL  
//PANPRINT DD SYSOUT=*                                     
//SYSPRINT DD SYSOUT=*                                     
//SYSPUNCH DD SYSOUT=*                                     
//SYSOUT   DD SYSOUT=*                                     
//SYSIN    DD UNIT=SYSDA,SPACE=(CYL,(20,2))                
//EZTIN    DD UNIT=SYSDA,SPACE=(CYL,(20,2))                
//FILEA    DD UNIT=SYSDA,SPACE=(CYL,(20,2))                
//FILEB    DD UNIT=SYSDA,SPACE=(CYL,(20,5))                
//PANEIN   DD *                                            
%INPUT REPORTS,*,PE101                                     
//                                                         

 

Look for --

DEFAULTS FOR PROGRAM EXECUTION              
               DEFAULT GROUP           $OS  
               DEFAULT STATUS/MODE     PA   

 

 

2)  Run a Panexec Backup:

//PEBKUP   EXEC PGM=PANEXEC                           
//STEPLIB  DD DISP=SHR,DSN=hlq.mlq.PEV53.PANESRL
//SYSPRINT DD SYSOUT=*                                
//PANPRINT DD SYSOUT=*                                
//PANESRL  DD DISP=SHR,DSN=hlq.mlq.PEV53.PANESRL
//PANELIB  DD DISP=SHR,DSN=hlq.mlq.PEV53.PANESRL
//EZTIN    DD UNIT=SYSDA,SPACE=(CYL,(20,25))          
//FILEA    DD UNIT=SYSDA,SPACE=(CYL,(100,25))         
//BACKUP   DD SPACE=(CYL,(PPP,0)),UNIT=SYSDA,         
//            VOL=SER=vvvvvv,                         
//            DISP=(NEW,CATLG,DELETE),                
//            DSN=hlq.mlq.PANEXEC.BKUPSRL             
//PANEIN DD *                                         
%BACKUP,F   PANELIB*,BACKUP*                          
*                                                     
%INPUT REPORTS,*,PE106                                
/*                                                    
//                                                    

 

3)  On the production system, run the Panexec Restore to a volume on the test system and specify the defaults from the PE101 report in the FILEOPT statement -

//PERSTR   EXEC PGM=PANEXEC                              
//STEPLIB  DD DISP=SHR,DSN=hlq.mlq.PEV53.PANESRL   
//SYSPRINT DD SYSOUT=*                                   
//PANPRINT DD SYSOUT=*                                   
//PANESRL  DD DISP=SHR,DSN=hlq.mlq.PEV53.PANESRL  
//PANELIB  DD DISP=SHR,DSN=hlq.mlq.PEV53.PANESRL  
//EZTIN    DD UNIT=SYSDA,SPACE=(CYL,(20,25))             
//FILEA    DD UNIT=SYSDA,SPACE=(CYL,(100,25))            
//BACKUP   DD DISP=SHR,DSN=hlq.mlq.PANEXEC.BKUPSRL 
//TOLIB    DD DSN=hlq.mlq.PANEXEC.NEWSRL,                 <<  Restore to the Target system
//      DISP=(,CATLG,DELETE),UNIT=SYSDA,VOL=SER=vvvvvv,   <<   volser on the target system
//      DCB=(DSORG=PO,BLKSIZE=32752),SPACE=(CYL,(PPP,,1))
//PANEIN DD *                                            
%CREATE TOLIB*,32752,8                                   
%FILEOPT,ADPT TOLIB*$OS.;PA                              
%RESTORE,F BACKUP*,TOLIB*                                
*                                    
/*                                                       
//        

 

NOTE:   The new HLQ.MLQ.PANEXEC.NEWSRL library can't be renamed

              Must use   DSN=HLQ.MLQ.PANEXEC.NEWSRL  for the PANESRL DD in the following jobs 

 

  
If the new PANESRL library must have the original name on the test system as the production system,

then it must be restored again on the test system with the original name

 

                     
//PERSTR2  EXEC PGM=PANEXEC                              
//STEPLIB  DD DISP=SHR,DSN=hlq.mlq.PANEXEC.NEWSRL   
//SYSPRINT DD SYSOUT=*                                   
//PANPRINT DD SYSOUT=*                                   
//PANESRL  DD DISP=SHR,DSN=hlq.mlq.PANEXEC.NEWSRL 
//PANELIB  DD DISP=SHR,DSN=hlq.mlq.PANEXEC.NEWSRL 
//EZTIN    DD UNIT=SYSDA,SPACE=(CYL,(20,25))             
//FILEA    DD UNIT=SYSDA,SPACE=(CYL,(100,25))            
//BACKUP   DD DISP=SHR,DSN=HLQ.MLQ.PANEXEC.BKUPSRL  
//TOLIB    DD DSN=HLQ.MLQ.PEV53.PANESRL,       
//      DISP=(,CATLG,DELETE),UNIT=SYSDA,VOL=SER=vvvvvv, 
//      DCB=(DSORG=PO,BLKSIZE=32752),SPACE=(CYL,(PPP,,1))
//PANEIN DD *                                            
%CREATE TOLIB*,32752,8                                   
%FILEOPT,ADPT TOLIB*$OS.;PA                              
%RESTORE,F BACKUP*,TOLIB*                                
*                                   
/*                                                       
//                 


+ + + + + + + + + + + + + + + + + + + + + + + + + + + +