puts "TODO ?OCC12345 ALL: An exception was caught"
puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"

puts "========"
puts "OCC670"
puts "========"
puts ""
#########################
## Problem with the Print method.
#########################

pload QAcommands

catch { OCC670 }

puts "OCC670 OK"