--- capa/capa51/GUITools/capastats.tcl	1999/12/13 21:38:44	1.7
+++ capa/capa51/GUITools/capastats.tcl	2000/01/05 21:11:15	1.8
@@ -2923,4 +2923,18 @@ proc CTcreateSummaryReport { num cmdnum
 	CTputs $cmdnum [read $fileId]
 	CToutput $num $cmdnum 
     }
+}
+
+###########################################################
+# CTsetList
+###########################################################
+###########################################################
+###########################################################
+proc CTsetList { num } {
+    global gCT gFile
+    set list ""
+    for { set i 0 } { $i < 1000 } { incr i } {
+	if { [file readable [file join $gFile($num) records set$i.db]] } {
+	    lappend list 
+    }
 }
\ No newline at end of file