regina/demo/testvms.rexx

   1 /*
   2  * Test program for Regina 3.3
   3  *
   4  * This program tests the OpenVMS specific BIFs.
   5  *
   6  */
   7 Trace o
   8 Say
   9 Say 'Name of the my current disk:' f$getdvi("sys$disk:", 'volnam')
  10 Say 'My own pid:' f$getjpi("0","pid")
  11 Say Begin of external command
  12 dir '*.cxx'
  13 Say end of external command
  14 Return 0