61c421bf |
1 | puts "TODO OCC12345 ALL: OCC267: Error" |
2 | |
3 | puts "========" |
4 | puts "OCC267" |
5 | puts "========" |
6 | |
7 | ###################################################################### |
8 | |
9 | pload QAcommands |
10 | |
e837410d |
11 | NewDocument D BinOcaf |
12 | file delete -force ${imagedir}/OCC267.cbf |
13 | catch { OCC267 D ${imagedir}/OCC267.cbf } status |
61c421bf |
14 | |
15 | set list [split ${status}] |
16 | set index [lsearch -exact ${list} "CDF_StoreStatus"] |
17 | |
18 | if { ${index} == -1 } then { |
19 | puts "OCC267: Error" |
20 | puts ${status} |
21 | } else { |
22 | set CDF_StoreStatus [lindex ${list} [expr ${index} + 2] ] |
23 | if { ${CDF_StoreStatus} == "CDF_SS_OK" } then { |
24 | puts "OCC267: OK" |
25 | } else { |
26 | puts "OCC267: ERROR" |
27 | puts ${status} |
28 | puts "CDF_StoreStatus = ${CDF_StoreStatus}" |
29 | } |
30 | } |
31 | |