(!****************************************************** Mosel Example Problems ====================== file recordout6.mos ``````````````````` Writing out records to spreadsheets. - Using 'initializations to' with the csv driver - (c) 2012 Fair Isaac Corporation author: S. Heipcke, Dec. 2012 *******************************************************!) model "Record output (CSV)" uses "mmsheet" parameters CSTR= 'mmsheet.csv:recorddataout.csv' 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.) ! Driver options: noindex - dense data initializations to CSTR PDATA as "[B4:E12]" ALLDATA as "noindex;[G4:J12]" end-initializations ! **** Write out record fields initializations to CSTR PDATA(Cost) as "[B17:D25]" ALLDATA(Product,Mach,Duration) as "noindex;[G17:I25]" end-initializations end-model