[r803]: / branches / FeatureBranches / PrimaryHost / SparkplugB / Function Blocks / FB_RemoteDevice / FB_RemoteDevice / setAllMetricsStatus / svnobj  Maximize  Restore  History

Download this file

22 lines (21 with data), 2.6 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
METHOD setAllMetricsStatus
VAR_INPUT
    NewStatus : MetricStatus;
END_VAR
VAR_OUTPUT
    xError : BOOL;
    eError : Error;
VAR
	existingHasNextMetric : BOOL;
	itfExistingElement  : IElement;
xError := FALSE;
eError := Error.NO_ERROR;
_Metrics.ItterateRestart(HasNext => existingHasNextMetric);
WHILE existingHasNextMetric DO	
    IF __QUERYINTERFACE(itfExistingElement, itfExistingMetric) THEN
        itfExistingMetric.Status := NewStatus;
    ELSE
        xError := TRUE;
        eError := Error.OhMy_ThatShouldNotHaveHappened; 
	END_IF    
END_WHILE