> -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of Paul Gilmartin > Sent: Wednesday, June 15, 2016 9:52 AM > To: [email protected] > Subject: Re: Read a PDS (all members) like PS dataset > > On Wed, 15 Jun 2016 15:39:01 +0000, פנינה קוניגסברג wrote: > > >Always interesting, I am dealing this week with an error that I hoped would > >be solved by > the different solutions presented here, but after trying some of the > solutions presented > herein have not recovered. > >Background: In preparation for a system cutover, executed IDCAMS LISTC with > SYSPRINT to a PDS file containing very important cutover data. (thought that > was an > efficient method of documentation :) - the laugh is on me). > >The original file was a typical jcl type (80 lrecl) after running the LISTC > >and updating the > results, the PDS members which existed prior to the LISTC job execution were > unreadable - > IO ERROR. Since the disk was a 'sandbox' type disk, it wasn't backed up nor > dumped. I > have been trying various recovery methods - many of them as advised on this > discussion list > to not avail. Any ideas ? Would it be preferable for me to specify the > actions I already did > to try to recover the file? > > > If you allocate the PDS with the original RECFM=FB,LRECL=80,BLKSIZE=????? you > should be able to > read the older members correctly and the member(s) created as IDCAMS SYSPRINT > will > receive I/O > errors.
Gil's recommendation is a better plan than trying to restore the DCB of the broken dataset back to its original condition. There is no reason to run the risk of damaging the dataset further. Create two new PDSes. One with the original DCB attributes of the broken dataset. The second with the new DCB attributes of that dataset. Run IEBCOPY to copy only the new member(s) produced by LISTC to the second dataset. (Use the SELECT control card.) The DD cards for this job should not specify DCB information for either PDS. Run a second IEBCOPY to copy only the original members created before you ran the first LISTC operation. (Use the EXCLUDE command.) On the DD statement pointing to the broken dataset, specify LRECL=80, RECFM=FB, and BLKSIZE=32760. (For disk datasets, a BLKSIZE greater than the longest block is not a problem.) IEBCOPY will reblock the records to match the BLKSIZE specified when the output dataset was created. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
