[Info-vax] Meditech in the news

[Bill Gunshannon]

On 1/10/22 8:34 AM, Arne Vajhøj wrote:
> On 1/10/2022 4:31 AM, Bob Eager wrote:
>> On Sun, 09 Jan 2022 19:58:48 -0500, Arne Vajhøj wrote:
>>> And I get a REXX.EXE.
>>>
>>> Unfortunately I cannot test it because I don't know REXX.
>>
>> Easy test. Feed it:
>>
>>    say 'Hello, world'
> 
> That works.
> 
> $ type bob.rexx
> say 'Hello, world'
> $ mcr []rexx bob.rexx
> Hello, world
> 
> The little test program that it comes with also works:
> 
> $ typ [.demo]testvms.rexx
> /*
>   * Test program for Regina 3.3
>   *
>   * This program tests the OpenVMS specific BIFs.
>   *
>   */
> Trace o
> Say
> Say 'Name of the my current disk:' f$getdvi("sys$disk:", 'volnam')
> Say 'My own pid:' f$getjpi("0","pid")
> Say Begin of external command
> dir '*.cxx'
> Say end of external command
> Return 0
> $ mcr []rexx [.demo]testvms.rexx
> 
> Name of the my current disk: DISK2
> My own pid: 0000043E
> BEGIN OF EXTERNAL COMMAND
> %DIRECT-W-NOFILES, no files found
> END OF EXTERNAL COMMAND
> 

If you want a more detailed test, Rosetta Code has a bunch of REXX
examples.

bill