(!****************************************************** Mosel Example Problems ====================== file recordin5.mos `````````````````` Reading records from spreadsheets. - Using 'initializations from' with the xls driver - (c) 2012 Fair Isaac Corporation author: S. Heipcke, Dec. 2012 *******************************************************!) model "Record input (generic spreadsheet)" uses "mmsheet" parameters ! CSTR= 'mmsheet.xls:skiph;recorddata.xls' CSTR= 'mmsheet.xlsx:skiph;recorddata.xlsx' end-parameters declarations PRODUCTS: set of string MACH: range ProdRec = record Cost: real Duration: integer end-record PDATA,PDATA2: dynamic array(PRODUCTS,MACH) of ProdRec R = 1..9 AllDataRec = record Product: string Mach: integer Cost: real Duration: integer end-record ALLDATA,ALLDATA2: array(R) of AllDataRec end-declarations ! **** Reading complete records initializations from CSTR PDATA as "ProdData" ALLDATA as "noindex;ProdData" end-initializations ! **** Reading record fields initializations from CSTR PDATA2(Cost) as "CostData" ALLDATA2(Product,Mach,Duration) as "noindex;DurationData" end-initializations ! Now let us see what we have writeln('PDATA is: ', PDATA) writeln('ALLDATA is: ', ALLDATA) writeln('PDATA2 is: ', PDATA2) writeln('ALLDATA2 is: ', ALLDATA2) end-model