[Info-vax] Meditech in the news

[Arne Vajhøj]

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

Arne