EJECT 96B Copyright (c) 1991 Allegro Consultants, Inc. (408) 252-2330 Written by Stan Sieler (sieler@gmail.com) EJECT is a privileged program that tries to control DDS tape ejection. It must reside in a group.account with PM capability. (See "NOTES:" below!) MINIMAL testing has been done! Usage: run eject;info=" [LDEV] ldev# " For more help information, do: run eject, help Examples: (assuming program is EJECT.PUB.SYS) (and assuming ldev 7 is a tape drive (or DDS)) tape (or cassette) mounted, but off-line) :eject "LDEV 7 ENABLE" ... enables automatic tape ejection at file close time :eject "LDEV 7 DISABLE" ... disbles automatic tape ejection at file close time :eject "LDEV 7 ONCE" ... enables ONE TIME automatic tape ejection at file close time (reverts to DISABLE after the tape is ejected) NOTES: If the ldev you specify is not a tape drive, EJECT will complain. MINIMAL testing has been done! EJECT is not able to determine if the device is truly a DDS, as opposed to some other kind of tape drive. You probably should not try it on non-DDS drives. EJECT 20140822 Copyright (c) 1996 Allegro Consultants, Inc.