#	@(#)Form.unmount	13.3 (RC International) 91/10/11

#ident	"@(#)oamintf:files/unmount/Form.unmount	1.5"
Form="Unmount a File System"
help=OPEN TEXT $INTFBASE/Text.itemhelp $LININFO
 
`readfile $INTFBASE/form.msg | message -p;
set -l ERRTLE="Unmount-Error"`

done=`indicator -w;
	set -l FS=$F1;
		set -l CMD="OPEN $OBJ_DIR/Form.umountfs";
	`$CMD

name="Volume to be unmounted:"
lininfo=Form.unmount:F1
nrow=1
ncol=1
frow=1
fcol=24
rows=1
columns=30
rmenu={ `find /dev -type xlv -exec ls \{\} \;` } 
menuonly=true
valid=`$OAMBASE/bin/validdev "$F1"`
invalidmsg="Press CHOICES to select valid response."