John, Thanks. I tried out your suggestion and it worked like a charm. Thanks again.
From: John P Kalinich <[email protected]> To: [email protected] Sent: Wednesday, July 27, 2011 8:22:36 AM Subject: Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR I would issue the PDS FIXPDS subcommand to change the DCB attributes, followed by a VERIFY subcommand. Assuming the LRECL is 80 based on the block lengths from your previous VERIFY. pds 'name.of.dsname' fixpds recfm(fb) lrecl(80) blksize(27920) verify : end Regards, John K From: esmie moo <[email protected]> To: [email protected] Date: 07/27/2011 07:01 AM Subject: Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR Paul, I tried your suggestion, here is a sample of what I received: ** VERIFY ADBTS BLOCK LENGTH OF 20,960 EXCEEDS THE DATA SET DCB BLKSIZE BLOCK LENGTH OF 20,960 IS NOT DIVISIBLE BY THE DCB LRECL ** VERIFY ALTERTS BLOCK LENGTH OF 21,360 EXCEEDS THE DATA SET DCB BLKSIZE BLOCK LENGTH OF 21,360 IS NOT DIVISIBLE BY THE DCB LRECL ** VERIFY ALTABLE BLOCK LENGTH OF 27,920 EXCEEDS THE DATA SET DCB BLKSIZE BLOCK LENGTH OF 27,920 IS NOT DIVISIBLE BY THE DCB LRECL ** VERIFY GRANT BLOCK LENGTH OF 8,240 EXCEEDS THE DATA SET DCB BLKSIZE BLOCK LENGTH OF 8,240 IS NOT DIVISIBLE BY THE DCB LRECL Could you tell me what I should do? From: Paul Strauss <[email protected]> To: [email protected] Sent: Tuesday, July 26, 2011 3:15:35 PM Subject: Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR If you have PDS or PDS85 on the system it may help. You can run it in batch like this: //TSO EXEC PGM=IKJEFT01 //* STEPLIB DD DISP=SHR,DSN= load library where PDS is //SYSPRINT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * PDS ' put bad pds here ' VERIFY : This command with the : says to read all members and list the bad ones. END // I'm not sure what you'll get if the dataset looks like a flat file if the directory was written over, but it may tell you something. If any members can be read, it will tell you which ones are the bad ones and you can then create an IEBCOPY job with an Exclude for all the bad members and copy the good members to a new dataset.. Thank You, Paul Strauss Integrated Technology Delivery, Global Services, IBM L0DB z/OS MVS/Program Products/Security 150 Kettletown Rd. Southbury, CT 06488 (203) 272-2758 [email protected] ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
