EvalNumericLong

(Available in 00 TS Base(Base) - TS_Base_0_Traverse)

Source

METHOD EvalNumericLong( liItem AS LONG ) AS VOID PASCAL CLASS TS_Traverse
   SELF:NumericLongs+=1U
   IF SELF:_Profiling
      IF liItem<>0L
         SELF:_ProfileAddString( "N" )
      ELSE
         SELF:_ProfileAddString( "n" )
      END
   END
RETURN