MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

How can I rebuild a PDS whose members get I/O errors?

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
mvsmlk
Beginner


Joined: 08 Oct 2015
Posts: 13
Topics: 6
PostPosted: Thu Jul 19, 2018 2:25 pm    Post subject: How can I rebuild a PDS whose members get I/O errors? Reply with quote
I accidentally created a new PDS member whose LRECL was 129 into a PDS whose members had an LRECL of 134 and a BLKSIZE of 13400. It is not a load library. The entire PDS now reflects RECFM=FBA as before, but the LRECL and BLKSIZE both are 129. Now all prior members receive I/O errors upon attempting to read them, except for this latest member. Is there some utility that can help me restore the original attributes of the older members? I have no backup of this library to restore from. Thank you very much.
Back to top
View user's profile Send private message AIM Address
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12370
Topics: 75
Location: San Jose
PostPosted: Thu Jul 19, 2018 10:10 pm    Post subject: Reply with quote
mvsmlk,

Please stop posting the same question across multiple forums. I am deleting the duplicate post you have it in"TSO and ISPF" forum. Don't ever post the same topic across multiple forums.

Please search before posting. Check this link which explains about recovering the corrupt pds (check the post from nevilh)

https://www.mvsforums.com/helpboards/viewtopic.php?t=5508

So following his advise, create a new member in the corrupted pds using IEBGENER specifying the correct DCB and DISP=MOD on the DD card. Something like this

Code:

//STEP0100 EXEC PGM=SORT                                         
//SYSOUT   DD SYSOUT=*                                           
//SORTIN   DD *                                                   
DUMY RECORD                                                       
//SORTOUT  DD DSN=&&DUMMY,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE)     
//SYSIN    DD *                                                   
  OPTION COPY                                                     
  INREC OVERLAY=(134:X)                                           
/*                                                               
//STEP0200 EXEC PGM=IEBGENER                                     
//SYSPRINT DD SYSOUT=*                                           
//SYSUT1   DD DISP=SHR,DSN=&&DUMMY                               
//SYSUT2   DD DISP=MOD,DSN=Your.CORRUPT.PDS(DUMMYMEM),   
//            LRECL=134,RECFM=FB,BLKSIZE=13400                   
//SYSIN    DD DUMMY                                               
/*                                                               


This will get your pds back to its original format. You can delete the member with lrecl of 129 from 3.4 as well as the dummymem you just created.
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group