1set aTestName "caf001-J3"
2puts ${aTestName}
3
4# Add an attribute to a data framework
5set aSetAttr1 "c73bd075-22ee-11d2-acde-080009dc4422"
6set aLabel 0:2
7SetUAttribute D ${aLabel} ${aSetAttr1}
8
9# Close/Open the transaction
10NewCommand D
11
12# Save the document
13set aFile $WorkDirectory/${aTestName}.${FileSuffix}
14
15SaveToFile D $aFile
16
17# Restore the document
18Close D
19Open ${aFile} DD
20
21# Get a value of the attribute
22set IsDone [catch {GetUAttribute DD ${aLabel} ${aSetAttr1}} aResult]
23if { ${IsDone} != 0 } {
24    puts "Error : Get a value of TDataStd_UAttribute attribute from restoring document"
25} else {
26    set aGetAttr3 [GetUAttribute DD ${aLabel} ${aSetAttr1}]
27
28    if { ${aSetAttr1}!=${aGetAttr3} } {
29	puts "Error : Get a value of TDataStd_UAttribute attribute from restoring document"
30    }
31}