EDC5133I No space left on device. How to move the zFS file system identified as being on a volume with no space left.

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

Description:

An IDCAMS REPRO could be done to create a backup of the file system. After recreating a backup, delete the original file system. Reallocate the original file system on a volume with available space then REPRO from the backup to the original on the volume with more space.

Solution:

This JCL repro's the CASC5 to CASXX as a backup.


//DEFINRW  EXEC PGM=IDCAMS                                           
//SYSPRINT DD SYSOUT=*                                               
//SYSUDUMP DD SYSOUT=*                                               
//AMSDUMP  DD SYSOUT=*                                               
//SYSIN    DD *                                                      
 DELETE OMVSUSR.CAMSM.CASXX  CLUSTER                        
                                                                    
 SET MAXCC=0                                                        
                                                                    
 DEFINE CLUSTER (             -                                     
 NAME(OMVSUSR.CAMSM.CASXX)     -                            
 VOLUMES(vvvvvv)             -                                      
 LINEAR CYL(34 34)            -                                     
 SHAREOPTIONS(3,3)        -                                     
                 )                                                  
/*                                                                   
// EXEC PGM=IDCAMS                                                   
//SYSPRINT DD SYSOUT=*                                               
//INDD  DD DISP=SHR,DSN=OMVSUSR.CAMSM.CASC5                  
//OUTDD DD DISP=SHR,DSN=OMVSUSR.CAMSM.CASXX                  
//SYSIN DD *                                                         
REPRO -                                                             
 INFILE(INDD) -       
 OUTFILE(OUTDD)                                                            
/*                 

Next REPRO CASXX back to CASC5 on a volser with more space.


//DEFINRW  EXEC PGM=IDCAMS                                                  
//SYSPRINT DD SYSOUT=*                                                      
//SYSUDUMP DD SYSOUT=*                                                      
//AMSDUMP  DD SYSOUT=*                                                      
//SYSIN    DD *                                                             
 DELETE OMVSUSR.CAMSM.CASC5  CLUSTER                               
                                                                           
 SET MAXCC=0                                                               
                                                                           
 DEFINE CLUSTER (             -                                            
 NAME(OMVSUSR.CAMSM.CASC5)    -                                   
  VOLUMES(vvvvvv)             -                                            
 LINEAR CYL(34 34)            -                                            
 SHAREOPTIONS(3,3)            -                                            
                 )                                                         
/*                                                                          
// EXEC PGM=IDCAMS                                                          
//SYSPRINT DD SYSOUT=*                                                      
//INDD  DD DISP=SHR,DSN=OMVSUSR.CAMSM.CASXX                         
//OUTDD DD DISP=SHR,DSN=OMVSUSR.CAMSM.CASC5                         
//SYSIN DD *                                                                
REPRO -                                                                    
 INFILE(INDD) -                                                            
 OUTFILE(OUTDD)                                                            
/*               

Delete CASXX. While this is being done MSMTC should be down.