Joined: 14 Jan 2008 Posts: 2504 Location: Atlanta, Georgia, USA
Even in Enterprise COBOL 4.2, the ability to issue a Batch ESDS direct READ (via an RBA/XRBA) is not supported. I would have thought by now, it would be part of the language?
I'm sure you can sequentially read records until you reach the one you need, but in a large file, this could take a while as you'd need to identify record-criteria after each READ as the associated RBA/XRBA is unknown to COBOL.
IIRC, there's a way around this by defining the ESDS Base Cluster with an alternate index, but CRS has set in and I my recall factor has very much diminished.
Maybe Batch RBA direct READ's can be done in Enterprise PL/I
Somebody else probably knows the alternate index trick for COBOL....