Use DataDict.pkg

Open CodeClass
Open CodeHdr

Class cCodeClassDataDictionary is a DataDictionary
    
    Procedure Construct_Object
        Forward Send Construct_Object
        Set Main_File to CodeClass.File_Number

        Set Add_Server_File to CodeHdr.File_Number

        Set Foreign_Field_Option DD_KEYFIELD DD_NOPUT to True
        Set Foreign_Field_Option DD_KEYFIELD DD_FINDREQ to True
        Set Foreign_Field_Option DD_INDEXFIELD DD_NOPUT to True
        Set Foreign_Field_Option DD_DEFAULT DD_DISPLAYONLY to True

        Set Status_Help Field CodeClass.ID to "Automatically generated ID (identity) Use the field to find saved records"
        Set Field_Option Field CodeClass.ID DD_AUTOFIND to True
        Set Key_Field_State Field CodeClass.ID to True

        Set Field_Label_Long Field CodeClass.ClassName to "Class Name"
        Set Field_Label_Short Field CodeClass.ClassName to "Class Name"

        Set Field_Label_Long Field CodeClass.ClassSourceFile to "Source File"
        Set Field_Label_Short Field CodeClass.ClassSourceFile to "Source File"

        Set Field_Label_Long Field CodeClass.ClassGroup to "Group"
        Set Field_Label_Short Field CodeClass.ClassGroup to "Group"

    End_Procedure

End_Class