#!/bin/sh  
# \
exec oagtclsh "$0" "$@"
set auto_path [linsert $auto_path 0  /usr/local/oag/apps/lib/$env(HOST_ARCH)]
set auto_path [linsert $auto_path 0 /usr/local/oag/lib_patch/$env(HOST_ARCH)]
set CVSRevisionAuthor "\$Revision: 1.1 $ \$Author: soliday $"

APSStandardSetup

set controlNames ""
set minValues ""
set maxValues ""
set tolerance ""
set count ""
foreach sector "1 2 3 4 5" {
    sdds load /home/helios/iocinfo/oagData/controllaw/linacRf/rfPowerL${sector}/rfPowerL${sector}.tests data$sector
    foreach cn [lindex [set data${sector}(Column.ControlName)] 0] {
	lappend controlNames $cn
	lappend tolerance NaN
	lappend count 1
    }
    foreach min [lindex [set data${sector}(Column.MinimumValue)] 0] {
	lappend minValues $min
    }
    foreach max [lindex [set data${sector}(Column.MaximumValue)] 0] {
	lappend maxValues $max
    }
}
set data(Layout.DataMode.Mode) "ascii"
set data(ColumnNames) "ControlName MinLimit MaxLimit Tolerance MaxReading CountRequired"
set data(ParameterNames) "AlarmStartCmd AlarmStopCmd"
set data(ColumnInfo.MinLimit) "type SDDS_DOUBLE"
set data(ColumnInfo.MaxLimit) "type SDDS_DOUBLE"
set data(ColumnInfo.Tolerance) "type SDDS_DOUBLE"
set data(ColumnInfo.MaxReading) "type SDDS_DOUBLE"
set data(ColumnInfo.CountRequired) "type SDDS_LONG"

set data(Parameter.AlarmStartCmd) [list ""]
set data(Parameter.AlarmStopCmd) [list ""]
set data(Column.ControlName) [list $controlNames]
set data(Column.MinLimit) [list $minValues]
set data(Column.MaxLimit) [list $maxValues]
set data(Column.Tolerance) [list $tolerance]
set data(Column.MaxReading) [list $tolerance]
set data(Column.CountRequired) [list $count]

set fileName /tmp/[APSTmpString]
APSAddToTempFileList $fileName
sdds save $fileName data

exec PVmonitor -fileName $fileName -start 1 &

after 10000

