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?
. -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of CM Poncelet Sent: Wednesday, June 15, 2016 8:53 AM To: [email protected] Subject: Re: Read a PDS (all members) like PS dataset Yes it works, although I used it with the STOW macro (afterwards) to modify/update PDS directories. Use the List/Execute forms of the DCB Macro/DSECT if it is to be modified (in getmained storage). The FIND macro can then be used to locate the start of each PDS member returned by the BLDL. From there, read each PDS member in turn (some Open/Read/Closes might be needed). BTW My correction: IEBUPDTE can write (but not read, AFAIK) a PS dataset to a PDS. But IEBCOPY can read a PDS and write it to a PS - and vice versa. Paul Gilmartin wrote: >On Wed, 15 Jun 2016 04:14:04 +0100, CM Poncelet wrote: > > >>I would suggest writing some assembler code that invokes the BLDL >>macro to read the PDS directory, ... >> >> >> >Does that work? > >-- gil > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, send >email to [email protected] with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
