SUBROUTINE RDVOL1 C*********************************************************************** C C Author: Nick Bourgeois Version: 91a16a C 9605 Giddings Ave. NE C Albuquerque, NM 87109 C (505) 828-9566 C C C Description: C C Read and test the VOL1 label record. C C Call a routine to read the first record on the tape. If this C is not the VOL1 label record, set the error flag, display an C error message, and exit this subroutine. C C C Edit Record: C C 12-Oct-90: Original creation started. C 31-Oct-90: Original creation completed. C 16-Jan-91: Module taken from the TAPEDR suite. C C C Calling sequence: C C BtBfLn = C MTDvNm = C OutLun = C Read = C CALL RDVOL1 C C C Returns: C C Error C LblRcd C C C Called By: C C EFINIT C C C Routines Called: C C MTFOR C C*********************************************************************** INCLUDE 'EXTFLS.DAT' !Common & variables declarations CALL MTFOR (MTDvNm,Read,BtBfLn,ByteBf,Iret) IF (Iret .EQ. 0) GOTO 800 IF (LblRcd(1:4) .NE. 'VOL1') GOTO 800 GOTO 900 800 CONTINUE Error = .TRUE. TYPE *, 'RDVOL1: VOL1 label record expected' GOTO 900 900 CONTINUE RETURN END !RDVOL1.FOR.