(!****************************************************** Mosel Example Problems ====================== file recordout3.mos ``````````````````` Writing out records to spreadsheets or databases via ODBC. - Using 'initializations to' with the excel driver - (c) 2008 Fair Isaac Corporation author: S. Heipcke, Nov. 2007, rev. Dec. 2012 *******************************************************!) model "Record output (Excel)" uses "mmsheet" parameters CSTR = 'mmsheet.excel:recorddata.xls' end-parameters declarations PRODUCTS: set of string MACH: range ProdRec = record Cost: real Duration: integer end-record PDATA: dynamic array(PRODUCTS,MACH) of ProdRec R = 1..9 AllDataRec = record Product: string Mach: integer Cost: real Duration: integer end-record ALLDATA: array(R) of AllDataRec end-declarations ! **** Reading data from a text file initializations from "recorddata.dat" PDATA as "ProdData" ALLDATA as "AllData" end-initializations ! **** Write out complete records ! (This assumes that the output tables have been created previously.) ! ATTENTION: results from previous runs must be removed previously. ! Driver options: noindex - dense data initializations to CSTR PDATA as "ProdDataOut" ALLDATA as "noindex;AllDataOut" end-initializations ! **** Write out record fields initializations to CSTR PDATA(Cost) as "CostOut" ALLDATA(Product,Mach,Duration) as "noindex;DurationOut" end-initializations end-model