SUBROUTINE SLSVST 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 Select the desired saveset. C C Call a routine to prompt for and accept the save set name. C Call a routine to position the tape to the start of the selected C saveset. C C C Edit Record: C C 14-Nov-90: Original creation started. C 05-Dec-90: Original creation completed. C 16-Jan-91: Module taken from the SVSTDR suite. C C C Calling sequence: C C CALL SLSVST C C C Returns: C C Error C SSName C C C Called By: C C EFINIT C C C Routines Called: C C GTSSNM C POSTAP C C*********************************************************************** INCLUDE 'EXTFLS.DAT' !Common & variables declarations CALL GTSSNM !Get the saveset name. CALL POSTAP !Position the tape. RETURN END !SLSVST.FOR.