puts "================="
puts "OCC381"
puts "================="
puts ""

pload QAcommands

NewDocument D BinOcaf

######################################################
if { [catch { OCC381_SaveAs D ${imagedir}/OCC381_2.cbf}] } {
    puts "OCC381: Error" 
} else {
    catch {exec chmod 777 ${imagedir}/OCC381_2.cbf}
    file delete -force ${imagedir}/OCC381_2.cbf
}