﻿)load C:\Docs\Dyalog\Conf_2012\databases\storageclasses
⎕FUNTIE ⎕FNUMS
filename←'c:\temp\matstoretest'
ComponentFile.Delete filename
dimnames←'Country' 'Product' 'Year' 'Month'
countries←'Denmark' 'Norway' 'Sweden'
products←'Skis' 'Cheese' 'Sweaters'
years←2000+⍳20
months←'Jan' 'Feb' 'Mar' 'Apr' 'May' 'Jun' 'Jul' 'Aug' 'Sep' 'Oct' 'Nov' 'Dec' 'Total'
cellrank←3 ⍝ Each file component will contain products×years×months for one country
ms←MatStore.Create filename dimnames (countries products years months) cellrank
ms.(DimNames,⍪Shape)
data←((?2 12⍴10)+100 100∘.+⍳12),0 ⍝ With totals=0
ms['Denmark' 'Norway';⊂'Skis';2012;]←data
ms['Denmark' 'Norway';⊂'Skis';2011 2012 2013;]
ms['Denmark' 'Norway';⊂'Skis';2012;⊂'Total']←+/data
ms['Denmark' 'Norway';⊂'Skis';2012;]
⎕FNAMES ⎕FNUMS
'Data for Denmark Ski Sales 2012:'((⎕FREAD 1 11)[1;12;])
'Data for Norway  Ski Sales 2012:'((⎕FREAD 1 12)[1;12;])
⎕FUNTIE 1