1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
puts "==========="
puts "OCC159"
puts "==========="
pload QAcommands
NewDocument D MDTV-Standard
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"
}
}
|
