puts "==========="
puts "BUC60925"
puts "==========="

pload QAcommands

NewDocument D BinOcaf
UndoLimit D 100

NewCommand D

set ResultError [BUC60925 D]
if { ${ResultError} != 0 } {
    puts "Error : 1"
}

NewCommand D


