How to Restore a Panvalet member from Panvalet Protection file

Products

• Panvalet

Issue/Introduction

Need to restore some Panvalet members that were Disabled and then Deleted from the production PANLIB

 

 

 

Environment

Panvalet 14.6 z/OS

Panvalet 14.4 z/VSE

Resolution

Sample z/OS job - 

Change the STEPLIB and PANLIB library names: 

//PANVRSTR EXEC PGM=PAN#2                                    
//STEPLIB  DD DISP=SHR,DSN=your.PANV.V146.CBA3LINK 
//SYSPRINT DD SYSOUT=*                                       
//PANDD1   DD DISP=SHR,DSN=your.PANLIB    
//PANDD2   DD  DUMMY                                         
//PANDD3   DD DISP=SHR,DSN=your.INPUT.PROTECTION.FILE
//SYSIN DD *                                                 
++RESTORE  member                                               
/*                                                           

 

 

Sample VSE job  -

 

Change the CAILIB and PANLIB library names, plus update the ASSIGN and EXTENT statements: 

 
// JOB PANVREST 
// OPTION DUMP JCANCEL 
// DLBL CAILIB,'your.PANV.V144.PRODUCT.LIBRARY' 
// EXTENT ,vvvvvv,1,0,sssss,nnn 
// LIBDEF PHASE,SEARCH=(CAILIB.BASE) 
* 
// ASSGN SYS006,DISK,VOL=vvvvvv,SHR 
// DLBL PANDD1,'your.PANLIB',,DA 
// EXTENT SYS006,vvvvvv
* 
// ASSGN SYS004,DISK,VOL=vvvvvv,SHR 
// DLBL PANDD3,'your.INPUT.PROTECTION.FILE',,SD 
// EXTENT SYS004,vvvvvv,1,0,sssss,nnn 
// EXEC PGM=PAN#2,SIZE=256K 
++RESTORE member 
/* 
/& 
* $$ EOJ