puts "===========" puts "BUC60817" puts "===========" pload QAcommands NewDocument D BinOcaf UndoLimit D 100 NewCommand D set ResultError [BUC60817 D] if { ${ResultError} != 0 } { puts "BUC60817: Error = $ResultError" }