5 NewDocument D MDTV-Standard
12 SetName D 0:1 SourceLabel
15 set Result [CopyLabel D 0:1 0:2]
16 if { ${Result} == 0} {
17 puts "BUC60813: Error 1"
19 set Name [GetName D 0:2]
20 if { [string length ${Name}] == 0 } {
21 puts "BUC60813: Error 2"
23 set Result [CopyLabel D 0:2 0:3]
24 if { ${Result} == 0 } {
25 puts "BUC60813: Error 3"