Hi All,
I have an TCL application. The application seems to terminate abnormally
after few hours. The error is read as as "Caught signal 11" exception. The
same function/method is working fine and does it job correctly for the first
few hours. Below is the method to help you guys understand the problem
better. Could you please help me resolve the problem or Can I suppress the
exception and continue the normal program execution. Thanks in Advance.
proc formid_post_item_cb { wrname record_list itemno item_list } \
{
global gDATA
set formid 5005
set pageID ""
catch { set formid [attr_GetAttributeValue $item_list FormID] }
catch { set pageID [attr_GetAttributeValue $item_list PageID] }
set conf "???"
catch { set conf [attr_GetAttributeValue $item_list FormIDConf] }
wf_Log ERROR "POST_ITEM_CB: FormID='$formid' - PageID='$pageID'
Conf='$conf'"
attr_SetDouble $item_list FormConf $conf
if { -1 != [lsearch $gDATA(DEFINED_FORMIDS,ADA) $formid] } {
if { $formid == 58236 } {
attr_PutString $item_list PageID DentalADA.Standard
} elseif { $formid == 60000 } {
attr_PutString $item_list PageID DentalADA.Unknown
} else {
attr_PutString $item_list PageID DentalADA.v_$formid
}
} elseif { ![regexp {Attachment} $pageID] } {
if { [regexp {DentalADA} $pageID] } {
attr_PutString $item_list PageID DentalADA.Unknown
}
}
foreach attrib { EString EStatus ECommand } {
catch { attr_DelAttribute $item_list $attrib }
}
return 0
}
Note: bye the way I am not a TCL programmer. :)
--
View this message in context: http://www.nabble.com/TCL-script--%22Caught-signal-11%22-error-tp23274270p23274270.html
Sent from the tcl-threads mailing list archive at Nabble.com.
|