TCL TK SCRIPT Help Please

Hi Seniors,

Need a help from your end. I am new to scripting and still in the learning process of scripting. I have written a script on TCL TK.

This is the script that i have written.

if { $EssEntityType == "rss_user" && $EssAction == "Insert" } {
puts $fp " Ess Action :$EssAction"

set rss_type [EssGetFieldValue "rss_type"]
set rss_name [EssGetFieldValue "rss_name"]
set rss_user [EssGetFieldValue "rss_user_name"]
set ent_user [EssGetFieldValue "user_id"]

puts $fp " Rss type :$rss_type , Rss name :$rss_name , rss_user name : $rss_user"

if { "$rss_type" == "Win2000" } {
if { "$ent_user" != "-" } {
set len [ string length $ent_user ]
set employeeID [ string range $ent_user [expr $len-5] $len ]
puts $fp "Populating EMPLOYEE ID for rss_user : rss_user"
set tvalue "1"
puts $fp "Value $tvalue"
set CMD "Refresh rss_user with rss_user_name=\"$rss_user\" rss_name=\"$rss_name\" \
rss_type=\"$rss_type\" set __47__EmployeeID=\"$employeeID\" SET __99__TRANS_PRIORITY=\"$tvalue\"; EXECUTE;"
doBatch "$CMD"
}
}
}

-------------------------------------------------------------

The output fails with the below siad error. Can you please let me know where i am doing wrong.

---------------------- BATCHRUN STARTED \-------------------------
No input file was specified , input redirected to stdin.

>>>> Line Number:1

Executing -> Refresh rss_user with rss_user_name="CN=ca10000,CN=Users,DC=deltapre,DC=ent" rss_name="sacprectrlsa" rss_type="Win2000" set __47__EmployeeID="10000" SET __99__TRANS_PRIORITY="1"

>>>> ERROR in Line 1 <<<
>>>> Line Number:2

Executing -> EXECUTE
OK