@@ -768,11 +768,13 @@ ClassMethod AddRelated(def As %Dictionary.ClassDefinition, ByRef classes, includ
768
768
}
769
769
770
770
/// Simple method to retrieve the storage consumption of your IRIS SQL table
771
- ClassMethod TableSize (tableName As %String = " " , Output info , fast As %Boolean = 0 , verbose As %Boolean = 1 ) As %Status
771
+ ClassMethod TableSize (tableName As %String = " " , Output info , fast As %Integer = 2 , verbose As %Boolean = 1 ) As %Status
772
772
{
773
773
kill info
774
774
set sc = $$$OK
775
775
try {
776
+ // revert to simple fast flag prior to 2023.3
777
+ set :(fast =2 )&&(($SYSTEM .Version .GetMajor ()<2023 )||($SYSTEM .Version .GetMinor ()<3 )) fast =1
776
778
777
779
if ('$system .SQL .Schema .TableExists (tableName , .metadata )) || ($ld (metadata ,3 )=" " ) {
778
780
set sc = $$$ERROR($$$TableDoesNotExist, tableName )
@@ -872,11 +874,11 @@ Warn(message, level="WARNING")
872
874
}
873
875
874
876
/// SQL Query wrapper for <method>TableSize</method>
875
- Query TableSizeSQL (tableName As %String , fastSize As %Boolean = 0 , showWarnings As %Boolean = 0 ) As %Query (ROWSPEC = " global:%String,allocatedMB:%Numeric,usedMB:%Numeric" ) [ SqlName = TableSize , SqlProc ]
877
+ Query TableSizeSQL (tableName As %String , fastSize As %Integer = 0 , showWarnings As %Boolean = 0 ) As %Query (ROWSPEC = " global:%String,allocatedMB:%Numeric,usedMB:%Numeric" ) [ SqlName = TableSize , SqlProc ]
876
878
{
877
879
}
878
880
879
- ClassMethod TableSizeSQLExecute (ByRef qHandle As %Binary , tableName As %String , fastSize As %Boolean = 0 , showWarnings As %Boolean = 0 ) As %Status [ Internal , ServerOnly = 1 ]
881
+ ClassMethod TableSizeSQLExecute (ByRef qHandle As %Binary , tableName As %String , fastSize As %Integer = 0 , showWarnings As %Boolean = 0 ) As %Status [ Internal , ServerOnly = 1 ]
880
882
{
881
883
kill qHandle
882
884
set sc = ..TableSize (tableName , .info , fastSize , 0 )
0 commit comments