SUBROUTINE SDINIT C*********************************************************************** C C Author: Nick Bourgeois Version: 90l04a 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 SVSTDR.SAV program. C C Call a routine to handle the mounting of the tape. Call a C routine to name and open the output (saveset directory) file. C Call a routine to read and report certain information from the C tape VOL1 label record. Call a routine to select the desired C 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 13-Nov-90: Original creation started. C 04-Dec-90: Original creation completed. C C C Calling sequence: C C CALL SDINIT C C C Called By: C C SVSTDR C C C Routines Called: C C MNTTAP C OPNFIL C RDVOL1 C SLSVST C C*********************************************************************** INCLUDE 'SVSTDR.DAT' !Common & variables declarations CALL MNTTAP !Mount the tape. CALL OPNFIL !Open the output file. IF (Error) GOTO 900 CALL RDVOL1 !Read VOL1 label record. IF (Error) GOTO 900 CALL SLSVST !Select the saveset. 900 CONTINUE RETURN END !SDINIT.FOR.