set aTestName "caf001-J6" puts ${aTestName} # Add an attribute to a data framework set aSetAttr1 "c73bd075-22ee-11d2-acde-080009dc4422" set aLabel 0:2 SetUAttribute D ${aLabel} ${aSetAttr1} # Add new ID to a label set aSetAttr2 "c73bd076-22ee-11d2-acde-080009dc4422" SetUAttribute D ${aLabel} ${aSetAttr2} # Close/Open the transaction NewCommand D # Save the document set aFile $WorkDirectory/${aTestName}.${FileSuffix} SaveToFile D $aFile # Restore the document Close D Open ${aFile} DD # Get a value of first ID set IsDone [catch {GetUAttribute DD ${aLabel} ${aSetAttr1}} aResult] if { ${IsDone} != 0 } { puts "Error : Get a value of TDataStd_UAttribute attribute from restoring document" } else { set aGetAttr1 [GetUAttribute DD ${aLabel} ${aSetAttr1}] if { ${aSetAttr1}!=${aGetAttr1} } { puts "Error : Get a value of TDataStd_UAttribute attribute from restoring document" } } # Get a value of second ID set IsDone [catch {GetUAttribute DD ${aLabel} ${aSetAttr2}} aResult] if { ${IsDone} != 0 } { puts "Error : Get a value of TDataStd_UAttribute attribute from restoring document" } else { set aGetAttr2 [GetUAttribute DD ${aLabel} ${aSetAttr2}] if { ${aSetAttr2}!=${aGetAttr2} } { puts "Error : Get a value of TDataStd_UAttribute attribute from restoring document" } }