FORTRAN-77/RT
MAGTAPE Sequence Number Support for OPEN command
13-Aug-85

* * * P R E L I M I N A R Y * * *

NOTE: This kit is for Release 1 of FORTRAN-77/RT only. Support for Release
2 will be provided at a later time.

The module OPEN.OBJ is a modified version of the F77OTS routine for opening
a file that contains support for MAGTAPE sequence numbers. Link directly
with it, or if you are daring, install it in your SYSLIB. A variable
$SEQNM, which shows up in the link map, contains the default value to be
used for the SEQNUM argument when a .LOOKUP .or .ENTER is performed.
A subroutine has also been added to allow $SEQNM to be set from a FORTRAN
program. The suboutine is used as follows:

CALL MTSEQN ( N ) to set $SEQNM to N.

Alternatively, you could SIPP patch the location $SEQNM to contain the
value you desire.