puts "================="
puts "OCC361"
puts "BUC60995"
puts "================="

pload QAcommands

NewDocument D BinOcaf

if { [catch { OCC361 D }] } {
    puts "OCC361: Error"
}

Close D