﻿)load C:\Docs\Dyalog\Conf_2012\databases\storageclasses
⎕FUNTIE ⎕FNUMS
ObjectStore.Delete'c:\temp\objtest'
)ed Person
p1←⎕NEW Person ('Kirstine' 1988)
p1.(Name YOB)
)ed PersonS
ps←⎕NEW PersonS ('Kristoffer' 1985)
ps.(Name YOB)
of←⎕NEW ObjectStore 'c:\temp\objtest'
of[⊂'kir']←p1
of[⊂'kris']←ps
kir←of[⊂'kir']
kris←of[⊂'kris']
kir.YOB←1989
of[⊂'kir']←kir
⎕FNAMES ⎕FNUMS
{⎕←DISP(⊂'Component ',(⍕⍵),':'),⊂⎕FREAD 1 ⍵}¨1 2 6 7
⎕FUNTIE 1
