12.10.18          Test if Integer Number

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}