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

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

book

Article ID: 277529

calendar_today

Updated On:

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

For more information on the CLEAR command, see -

https://techdocs.broadcom.com/us/en/ca-mainframe-software/devops/ca-panvalet/14-6/system-management/pan-4-library-creation/clear-command.html

 

Blocksizes see - 

https://techdocs.broadcom.com/us/en/ca-mainframe-software/devops/ca-panvalet/14-6/system-management/pan-4-library-creation/suppress-command.html#concept.dita_1926ffaaf1471b0af32800db93ca1461102b542b_TableofBlockSizes