Statistics

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

Source

ACCESS Statistics AS STRING PASCAL CLASS TS_Traverse
LOCAL cStatistics AS STRING
   cStatistics:=NULL_STRING
   IF LOGIC( _CAST, SELF:Arrays )
      IF LOGIC( _CAST, cStatistics )
         cStatistics+=","
      ELSE
         cStatistics:=""
      END
      cStatistics+="A"+NTrim( SELF:Arrays )
      IF LOGIC( _CAST, SELF:NullArrays )
         cStatistics+="a"+NTrim( SELF:NullArrays )
      END
      IF LOGIC( _CAST, SELF:ArrayReUses )
         cStatistics+="R"+NTrim( SELF:ArrayReUses )
      END
      IF LOGIC( _CAST, SELF:ArraySelfRefs )
         cStatistics+="X"+NTrim( SELF:ArraySelfRefs )
      END
   END
   IF LOGIC( _CAST, SELF:CodeBlocks )
      IF LOGIC( _CAST, cStatistics )
         cStatistics+=","
      ELSE
         cStatistics:=""
      END
      cStatistics+="B="+NTrim( SELF:CodeBlocks )
      IF LOGIC( _CAST, SELF:NullCodeBlocks )
         cStatistics+="b"+NTrim( SELF:NullCodeBlocks )
      END
   END
   IF LOGIC( _CAST, SELF:Strings )
      IF LOGIC( _CAST, cStatistics )
         cStatistics+=","
      ELSE
         cStatistics:=""
      END
      cStatistics+="C"+NTrim( SELF:Strings )
      IF LOGIC( _CAST, SELF:NullStrings )
         cStatistics+="c"+NTrim( SELF:NullStrings )
      END
   END
   IF LOGIC( _CAST, SELF:Dates )
      IF LOGIC( _CAST, cStatistics )
         cStatistics+=","
      ELSE
         cStatistics:=""
      END
      cStatistics+="D"+NTrim( SELF:Dates )
      IF LOGIC( _CAST, SELF:NullDates )
         cStatistics+="d"+NTrim( SELF:NullDates )
      END
   END
   IF LOGIC( _CAST, SELF:Logics )
      IF LOGIC( _CAST, cStatistics )
         cStatistics+=","
      ELSE
         cStatistics:=""
      END
      cStatistics+="L="+NTrim( SELF:Logics )
   END
   IF LOGIC( _CAST, SELF:NumericFloats )
      IF LOGIC( _CAST, cStatistics )
         cStatistics+=","
      ELSE
         cStatistics:=""
      END
      cStatistics+="F"+NTrim( SELF:NumericFloats )
      IF LOGIC( _CAST, SELF:NullNumericFloats )
         cStatistics+="f"+NTrim( SELF:NullNumericFloats )
      END
   END
   IF LOGIC( _CAST, SELF:NumericLongs )
      IF LOGIC( _CAST, cStatistics )
         cStatistics+=","
      ELSE
         cStatistics:=""
      END
      cStatistics+="N"+NTrim( SELF:NumericLongs )
   END
   IF LOGIC( _CAST, SELF:Objects )
      IF LOGIC( _CAST, cStatistics )
         cStatistics+=","
      ELSE
         cStatistics:=""
      END
      cStatistics+="O"+NTrim( SELF:Objects )
      IF LOGIC( _CAST, SELF:NullObjects )
         cStatistics+="o"+NTrim( SELF:NullObjects )
      END
   END
   IF LOGIC( _CAST, SELF:NILs )
      IF LOGIC( _CAST, cStatistics )
         cStatistics+=","
      ELSE
         cStatistics:=""
      END
      cStatistics+="U"+NTrim( SELF:NILs )
   END
   IF LOGIC( _CAST, SELF:Symbols )
      IF LOGIC( _CAST, cStatistics )
         cStatistics+=","
      ELSE
         cStatistics:=""
      END
      cStatistics+="S"+NTrim( SELF:Symbols )
      IF LOGIC( _CAST, SELF:NullSymbols )
         cStatistics+="s"+NTrim( SELF:NullSymbols )
      END
   END
   IF LOGIC( _CAST, SELF:Pointers )
      IF LOGIC( _CAST, cStatistics )
         cStatistics+=","
      ELSE
         cStatistics:=""
      END
      cStatistics+="P"+NTrim( SELF:Pointers )
      IF LOGIC( _CAST, SELF:NullPointers )
         cStatistics+="p"+NTrim( SELF:NullPointers )
      END
   END
   IF LOGIC( _CAST, SELF:ValTypeError )
      IF LOGIC( _CAST, cStatistics )
         cStatistics+=","
      ELSE
         cStatistics:=""
      END
      cStatistics+="V"+NTrim( SELF:ValTypeError )
   END
   IF !LOGIC( _CAST, cStatistics )
      cStatistics:=""
   END
RETURN cStatistics