# $Header: /home/cvsroot/tcldb/wisql/Tlib/clearEZrpt,v 1.3 1997/08/25 03:14:39 de Exp $
# tcl procs saved on Tue Sep 05 09:32:30 PDT 1995

proc clearEZrpt {} {


upvar #0 EZRcols cols
upvar #0 EZRcolatts colatts
upvar #0 EZRwhere where
upvar #0 EZRsorts sorts
upvar #0 EZRprints prints
upvar #0 EZRgorp gorp
upvar #0 EZRgors gors
upvar #0 EZRnumsrt numsrt
upvar #0 EZRnumprt numprt
upvar #0 EZRnumcol numcol
upvar #0 EZRporder porder
upvar #0 EZRsorder sorder
upvar #0 EZRop op
upvar #0 EZRcol col
upvar #0 EZRind ind
upvar #0 EZRcomp1 comp1
upvar #0 EZRcomp2 comp2
upvar #0 EZRsqlcmd sqlcmd
upvar #0 EZRdist dist

# puts stderr "Clear EZrpt..."

set cols {}
set colnames {}
set types {}
set sizes {}
set dist 0

set ierr [catch {set n [array size where]}]
if {$ierr == 0} {
	foreach elem [array names where] {
		unset where($elem)
	}
}

foreach arr {sorts prints gorp gors sorder porder} {
#	puts stderr "clear array $arr"
	set ierr [catch {set n [array size $arr]}]
	if {$ierr == 0} {
		foreach elem [array names $arr] {
#			puts stderr "  clearing array $arr element $elem"
			eval unset ${arr}($elem)
		}
	}
}
#
set where(0,sql) " "
set where(0,op) ""
set where(0,c1) ""
set where(0,c2) ""

set prints(0) "0"
set porder(0) ""
set sorts(0) ""
set sorder(0) ""

set numcol 0
set numprt 0
set numsrt 0

set op ""
set col ""
set ind ""
set comp1 ""
set comp2 ""
set sqlcmd ""


}

