Test if tag input is a decimal integer (i.e. a positive number with no decimal places).
# Following Test in NOT NECESSARY if ANALOG TAGS are used
# following code requires input be a
# number with 0 to 9, no decimal, no - minus sign etc.
set arg1 [GETVAL tag1]
SETVAL {Txt= }
set comparison1 [string compare "9" $arg1]
set comparison [string compare $arg1 "0"]
if {$comparison && $comparison1} {
set {errTxt=Entry is a positive integer number}
} else {
set {errTxt=Please enter a positiveinteger}
}