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 <strau...@us.ibm.com> To: IBM-MAIN@bama.ua.edu 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 strau...@us.ibm.com |------------> | From: | |------------> >--------------------------------------------------------------------------------------------------------------------------------------------------| |Binyamin Dissen <bdis...@dissensoftware.com> | >--------------------------------------------------------------------------------------------------------------------------------------------------| |------------> | To: | |------------> >--------------------------------------------------------------------------------------------------------------------------------------------------| |IBM-MAIN@bama.ua.edu | >--------------------------------------------------------------------------------------------------------------------------------------------------| |------------> | Date: | |------------> >--------------------------------------------------------------------------------------------------------------------------------------------------| |07/26/2011 02:50 PM | >--------------------------------------------------------------------------------------------------------------------------------------------------| |------------> | Subject: | |------------> >--------------------------------------------------------------------------------------------------------------------------------------------------| |Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR | >--------------------------------------------------------------------------------------------------------------------------------------------------| |------------> | Sent by: | |------------> >--------------------------------------------------------------------------------------------------------------------------------------------------| |IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu> | >--------------------------------------------------------------------------------------------------------------------------------------------------| The DCB can be changed to RECFM=U,BLKSIZE=32760. That will guarantee that members can be read. After looking at a few members, the correct values can be determined. On Tue, 26 Jul 2011 17:59:04 +0000 "Mingee, David" <david.min...@libertymutual.com> wrote: :>Also, RECFM could have been changed to RECFM=U vs. FB if an inappropriate task was executed against this file. :> :>-----Original Message----- :>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Roach, Dennis (N-GHG CORP.) :>Sent: Tuesday, July 26, 2011 1:49 PM :>To: IBM-MAIN@bama.ua.edu :>Subject: Re: EXTERNAL: Re: CORRUPT PDS - I/O ERROR :> :>Do you know what the LRECL is/should be? :>Can you read any members? :> :>Dennis Roach :>GHG Corporation :>Lockheed Martin Mission Services :>Facilities Design and Operations Contract Strategic Technical Engineering NASA/JSC :>Address: :> 2100 Space Park Drive :> LM-15-4BH :> Houston, Texas 77058 :>Mail: :> P.O. Box 58487 :> Mail Code H4C :> Houston, Texas 77258-8487 :>Phone: :> Voice: (281)336-5027 :> Cell: (713)591-1059 :> Fax: (281)336-5410 :>E-Mail: dennis.ro...@lmco.com :> :>All opinions expressed by me are mine and may not agree with my employer or any person, company, or thing, living or dead, on or near this or any other planet, moon, asteroid, or other spatial object, natural or manufactured, since the beginning of time. :> :>-----Original Message----- :>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of esmie moo :>Sent: Tuesday, July 26, 2011 12:41 PM :>To: IBM-MAIN@bama.ua.edu :>Subject: EXTERNAL: Re: CORRUPT PDS - I/O ERROR :> :>John, :> :>I followed your example it add the member JUNK to the pds and I was able to browse the member JUNK which has the X in it. However, the rest of the members still give the I/O error. I know that am sounding thick however I am not sure as to what I should do for the other members. Could you give me an example? :> :>From: "McKown, John" <john.mck...@healthmarkets.com> :>To: IBM-MAIN@bama.ua.edu :>Sent: Tuesday, July 26, 2011 1:22:20 PM :>Subject: Re: CORRUPT PDS - I/O ERROR :> :>The "X" is just junk instream data to put into the member JUNK. What it is doesn't matter. I just put it there for completeness. -- Binyamin Dissen <bdis...@dissensoftware.com> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html