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