// open a text file using a %Library.File stream
Set file = ##class(%File).%New("\data\textfile.txt")
// same flags as OPEN command -- and requires "U" for streams
Do file.Open("RU") 

// Open a Person object containing a Memo stream
// and copy the file into Memo
Set person = ##class(Person).%New()
Do person.Memo.CopyFrom(file)

Set file = ##class(%File).%New("\data\textfile.txt")
Do file.Open("WU") 

Set person = ##class(Person).%OpenId(5)
Do file.CopyFrom(person.Memo)

load
	n
	s file="\\ksa\box\tmp\test"
	s oc=##class(soi.data.tmp).%OpenId(1)
	s file=file_"."_oc.str
	s of=##class(%File).%New(file)
	d of.Open("WNU")
	d of.CopyFrom(oc.test)
	d of.Close()
	k oc
	k of
	q
save
	n
	s file="\\ksa\box\tmp\t.jpg"
	s of=##class(%File).%New(file)
	d of.Open("RU")
	s oc=##class(soi.data.tmp).%New()
	s val=$re(file)
	s val=$p(val,".")
	s val=$re(val)
	s oc.str=val
	d oc.test.CopyFrom(of)
	d oc.%Save()
	d of.Close()
	k oc
	k of
	q

#define fileToProperty(%a,%b) s %file=##class(%Stream.FileBinary).%New(),%file.Filename=%a do %b.CopyFrom(%file)
#define propertyToFile(%cls,%id,%prp,%name) s %file=##class(%Stream.FileBinary).%New(),%file.Filename=%name do %file.CopyFromAndSave(##class(%cls).%OpenId(%id).%prp)
#define propertiesToFile(%prp,%name) s %file=##class(%Stream.FileBinary).%New(),%file.Filename=%name do %file.CopyFromAndSave(%prp)

load
	n
	s file="\\ksa\box\tmp\test"
	s oc=##class(soi.data.tmp).%OpenId(1)
	s file=file_"."_oc.str
	$$$propertiesToFile(oc.test,file)
	k oc
	q
save
	n
	s file="\\ksa\box\tmp\t.jpg"
	s val=$re(file)
	s val=$p(val,".")
	s val=$re(val)
	s oc=##class(soi.data.tmp).%New()
	s oc.str=val
	$$$fileToProperty(file,oc.test)
	d oc.%Save()
	k oc
	q