*******************************************************************************
*
*	Detach a TAPE drive
*
*	Module	%M%	Version	%I% 	Date	%H%
*
*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*	This is unpublished proprietary source code of Ardent Software Inc.
*	The copyright notice above does not evidence any actual or intended
*	publication of such source code.
*
*******************************************************************************
*
*	Maintenence log - insert most recent change descriptions at top
*
*	Date.... GTAR# WHO Description.........................................
*	10/13/98 23801 RGA Change copyright info.
*	07/02/90 6994  JWT integrate ULTIMATE patch for syntax support
*	07/25/88   -    -  Maintenence log purged at 5.2.1, see release 5.1.10.
*
*******************************************************************************

$OPTIONS DEFAULT

	@SYSTEM.RETURN.CODE = -1
	open "VOC" to f.VOC else
		print 'Unable to open your VOC'
		stop
	end

	dim line(3)
		
	matparse line from trim(@sentence) , " "

	begin case
	case inmat() = 1
		chain 'UNASSIGN MT0'
	case inmat() = 2
		if num(line(2))
		then
			unit = mod(line(2),10)
			chain "UNASSIGN MT":unit
		end
		read item from f.VOC,upcase(line(2)) else item = ''
		if upcase(item<1>)[1,1] = 'K' and item<2> = 40 then
			print 'Missing MTU specification'
			stop
		end else
			max = len(line(2))
			if line(2)[1,1] = '(' then
				line(2) = line(2)[2,max-1]
				max-=1
			end
			if line(2)[max,1] = ')' then
				line(2) = line(2)[1,max-1]
				max-=1
			end
			if upcase(line(2)) = 'U' then
				print 'Magnetic tape operation not supported.'
				stop
			end else
				print 'Illegal token "':line(2):'" found on the command line.'
				stop
			end
		end
	case 1
		read item from f.VOC,upcase(line(2)) else item = ''
		if upcase(item<1>)[1,1] # 'K' and item<2> # 40 then
			print 'Illegal token "':line(2):'" found on the command line.'
			stop
		end
		if not(num(line(3))) then
			print 'Illegal MTU specification "':line(3):'"'
			stop
		end
		unit = mod(line(3),10)
		chain "UNASSIGN MT":unit
	end case