SUBROUTINE EFINIT 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 Control the initialization process for the EXTFLS.SAV program. C C Call a routine to handle the mounting of the tape. Call a C routine to read and test certain information from the tape VOL1 C label record. Call a routine to select the desired saveset. C C If an error condition is returned by any of the routines called, C then exit this subroutine immediately. C C C Edit Record: C C 16-Jan-91: Original creation started. C 16-Jan-91: Original creation completed. C C C Calling sequence: C C CALL EFINIT C C C Called By: C C EXTFLS C C C Routines Called: C C MNTTAP C RDVOL1 C SLSVST C C*********************************************************************** INCLUDE 'EXTFLS.DAT' !Common & variables declarations CALL MNTTAP !Mount the tape. CALL RDVOL1 !Read VOL1 label record. IF (Error) GOTO 900 CALL SLSVST !Select the saveset. 900 CONTINUE RETURN END !EFINIT.FOR.