View source for Get Datadictionary object from File Number

== Get DataDictionary Object from File Number ==

If you have nothing except the table number, you can find the table name, construct the data dictionary class name from that, and use Eval to get the class id:
  Function Create_DDO_From_TableName String sTableName Returns Handle
    String  sClassID 
    String  sEvalClassId
    Integer iClassID
    Handle  hoDD
    
    Move "" To sClassID
    Move 0  To hoDD
    Send Ignore_Error Of Error_Object_ID 54
    Move (SFormat("U_%1_DataDictionary", sTableName)) to sClassId
    Move (Eval(sClassId)) to sEvalClassId
    Send Trap_Error Of Error_Object_ID 54
    
    If (sClassId <> sEvalClassId) Begin
      Move (Cast(sEvalClassId,Handle)) To iClassID
      Get Create of Desktop iClassID to hoDD
      If (hoDD<>0) Begin
        // set a name so it is easier to recognize in the debugger
        Set Name of hoDD to ("Global_"+sTableName+"_DD") 
      End  
    End
    Function_Return hoDD
  End_Function // Create_DDO_From_TableName

This assumes your DD's are called TableName_DataDictionary, like the pre 14.1 standard was.


==== External links ====

[http://support.dataaccess.com/Forums/showthread.php?40381-Get-DataDictionary-Object-from-File-Number Get DataDictionary Object from File Number]]