Index Mapping - example supporting tool script code

localinformant prairieProv[] = create (; object=set, delimiter=",", \
	allowDuplicate=on, \
	elemNamesFromLineNum=1, firstCol=2, \
	lastCol=4, \
	file=$fullFileName)

localinformant atlanticProv[] = create (; object=set, delimiter=",", \
	allowDuplicate=on, \
	elemNamesFromLineNum=1, firstCol=5, \
	lastCol=8, \
	file=$fullFileName)

local prairieData[t,pp] = create (; dim=SEQ;time:1950:2010:30;year, dim=prairieProv, \
	dataFormat="odometer", \
	delimiter=",", \
	firstLine=2, firstCol=2, \
	ignoreExtraLines=on, \
	ignoreExtraCols=on, \
	file=$fullFileName)

local atlanticData[t,pp] = create (; dim=SEQ;time:1950:2010:30;year, dim=atlanticProv, \
	dataFormat="odometer", \
	delimiter=",", \
	firstLine=2, firstCol=5, \
	ignoreExtraLines=on, \
	ignoreExtraCols=on, \
	file=$fullFileName)

localinformant region[] = create (; object=set, \
	desc="Canadian regions", \
	elemName1="Atlantic", \
	elemName2="Quebec", \
	elemName3="Ontario", \
	elemName4="Manitoba", \
	elemName5="Saskatchewan", \
	elemName6="Alberta", \
	elemName7="British Columbia")

local regions_a[t,r] = create (; dim=SEQ;time:1950:2010:30;year, dim=region)
local regions_b[t,r] = create (; dim=SEQ;time:1950:2010:30;year, dim=region)