Clovertech
Kevin,
Thank you, it worked
Robert,
Thank you.
I just move the required code into first tcl proc.
Jim
thanks a lot. Its working as you suggested