Class User.MyFileStream Extends (%Library.File, %Stream.Interface)
{
/// Move to this <var>position</var> in the stream. If this suceeds then return
/// true, else return false. 
/// Note that moving to position  1  will be at the start of the stream, position  2  will be
/// at the second character of the stream, etc.
Method MoveTo(position As %Integer) As %Boolean
{
	Set position=position- 1 
	Set $zt="err"
	use ..Name:position
	Quit position= 0 
err
	set $zt=""
	if $e($ze, 1 , 9 )="<NOTOPEN>" quit  0 
	zq  1 
}
}