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

[Dave Froble]

On 9/21/2023 8:39 PM, Arne Vajhøj wrote:
> On 9/20/2023 7:15 AM, Arne Vajhøj wrote:
>> On 9/20/2023 12:02 AM, Dave Froble wrote:
>>> On 9/19/2023 8:50 PM, Arne Vajhøj wrote:
>>>> On 9/19/2023 8:44 PM, Arne Vajhøj wrote:
>>>>> On 9/16/2023 4:16 PM, Arne Vajhøj wrote:
>>>>>> I don't think I have ever used ORG=REL.
>>>>>
>>>>> But then I could start now!
>>>>
>>>> C / RMS:
>>>
>>> Is it just me, or, was my Basic example shorter and easier to read than your
>>> Cobol, Fortran, and C examples?
>>
>> The Basic code was a bit shorter than the Fortran and Pascal code.
>> No so surprising VMS Basic is pretty good in expressing logic
>> in few lines.
>>
>> The Basic code was a lot shorter than the C code, because
>> that was using RMS calls and not language specific statement -
>> working with RMS Calls and FAB & RAB blocks always require
>> way more code than language specific statements.
>
> The stats for my code:
>
> Fortran: 13 + 11 + 12 = 36
> Basic: 13 + 16 + 13 = 42
> Pascal: 23 + 22 + 22 = 67
> Cobol: 32 + 28 + 29 = 89
> Macro-32: 34 + 38 + 43 = 115
> C: 57 + 55 + 57 = 169
>
> Obviously the result depends a little on coding style - and
> mine is just mine.
>
> Arne
>
>

What are those stats?

I believe my example both created and populated the file, then allowed the user 
to select and display records.  14 lines of code, if I counted correctly.


If we're looking for minimum code ...

-- 
David Froble                       Tel: 724-529-0450
Dave Froble Enterprises, Inc.      E-Mail: davef at tsoft-inc.com
DFE Ultralights, Inc.
170 Grimplin Road
Vanderbilt, PA  15486