book
Article ID: 93576
calendar_today
Updated On:
Issue/Introduction
The customer has a plan to replace their DISK from 3380 to 3390.
Does CA Panvalet have an impact if we replace the DISK from 3380 to 3390 ?
Resolution
The Blocksize of the CA Panvalet library depends on the DISK type and it is different.
Please see the "Block Sizes for Initializing the Library (3375, 3380, 3390)" of "System Management Guide" for the Blocksize.
So, you have to execute the following process for reallocation.
1. PAN#2 ++ATTRIBUTE ;
//STEP01 EXEC PGM=PAN#2,PARM='OPEN=INP'
//STEPLIB DD DSN=PANVLT.R146.CBA3LINK,DISP=SHR
//SYSPRINT DD SYSOUT=*
//PANDD1 DD DSN=User.PANLIB.OLD,DISP=SHR
//SYSIN DD *
++ATTRIBUTE
/*
//
2. PAN#2 ++DUMP ;
//STEP01 EXEC PGM=PAN#2
//STEPLIB DD DSN=PANVLT.R146.CBA3LINK,DISP=SHR
//SYSPRINT DD SYSOUT=*
//PANDD1 DD DSN=User.PANLIB.OLD,DISP=SHR
//PANDD2 DD DSN=User.DUMP,DISP=(,CATLG,DELETE),
// UNIT=sysda,VOL=SER=volume,SPACE=(cyl,(n,n))
//SYSIN DD *
++DUMP
/*
//
3. PAN#4 ++CLEAR ;
//STEP01 EXEC PGM=PAN#4
//STEPLIB DD DSN=PANVLT.R146.CBA3LINK,DISP=SHR
//SYSPRINT DD SYSOUT=*
//PANDD1 DD DSN=User.PANLIB.NEW,DISP=(,CATLG,DELETE),
// VOL=SER=volume,UNIT=sysda,SPACE=(cyl,nn),
// DCB=DSORG=DA
//SYSIN DD *
++CLEAR RECORDS=nn
/*
//
4. PAN#2 ++RESTORE ;
//STEP01 EXEC PGM=PAN#2
//STEPLIB DD DSN=PANVLT.R146.CBA3LINK,DISP=SHR
//SYSPRINT DD SYSOUT=*
//PANDD1 DD DSN=User.PANLIB.NEW,DISP=SHR
//PANDD3 DD DSN=User.DUMP,DISP=SHR
//SYSIN DD *
++RESTORE
/*
//