About an impact of replacing DISK from 3380 to 3390 for CA Panvalet.
search cancel

About an impact of replacing DISK from 3380 to 3390 for CA Panvalet.

book

Article ID: 93576

calendar_today

Updated On:

Products

Panvalet

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 ?

Environment

z/OS

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
/*
//