puts "=================" puts "OCC381" puts "=================" puts "" pload QAcommands NewDocument D MDTV-Standard ###################################################### if { [catch { OCC381_SaveAs D ${imagedir}/OCC381.std}] } { puts "OCC381: Error" } else { file delete ${imagedir}/OCC381.std }