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 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 // DDO_From_TableName

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

External links

Get DataDictionary Object from File Number]