a87752f3 |
1 | puts "===========" |
2 | puts "BUC60817" |
3 | puts "===========" |
4 | |
5 | pload QAcommands |
6 | |
7 | NewDocument D MDTV-Standard |
8 | UndoLimit D 100 |
9 | |
10 | NewCommand D |
11 | |
12 | set ResultError [BUC60817 D] |
13 | if { ${ResultError} != 0 } { |
14 | puts "BUC60817: Error = $ResultError" |
15 | } |
16 | |