[Info-vax] Example of random access by record number on an RMS fixed record size, relative organization file?

[bill]

On 9/19/2023 11:15 PM, gah4 wrote:
> On Tuesday, September 19, 2023 at 5:46:29 PM UTC-7, Arne Vajhøj wrote:
> 
> (snip)
> 
>> open(unit=1,file='rel.dat',status='new',form='formatted',
>> + organization='relative',recl=512,recordtype='variable',
>> + access='direct')
>   
> OP asked about fixed record size, and traditionally that is
> the way it was done.  I haven't followed that detail of later
> Fortran standards. They have to, at least, allocate to the
> maximum size.

I have an example in COBOL I just wrote if anyone is interested.

Funny thing about this.  I found very little about it in any of
the (many) COBOL books I have.  I also don't remember ever having
done it in a production program in my entire 40 year career.
This kind of task was done much better with ISAM and today it
would be database.

bill