Migrating Panvalet from VSE V14.4 to z/OS V14.6

Products

• Panvalet

Issue/Introduction

What is the best way to migrate the Panvalet PANLIB libraries from a VSE system to z/OS?

Environment

Panvalet z/VSE V14.4

Panvalet z/OS V14.6

Resolution

Two options are available depending on if there are tape units shared between the z/VSE and z/OS systems or if there is Shared DASD between the two systems.

 

Option 1 - Tape Backup and Restore

For each Panvalet PANLIB, create a tape Protection file / backup on the z/VSE system and Restore it on the z/OS system:

1)  Create a Panvalet Protection file using PAN#2 ++DUMP on the VSE system -

* $$ JOB                                      
// JOB                                        
/*                        
// OPTION LOG    
// LIBDEF PHASE,SEARCH=lib.sublib 
/*   this is the input Panvalet PANLIB                  
// ASSGN  SYS006,DISK,VOL=volser,SHR         
// DLBL   PANDD1,'vse.Panvalet.PANLIB',,DA   
// EXTENT SYS006,volser,1,0,reltrk,ntrks     
/*   this is the Panvalet Protection (Backup) file
// ASSGN  SYS005,CUU                         
// TLBL   PANDD2,'PANLIB.PROTECT.TAPE'               
// EXEC   PAN#2,SIZE=AUTO                 
++DUMP                       
++PRINT 6-UP                                       
/*                                            
/&                                            
* $$ EOJ        

 

2) Create a PANLIB on the z/OS system using the PAN#4 ++CLEAR utility and Restore the members from the Protection file:

//jobname   JOB  .. .. ..
//********************************************************************
//*      THIS JOB WILL RESTORE ALL MEMBERS ON A PANVALET PROTECTION  *
//*         (BACKUP) FILE TO A NEW PANLIB.                           *
//********************************************************************
//CLRPVLIB EXEC PGM=PAN#4,REGION=0M     
//STEPLIB  DD DISP=SHR,DSN=Panvalet.CBA3LINK 
//PANDD1   DD  DSN=hlq.mlq.Panvalet.PANLIB,
//             DISP=(NEW,CATLG,DELETE),    
//             DCB=(DSORG=DA,BLKSIZE=nnnn),
//             SPACE=(CYL,nnn),
//             UNIT=unit,
//             VOL=SER=zosvolser   
//SYSPRINT DD SYSOUT=*                                     
//INDEX    DD SYSOUT=*                                     
//OSJOB    DD DUMMY                                        
//SYSIN    DD *                                             
++CLEAR                                                       
/*                                                         
//PVRESTR  EXEC PGM=PAN#2,REGION=0M   
//STEPLIB  DD  DISP=SHR,DSN=Panvalet.CBA3LINK                
//SYSPRINT DD  SYSOUT=*                                                 
//PANDD1   DD  DISP=SHR,DSN=hlq.mlq.Panvalet.PANLIB                                                
//PANDD2   DD  DUMMY                              
//PANDD3   DD  DSN=PANLIB.PROTECT.TAPE,              
//             DISP=(OLD,KEEP),
//             UNIT=tape-unit,                                      
//             VOL=SER=volser                                       
//SYSIN    DD *  
++RESTORE                                                        
/* 
//    

 

 

Option 2 - Shared DASD Disk-to-Disk Copy

1)  Create a Panvalet Protection file / backup using PAN#2 ++DUMP on the VSE system -

* $$ JOB                                      
// JOB                                        
/*                        
// OPTION LOG    
// LIBDEF PHASE,SEARCH=lib.sublib 
/*   this is the input Panvalet PANLIB                  
// ASSGN  SYS006,DISK,VOL=volser,SHR         
// DLBL   PANDD1,'vse.Panvalet.PANLIB',,DA   
// EXTENT SYS006,volser,1,0,reltrk,ntrks     
/*   this is the Panvalet Protection (Backup) file
// ASSGN  SYS005,DISK,VOL=shared-dasd-volser,SHR                         
// DLBL   PANDD2,'PANLIB.PROTECT.FILE'
// EXTENT SYS005,volser,1,0,reltrk,ntrks               
// EXEC   PAN#2,SIZE=AUTO                 
++DUMP                       
++PRINT 6-UP                                       
/*                                            
/&                                            
* $$ EOJ        

 

2) Create a PANLIB on the z/OS system using the PAN#4 ++CLEAR utility and Restore the members from the Protection file:

//jobname   JOB  .. .. ..
//********************************************************************
//*      THIS JOB WILL RESTORE ALL MEMBERS ON A PANVALET PROTECTION  *
//*         (BACKUP) FILE TO A NEW PANLIB.                           *
//********************************************************************
//CLRPVLIB EXEC PGM=PAN#4,REGION=0M     
//STEPLIB  DD DISP=SHR,DSN=Panvalet.CBA3LINK 
//PANDD1   DD  DSN=hlq.mlq.Panvalet.PANLIB,
//             DISP=(NEW,CATLG,DELETE),    
//             DCB=(DSORG=DA,BLKSIZE=nnnn),
//             SPACE=(CYL,nnn),
//             UNIT=unit,
//             VOL=SER=zosvolser   
//SYSPRINT DD SYSOUT=*                                     
//INDEX    DD SYSOUT=*                                     
//OSJOB    DD DUMMY                                        
//SYSIN    DD *                                             
++CLEAR                                                       
/*                                                         
//PVRESTR  EXEC PGM=PAN#2,REGION=0M   
//STEPLIB  DD  DISP=SHR,DSN=Panvalet.CBA3LINK                
//SYSPRINT DD  SYSOUT=*                                                 
//PANDD1   DD  DISP=SHR,DSN=hlq.mlq.Panvalet.PANLIB                                                
//PANDD2   DD  DUMMY                              
//PANDD3   DD  DISP=SHR,DSN=PANLIB.PROTECT.FILE               
//SYSIN    DD *  
++RESTORE                                                        
/* 
//    

 

Additional Information

++CLEAR command

Block Sizes for Initializing the Library