(!*******************************************************
Mosel Example Problems
======================
file indexeg5.mos
`````````````````
Using ODBC with dense and sparse format data tables.
- Using 'initializations from' with the xls driver -
(c) 2012 Fair Isaac Corporation
author: S. Heipcke, Dec. 2012, rev. Apr. 2014
*******************************************************!)
model "ODBCImpEx3 (generic spreadsheet)"
uses "mmsheet"
parameters
! CSTR = 'mmsheet.xls:indexeg.xls'
CSTR = 'mmsheet.xlsx:indexeg.xlsx'
end-parameters
declarations
A: array(1..3, 1..2) of real
B: array(1..2, 1..3) of real
C: array(1..2, 1..3) of real
D: array(R:range, 1..3) of real
end-declarations
! Dense data ('noindex'), skipping the header line ('skiph')
initializations from CSTR
A as 'skiph;noindex;Range3by2'
end-initializations
writeln("\n ===A=== ")
forall(i in 1..3)
writeln("Row(",i,"): ", A(i,1), " ", A(i,2))
! Dense data
initializations from CSTR
B as 'skiph;noindex;Range2by3'
end-initializations
writeln("\n ===B=== ")
forall(i in 1..2)
writeln("Row(",i,"): ", B(i,1), " ", B(i,2), " ", B(i,3))
! Indexed data
initializations from CSTR
C as 'skiph;Range2by3i'
end-initializations
writeln("\n ===C=== ")
forall(i in 1..2)
writeln("Row(",i,"): ", C(i,1), " ", C(i,2), " ", C(i,3))
! Partially indexed ("rectangular format") data
initializations from CSTR
D as 'skiph;partndx;RectRange'
end-initializations
writeln("\n ===D=== ")
forall(i in R)
writeln("Row(",i,"): ", D(i,1), " ", D(i,2), " ", D(i,3))
end-model