# $Header: /home/cvsroot/tcldb/wisql/Tlib/seeSQL,v 1.3 1997/08/28 05:24:20 de Exp $
# tcl procs saved on Tue Sep 05 09:33:11 PDT 1995

proc seeSQL w {

	global DB
	upvar #0 EZRsqlcmd sqlcmd

	mkSQL $w 

	mkAlert "EZrpt SQL" "\"$sqlcmd\"" "OK" l seesql

}

