puts "==========="
puts "OCC159"
puts "==========="

pload QAcommands

NewDocument D BinOcaf

set log [OCC159 D]

set list [split ${log}]
set ll [llength ${list}]

if { ${ll} < 13} then {
   puts "OCC159: Error"
} else {
   set DocRefCount1 [lindex ${list} 2]
   set DocOwner1    [lindex ${list} 5]
   set DocOwner2    [lindex ${list} 8]
   set DocRefCount2 [lindex ${list} 11]
   set deltaRefCount [expr ${DocRefCount1} - ${DocRefCount2}]
   if { ${DocOwner2} == "NULL" && ${deltaRefCount} >= 1 } then {
      puts "OCC159: OK"
   } else {
      puts "OCC159: Error"
   }
}