11.10 x/zvtpinfo—Return tape drive information

call xvtpinfo(name,device,file,rec) 
status= zvtpinfo(name,device,file,rec) 

x/zvtpinfo is not for use by normal VICAR applications. It is used by certain specialized applications which need to access the tape drive directly without using the VICAR I/O.
Given the symbolic name of the tape drive from the VICAR MOUNT command, x/zvtpinfo will return the physical device name and the current position on the tape.

Arguments:

• NAME: input, string
  NAME is the symbolic name which was provided to VICAR when the MOUNT or ALLOC command was issued (the NAME parameter).
• DEVICE: output, string
  DEVICE is the physical name of the tape drive as supplied to the MOUNT or ALLOC command via the DEVICE parameter. This name may be used in calls to host routines (such as VMS system services) to manipulate the drive.
• FILE: output, integer
  FILE is the current file position on the tape, as stored in the VICAR global $TFILE. If x/zvtpinfo is used with non-VICAR I/O to manipulate the drive, after the program is done x/zvtpset should be called to ensure that the file number and record number are accurate.
• REC: output, integer
  REC is the current record number of the current file on the tape, as stored in the VICAR global $TREC. If x/zvtpinfo is used with non-VICAR I/O to manipulate the drive, after the program is finished with its task x/zvtpset should be called to ensure that the file number and record number are accurate.