- set status [$zz.$setNo responseStatus]
- if {[lindex $status 0] == "NSD"} {
- set code [lindex $status 1]
- set msg [lindex $status 2]
- set addinfo [lindex $status 3]
- displayError "Diagnostic message" \
- "$msg: $addinfo\n<br>(error code $code)"
- return 0