11.12 x/zvtpset—Set tape drive position globals

call xvtpset(name,file,rec) 
status =zvtpset(name,file,rec) 

x/zvtpset is a special purpose routine which should not be used by normal VICAR applications. It is intended to be used ONLY as a companion to the non-standard routine x/zvtpinfo.
x/zvtpset will save the tape position given by the FILE and REC arguments for the drive NAME in the VICAR supervisor global variables $TFILE and $TREC so that the next program to execute will know the proper tape position.

Arguments:

• NAME: input, string
  NAME is the symbolic name which was used in the VICAR MOUNT command to mount the tape. It is the same as the NAME parameter for x/zvtpinfo.
• FILE: input, integer
  FILE is the current file number of the tape (the first file is file 1). If the true file number is not passed in for FILE, then the next VICAR program will most likely read the wrong file on the tape.
• REC: input, integer
  REC is the current record number in the current file on the tape (the first record is record 1).