Jim, I would just change the code to use the SHOWCB macro to get the value, and the MODCB macro to put a new value in when needed. Both SHOWCB and MODCB support the XRBA value in the FIELDS parameter.
Possibly not as efficient as using the RPL field directly, but more maintainable going forward, IMHO. Peter > -----Original Message----- > From: IBM Mainframe Assembler List [mailto:ASSEMBLER- > [email protected]] On Behalf Of Jim Holloway > Sent: Thursday, September 29, 2011 4:49 PM > To: [email protected] > Subject: Assembler to Cobol Interface for Random Access to VSAM ESDS > > Dear List, > I have inherited a thirty year old assembler interface for COBOL > to access VSAM ESDS data sets randomly. > I have been asked to produce a version that will allow access to extended > format ESDS. I have updated > the code as best as I can, updating the GENCB macro calls for ACB and RPL > with the appropriate opt codes for > extended addressability. However, the program as written returns the RBA > being requested in a 4 byte field called > RPLDDDD from the IFGRPL Macro. I can find no other field in the literature > or IFGRPL which would return me the 8 byte address > although RPLDDDD seems to be part of a double word area called RPLRBAR and > may well be the eight byte RBA field I'm looking for. > The comments within the macro say otherwise. Has anyone coded for 8 byte > RBAs and extended addressability who may be able to > shed some light on this? -- 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.
