?TACL ROUTINE
#FRAME
#PUSH file              { The file to be accessed.                            }
#PUSH eof               { The EOF of the file.                                }
#PUSH addr              { The addr of the next record to be displayed.        }
#PUSH rec^len           { The record size.                                    }
#PUSH mcgutils          { The location of the MCGUTILS library.               }
#PUSH process           { Optional process name.                              }
===============================================================================
#SET rec^len        159
#SET mcgutils       $DISK1.MCGUTILS
#SET file           $DISK1.MCGDATA.VTERMLOG
SINK [#ARGUMENT/VALUE process/PROCESSNAME/SYNTAX/ END]
===============================================================================
#SET eof [#FILEINFO/EOF/[file]]


#OUTPUT [mcgutils].JLIST/NAME [process]/[file],TR,EOF,KEY [eof],RECIN [rec^len]
        [mcgutils].JLIST/NAME [process]/[file],TR,EOF,KEY [eof],RECIN [rec^len]