puts "===========" puts "BUC60790" puts "BUC60836" puts "===========" pload QAcommands NewDocument D MDTV-Standard UndoLimit D 100 set ResultError [BUC60836 D] if {${ResultError} != 0 } { puts "BUC60790: Error = $ResultError" }