How about using SHOWCB FIELDS=(XRBA),AREA=XRBAVALUE,LENGTH=8,RPL=... ? XRBAVALUE DS D
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT2D580/1.2.29 -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * [email protected] * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM > -----Original Message----- > From: IBM Mainframe Assembler List > [mailto:[email protected]] On Behalf Of Jim Holloway > Sent: Thursday, September 29, 2011 3: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? > > Thanks, > Jim Holloway - MetLife > > > > > > > > The information contained in this message may be CONFIDENTIAL > and is for the intended addressee only. Any unauthorized > use, dissemination of the information, or copying of this > message is prohibited. If you are not the intended > addressee, please notify the sender immediately and delete > this message. > >
