Getting the error message NOT ENOUGH DATA BLOCKS updating a member in a CA Panvalet library. How do I expand a CA Panvalet PANLIB library?

Document ID : KB000027431
Last Modified Date : 14/02/2018
Show Technical Document Details

Introduction:

The message NOT ENOUGH DATA BLOCKS indicates a CA Panvalet PANLIB has run out of space.

 

Question:

How do I expand or increase a Panvalet library?

 

Answer:

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 Chapter 6: Management Utility Programs of the System Management Guide.

 

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

You can run the backup from step 2 against this and compare the print outputs for verification if desired.

 

5. IF the existing PANLIB has a CONTROL code, you need to set the new PANLIB with same, changing from default 0000 to your code 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' in Chapter 5: PAN#2 Library Protection of the System Management Guide.

 

For more information on the PAN#4 ++CLEAR command, see the 'CLEAR Command' in Chapter 6: Management Utility Programs of the System Management Guide.

 

For more information on the PAN#2 ++DUMP and ++RESTORE commands, see Chapter 5: PAN#2 Library Protection of the System Management Guide.