How to expand a Panvalet PANLIB library

Products

• Panvalet

Issue/Introduction

Getting the error message NOT ENOUGH DATA BLOCKS updating a member in a CA Panvalet library.

What is the correct procedure for expanding a Panvalet PANLIB? 

 

Environment

Release:  14.6
Component:   Panvalet

Resolution

1.  Use PAN#2 ++ATTRIBUTE to see the current space allocation. 

//STEP1 EXEC PGM=PAN#2
//PANDD1 DD DISP=SHR,DSN=existing.panlib 
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD SYSOUT=*
//SYSIN DD * 
++ATTRIBUTE
/* 

 

2.  Use PAN#2 ++DUMP to create a backup file. 

//STEP1 EXEC PGM=PAN#2
//PANDD1 DD DISP=SHR,DSN=existing.panlib
//PANDD2 DD DISP=(NEW,CATLG),DSN=dumpfile,
//     DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120),
//     UNIT=SYSDA,SPACE=(CYL,(nn,n))
//PANDD3 DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD SYSOUT=*
//SYSIN DD *
++CONTROL nnnn         <<< only if needed
++DUMP 
++PRINT
/* 

 

3.  Use PAN#4 ++CLEAR DATASETS=nnnnn 

Where DATASET is the number of members going to be stored in the new Panvalet library.

//STEP1 EXEC PGM=PAN#4
//SYSPRINT DD SYSOUT=*
//PANDD1 DD DSN=new.panlib,DISP=(,CATLG),
//      UNIT=SYSDA,SPACE=(CYL,(nn,n)), 
//      DCB=(DSORG=PS,BLKSIZE=nnnnn),VOL=SER=volser
//SYSIN DD *
++CLEAR
/* 

For a list of valid Panvalet library block sizes, see the 'Table of Block Sizes' in  TechDocs

 

4. Use PAN#2 ++RESTORE to copy the backup into the new PANLIB. 

//STEP1 EXEC PGM=PAN#2
//SYSPRINT DD SYSOUT=* 
//PANDD1 DD DISP=SHR,DSN=new.panlib
//PANDD2 DD DUMMY
//PANDD3 DD DISP=SHR,DSN=dumpfile 
//SYSIN DD *
++RESTORE 
/*

To verify the contents of the new PANLIB, run the backup from step 2 against the new PANLIB and compare the outputs for verification if desired.

 

5. IF the existing PANLIB has a CONTROL code,  the new PANLIB will need to be set with same, changing from the default 0000 to  cccc: 

//STEP1 EXEC PGM=PAN#2
//PANDD1 DD DISP=SHR,DSN=new.panlib 
//PANDD2 DD DUMMY
//PANDD3 DD DUMMY
//SYSPRINT DD SYSOUT=* 
//SYSPUNCH DD SYSOUT=*
//SYSIN DD *
++CONTROL 0000,cccc 
/*

***** If there is a site installation code, start there instead of default 0000
Example: If site code is 1111 and you want to use CONTROL 4444 on the new PANLIB then library code is 3333 and you use ++CONTROL 1111,3333 

 

6. Rename the old and new PANLIBs using ISPF. 

 

Additional Information

For more information on the PAN#2 ++CONTROL command, see the 'CONTROL Command'

           and the PAN#2 ++DUMP and ++RESTORE commands 

 

For more information on the PAN#4 ++CLEAR command, see the 'CLEAR Command'