Writing Data to iFIX

This example demonstrates how to call the FixDataSystem control from a VBScript to write values out to iFIX.

Example Code

Dim FDS
                Dim the_sec
on error resume next
the_sec = Second(CurrentTime())
Set FDS = CreateObject("FixDataSystems.Intellution FD Data System Control")
if err.number = 0 then FDS.Groups.Add ("Group1") 
FDS.Groups.Item("Group1").DataItems.Add "Fix32.T20.TAG1.F_CV" 
FDS.Groups.Item("Group1").DataItems.Item(1).Value = the_sec 
FDS.Groups.Item("Group1").Write
FDS.Groups.Clear Result = the_sec SET FDS = Nothing 
else
' just some number outside 0 to 59 so we know it is invalid result = 99
end if