How to properly Backup and Restore a PANEXEC SRL library

Products

• Panvalet

Issue/Introduction

Did a PANEXEC Backup of the PANEXEC SRL library using the following job:

//PXBKUP  EXEC PGM=PANEXEC,                                   
//           COND=(0,NE)                                      
//STEPLIB  DD DISP=SHR,DSN=PANEXEC.V53G0609.GA.PANESRL    
//PANESRL  DD DISP=SHR,DSN=PANEXEC.V53G0609.GA.PANESRL    
//*-------                                                    
//SYSPRINT DD SYSOUT=*                                        
//PANPRINT DD SYSOUT=*     
//PANELIB  DD DISP=SHR,DSN=PANEXC.V53G0609.GA.PANESRL    
//BACKUP   DD SPACE=(CYL,(160,0)),UNIT=SYSDA,                  
//            VOL=SER=xxxxxx,                
//            DISP=(NEW,CATLG,DELETE),                        
//            DSN=PANEXEC.V53G0609.GA.PANESRL.BKUP         
//PANEIN DD *                                                 
%BACKUP,F   PANELIB*,BACKUP*                       
*                                                             
/*                                                            

This the job used to Create the a new PANEXEC library and Restore to it: 

//PXCRRST EXEC PGM=PANINT                                      
//*                                                             
//STEPLIB  DD DISP=SHR,DSN=PANEXEC.V53G0609.GA.PANESRL       
//PANESRL  DD DISP=SHR,DSN=PANEXEC.V53G0609.GA.PANESRL       
//*-------                                                      
//PANPRINT DD SYSOUT=*                                          
//SYSPRINT DD SYSOUT=*                                          
//*                                                             
//BACKUP   DD DISP=SHR,DSN=PANEXEC.V53G0609.GA.PANESRL.BKUP  
//PXLIB00  DD DSN=PANEXEC.V53G0609.NEW.PANESRL,                  
//            DISP=(NEW,CATLG),VOL=SER=xxxxxx,                  
//            UNIT=SYSDA,SPACE=(CYL,(25,,1)),                   
//            DCB=(DSORG=PO)                                    
//PANEIN DD *                                                   
%CREATE PXLIB00*,500,8                                                               
%ACCESS,S   SACC*                                               
%RESTORE,LRF BACKUP*,PXLIB00*                     
*                                                               
/*                                                              

 

Problem is when running a PE103 using the NEW.PANESRL library, it fails with a S806:

//PXPE103  EXEC PGM=PANEXEC,REGION=1024K                 
//STEPLIB  DD DSN=PANEXEC.V53G0609.NEW.PANESRL,DISP=SHR 
//PANESRL  DD DSN=PANEXEC.V53G0609.NEW.PANESRL,DISP=SHR 
//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))            
//PANELIB DD DISP=SHR,DSN=PANEXEC.V53G0609.NEW.PANESRL  
//PANEIN   DD *                                        
%INPUT REPORTS,*,PE103                                 
//                                                     

 

Why didn't this work?

 

Environment

Release : 5.3

Resolution

The Back up job is good. 

In the job that does the Create of the new PanExec library need to add a %FILEOPT statement

//PXCRRST EXEC PGM=PANINT                                     
//*                                                             
//STEPLIB  DD DISP=SHR,DSN=PANEXEC.V53G0609.GA.PANESRL      
//PANESRL  DD DISP=SHR,DSN=PANEXEC.V53G0609.GA.PANESRL      
//*-------                                                      
//PANPRINT DD SYSOUT=*                                          
//SYSPRINT DD SYSOUT=*                                          
//*                                                             
//BACKUP   DD DISP=SHR,DSN=PANEXEC.V53G0609.GA.PANESRL.BKUP 
//PXLIB00  DD DSN=PANEXEC.V53G0609.NEW.PANESRL,                 
//            DISP=(NEW,CATLG),VOL=SER=xxxxxx,                  
//            UNIT=SYSDA,SPACE=(CYL,(25,,1)),                   
//            DCB=(DSORG=PO)                                    
//PANEIN DD *                                                   
%CREATE PXLIB00*,500,8                                      
%FILEOPT,ADPT TOLIB*$OS.;PA                         
%ACCESS,S   SACC*                                               
%RESTORE,LRF BACKUP*,PXLIB00*                     
*                                                               
/*