I am in the process of running with RECFM=U (under TEST) I see that is shows both BDW and RDW
Joe Reichman Joe Reichman IT Specialist Master Files Division New Carrollton Federal Building, B7-182 OS:CTO:AD:CP:I:IB Flex M,T,Th,F Home office (240) 863 - 3965 Office (240) 613-4350 Cell (917) 748-9693 TOD M - F 7:30 am - 4:00 pm -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf Of Farley, Peter x23353 Sent: Tuesday, July 19, 2016 2:20 PM To: IBM-MAIN@listserv.ua.edu Subject: Re: Bsam VS Qsam for VB records I've been following the various attempts to help you fix your broken file with a block that has a zero BDW. How that ever happened is a mystery you really ought to engage IBM to help solve, BUT . . . No one else seems to have suggested the "old time" solution to recovering the file data - does your shop license DITTO? DITTO can access AND MODIFY disk blocks directly, without programming. You can display blocks in the file until you get to the one you want and then update the BDW in that block based on the block length DITTO tells you it read. If your shop does license DITTO the "disk modify" function is very likely security protected (or darn well ought to be, since it can really wreck things up if misused or abused), so you may need to interface with your security team to get appropriate authority. There is a "batch" interface to DITTO as well as TSO capability, so you could set it up as a batch job or try to accomplish it on the fly from TSO. If it were me I would also try to make sure I have at least one safe volume backup of the disk containing that file in case things get messed up. Caveat emptor. HTH Peter -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Reichman Joseph Sent: Tuesday, July 19, 2016 1:31 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Bsam VS Qsam for VB records The problem is not the RDW it’s the BDW with QSAM that’s somewhere inside DFSMS code it doesn't seem RECFM=U would reveal that Joe Reichman Joe Reichman IT Specialist Master Files Division New Carrollton Federal Building, B7-182 OS:CTO:AD:CP:I:IB Flex M,T,Th,F Home office (240) 863 - 3965 Office (240) 613-4350 Cell (917) 748-9693 TOD M - F 7:30 am - 4:00 pm -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf Of Bill Woodger Sent: Tuesday, July 19, 2016 1:13 PM To: IBM-MAIN@listserv.ua.edu Subject: Bsam VS Qsam for VB records With RECFM=U, you get the entire physical record presented to you. It has no "length" as far as the system is concerned, it is just an amorphous lump of data. For VB-as-U the first four bytes are the RDW of what was the block, the next four bytes the RDW of the first record, and you can find the start of the next record (next RDW) though some simple maths (adding). On Tuesday, 19 July 2016 17:15:53 UTC+2, Reichman Joseph wrote: > With RECFM=U there is 1 record per block and the BDW is RDW + 4 ? > > Joe Reichman ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
