Copying PDSE to PDSE

[samb01]

Hello,
i'm trying to copy PDSE to an othen empty PDSE because of a D37 in my first PDSE (Ebnd of volume)
I use IEBCOPY Program, but i have this error :

Code: Select all

IGW01550I 12000 OF 16897  MEMBERS WERE COPIED

IEB1130E A TERMINATING MESSAGE FROM FAMS PROCESSING APPEARS ABOVE -- DIAGNOSTIC
DIAGNOSTIC INFORMATION IS X'281D00AD'
 

jcl :

Code: Select all

//S1     EXEC PGM=IEBCOPY                
//SYSPRINT DD SYSOUT=*                    
//IN    DD DISP=SHR,DSN=PDSE.OLD.D37      
//OUT   DD DISP=SHR,DSN=PDSE.NEW  
//SYSIN DD *                              
   COPY INDD=((IN,R)),OUTDD=OUT          
 

i saw that :

https://www.ibm.com/support/pages/apar/OA43725

But i can't understand how can i fix it.

I allocated a other empty PDSE dataset in an other Volume with more space, but i still have the same error.
Thank's for your help.

[sergeyken]

Based on your DSN=PDSE.OLD.D37 I suspect that this input library is the result of System Abend D37 (e.g. failure in End Of Volume), isn't it? For instance, no new extent on the same volume, or no extra volume itself was available to increase the size of that library, so it failed with SD37, and with incorrect status of library directory (as one of possible reasons).

If so, the problem is not with your newly allocated copy, but with your old input library. The status of the old library after previous SD37 during its creation can be unpredictable; a serious recovery may be needed...