On 9/20/2023 8:24 AM, Simon Clubley wrote:
> On 2023-09-20, Dave Froble <davef@tsoft-inc.com> wrote:
>> Is it just me, or, was my Basic example shorter and easier to read than your
>> Cobol, Fortran, and C examples?
>
> Arne could always add a Macro-32 example to that list... :-)

I just added Cobol, Basic and Macro-32.

And note that the Macro-32 code is shorter than the C code.

Macro-32 initialization of FAB and RAB blocks are much shorter/easier
than the C same.

Arne

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@tsoft-inc.com
DFE Ultralights, Inc.
170 Grimplin Road
Vanderbilt, PA 15486

On 9/21/2023 9:05 PM, Dave Froble wrote:
> 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.
>
> What are those stats?

For each language I did 3 programs:
* write
* read sequential
* read by record number

The numbers are lines.

> 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 ...

So my Basic examples were 13, 16 and 13 lines.

I think the main difference are that I had program statement at top,
declared variables instead of using type suffix and looped over
all records when reading.

And then maybe that I know little about VMS Basic.

BTW, my basic code has a difference from the other languages as
I was not able to put leading zeroes in the 4 digits line number.
How does one get an integer formatted to a given width with leading
zeros in VMS basic??

Arne

On Thursday, September 21, 2023 at 6:12:33 PM UTC-7, Arne Vajhøj wrote:

(snip)

> BTW, my basic code has a difference from the other languages as
> I was not able to put leading zeroes in the 4 digits line number.
> How does one get an integer formatted to a given width with leading
> zeros in VMS basic??

BASIC formatted output is PRINT USING.

The actual syntax is different for different systems.

On 2023-09-22 03:12, Arne Vajhøj wrote:
> BTW, my basic code has a difference from the other languages as
> I was not able to put leading zeroes in the 4 digits line number.
> How does one get an integer formatted to a given width with leading
> zeros in VMS basic??

BASIC2

print format$(1, "Line _#<0>####_!")

Line #00001!

BASIC2

(See HELP STA PRIN USI NUM for more details, I think...)
(And yes, I used BASIC+2 and not VMS BASIC. But as far as I can
remember, they are the same in this, and most other things.)

Johnny

On 9/21/2023 9:12 PM, Arne Vajhøj wrote:

> BTW, my basic code has a difference from the other languages as
> I was not able to put leading zeroes in the 4 digits line number.
> How does one get an integer formatted to a given width with leading
> zeros in VMS basic??

First, HELP/LIBRARY=SYS$HELP:BASICHELP is your friend.

Then look at "PRINT USING" for capabilities.

print format$(123.45,"<0>###.##")
0123.45

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

On 2023-09-21, Arne Vajhøj <arne@vajhoej.dk> wrote:
> On 9/20/2023 8:24 AM, Simon Clubley wrote:
>> On 2023-09-20, Dave Froble <davef@tsoft-inc.com> wrote:
>>> Is it just me, or, was my Basic example shorter and easier to read than your
>>> Cobol, Fortran, and C examples?
>>
>> Arne could always add a Macro-32 example to that list... :-)
>
> I just added Cobol, Basic and Macro-32.
>
> And note that the Macro-32 code is shorter than the C code.
>
> Macro-32 initialization of FAB and RAB blocks are much shorter/easier
> than the C same.
>

Erm, people, my suggestion of using Macro-32 for an application program
was _supposed_ to be a joke. :-)

I thought everyone here knew what I thought of _that_ idea by now... :-)

Simon.

--
Simon Clubley, clubley@remove_me.eisner.decus.org-Earth.UFP
Walking destinations on a map are further away than they appear.

On 9/22/2023 7:08 AM, Dave Froble wrote:
> On 9/21/2023 9:12 PM, Arne Vajhøj wrote:
>> BTW, my basic code has a difference from the other languages as
>> I was not able to put leading zeroes in the 4 digits line number.
>> How does one get an integer formatted to a given width with leading
>> zeros in VMS basic??
>
> First, HELP/LIBRARY=SYS$HELP:BASICHELP is your friend.
>
> Then look at "PRINT USING" for capabilities.
>
> print format$(123.45,"<0>###.##")
> 0123.45

Works great. Thanks.

Arne

On 9/22/2023 6:23 AM, Johnny Billquist wrote:
> On 2023-09-22 03:12, Arne Vajhøj wrote:
>> BTW, my basic code has a difference from the other languages as
>> I was not able to put leading zeroes in the 4 digits line number.
>> How does one get an integer formatted to a given width with leading
>> zeros in VMS basic??
>
> BASIC2
>
> print format$(1, "Line _#<0>####_!")
>
>
> Line #00001!
>
> BASIC2
>
>
> (See HELP STA PRIN USI NUM for more details, I think...)
> (And yes, I used BASIC+2 and not VMS BASIC. But as far as I can
> remember, they are the same in this, and most other things.)

Works great. Thanks.

Arne

On 22/09/2023 13:20, Simon Clubley wrote:
> On 2023-09-21, Arne Vajhøj <arne@vajhoej.dk> wrote:
>> On 9/20/2023 8:24 AM, Simon Clubley wrote:
>>> On 2023-09-20, Dave Froble <davef@tsoft-inc.com> wrote:
>>>> Is it just me, or, was my Basic example shorter and easier to read than your
>>>> Cobol, Fortran, and C examples?
>>>
>>> Arne could always add a Macro-32 example to that list... :-)
>>
>> I just added Cobol, Basic and Macro-32.
>>
>> And note that the Macro-32 code is shorter than the C code.
>>
>> Macro-32 initialization of FAB and RAB blocks are much shorter/easier
>> than the C same.
>>
>
> Erm, people, my suggestion of using Macro-32 for an application program
> was _supposed_ to be a joke. :-)
>
> I thought everyone here knew what I thought of _that_ idea by now... :-)
>
> Simon.
>

I thought you were the joke!

--
Chris

On 9/22/2023 8:20 AM, Simon Clubley wrote:
> On 2023-09-21, Arne Vajhøj <arne@vajhoej.dk> wrote:
>> On 9/20/2023 8:24 AM, Simon Clubley wrote:
>>> On 2023-09-20, Dave Froble <davef@tsoft-inc.com> wrote:
>>>> Is it just me, or, was my Basic example shorter and easier to read than your
>>>> Cobol, Fortran, and C examples?
>>>
>>> Arne could always add a Macro-32 example to that list... :-)
>>
>> I just added Cobol, Basic and Macro-32.
>>
>> And note that the Macro-32 code is shorter than the C code.
>>
>> Macro-32 initialization of FAB and RAB blocks are much shorter/easier
>> than the C same.
>>
>
> Erm, people, my suggestion of using Macro-32 for an application program
> was _supposed_ to be a joke. :-)
>
> I thought everyone here knew what I thought of _that_ idea by now... :-)
>
> Simon.
>

I don't consider the example an application. It is rather examples on how to
perform a specific task in most or all the languages available on VMS.

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

On 2023-09-22, Chris Townley <news@cct-net.co.uk> wrote:
> On 22/09/2023 13:20, Simon Clubley wrote:
>>
>> Erm, people, my suggestion of using Macro-32 for an application program
>> was _supposed_ to be a joke. :-)
>>
>> I thought everyone here knew what I thought of _that_ idea by now... :-)
>>
>> Simon.
>>
>
> I thought you were the joke!
>

Hey!!! :-)

Simon.

--
Simon Clubley, clubley@remove_me.eisner.decus.org-Earth.UFP
Walking destinations on a map are further away than they appear.