SUBROUTINE SLSVST C*********************************************************************** C C Author: Nick Bourgeois Version: 90l05a C 9605 Giddings Ave. NE C Albuquerque, NM 87109 C (505) 828-9566 C C C Description: C C Select the desired saveset. C C Call a routine to prompt for and accept the save set name. C Write the saveset name and a blank line to the output file. C Call a routine to position the tape to the start of the selected C saveset. C C If a write error occurs, set the error flag, display an error C message, and then exit this subroutine. C C C Edit Record: C C 14-Nov-90: Original creation started. C 05-Dec-90: Original creation completed. C C C Calling sequence: C C OutLun = C SSNmLn = C CALL SLSVST C C C Returns: C C Error C SSName C C C Called By: C C SDINIT C C C Routines Called: C C GTSSNM C POSTAP C C*********************************************************************** INCLUDE 'SVSTDR.DAT' !Common & variables declarations CALL GTSSNM !Get the saveset name. WRITE (OutLun,*,ERR=850) 'Selected saveset name: ', * SSName(1:SSNmLn) WRITE (OutLun,*,ERR=850) CALL POSTAP !Position the tape. GOTO 900 850 CONTINUE Error = .TRUE. TYPE *, 'SLSVST: write error' 900 CONTINUE RETURN END !SLSVST.FOR.