1 puts "TODO OCC12345 ALL: OCC267: Error"
7 ######################################################################
11 NewDocument D MDTV-Standard
12 file delete -force ${imagedir}/OCC267.std
13 catch { OCC267 D ${imagedir}/OCC267.std } status
15 set list [split ${status}]
16 set index [lsearch -exact ${list} "CDF_StoreStatus"]
18 if { ${index} == -1 } then {
22 set CDF_StoreStatus [lindex ${list} [expr ${index} + 2] ]
23 if { ${CDF_StoreStatus} == "CDF_SS_OK" } then {
28 puts "CDF_StoreStatus = ${CDF_StoreStatus}"