Cicode- SCADA

/*Calls TagGetScale and forces a cached read.  The hardware alarm is suppressed if the property is not ready or pending.*/

STRING

FUNCTION

TagGetScaleForeground(STRING sName, INT iPercent, INT iEngUnits)

    STRING  sResult;

    INT     iError;

    ! Enable user error checking.

    ErrSet(1);

   

    ! Get the tag scale from the cache.

    sResult = TagGetScale(sName, iPercent, iEngUnits, 1);

   

    ! Check for an error.

    iError = IsError();

   

    ! Disable user error checking.

    ErrSet(0);

   

    ! Set the hardware alarm unless the property value is not ready or pending.

    IF iError <> 0 AND iError <> 423 AND iError <> 432 THEN

        ErrTrap(iError, 0);

    END

   

    RETURN sResult;

END