puts "================" puts "OCC984" puts "================" puts "" pload QAcommands set list [OCC984 [locate_data_file OCC984.xml]] if { [regexp "Document parsed" $list] == 1 } { puts "OCC984: OK" } else { puts "OCC984: Error" }