?TACL ROUTINE
#FRAME
#PUSH vterm^process    { The process name of the VTERM process.               }
#PUSH jehutils         { The vol.subvol of the MCGUTILS library.              }
#PUSH up^routine       { A routine, that when run, brings up the VTERM proc.  }
#PUSH vtermlog         { The fully qualified name of the current VTERM log.   }
#PUSH stack            { A work stack.                                        }
#PUSH versions         { The number of versions of the rolled file to keep.   }
===============================================================================
#SET  vterm^process    $HOME
#SET  jehutils         $DISK1.MCGUTILS
#SET  up^routine       [jehutils].UPHOME
#SET  vtermlog         $DISK1.MCGDATA.VTERMLOG
#SET  versions         60
===============================================================================
[#IF [#PROCESSEXISTS [vterm^process]]
  |THEN|
  |ELSE|
    [up^routine]
]
[#IF [#MATCH SUCCESS [[mcgutils].FILEROL2 [vtermlog] [versions]]]
  |THEN|
    FUP CREATE [vtermlog], &
     LIKE [#FILEINFO/VOLUME/[vtermlog]].[#FILEINFO/FILE/[vtermlog]].F0000001
   [mcgutils].VTERM [vterm^process] OUT [vtermlog]
   [mcgutils].VTERM [vterm^process] OPEN OUT
]
#UNFRAME