puts "=================" puts "OCC381" puts "=================" puts "" pload QAcommands NewDocument D BinOcaf ###################################################### catch { SaveAs D ${imagedir}/OCC381_1.cbf } if { [catch { OCC381_Save D } ] } { puts "OCC381: Error" } else { catch { exec chmod 777 ${imagedir}/OCC381_1.cbf } file delete -force ${imagedir}/OCC381_1.cbf }