Use DataDict.pkg

Open CodeDtl
Open CodeHdr
Open CodeSys

Class cCodeDtlDataDictionary is a DataDictionary
    
    Procedure Construct_Object
        Forward Send Construct_Object
        Set Main_File to CodeDtl.File_Number

        Set Add_Server_File to CodeHdr.File_Number

        Set Add_System_File to CodeSys.File_Number DD_Lock_On_All

        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 CodeDtl.ID to "Automatically generated ID (identity) Use the field to find saved records"
        Set Field_Option Field CodeDtl.ID DD_AUTOFIND to True
        Set Key_Field_State Field CodeDtl.ID to True
        Set Field_Auto_Increment Field CodeDtl.ID to File_Field CodeSys.CodeDtlID

        Set Field_Label_Long Field CodeDtl.FullSourceFileName to "Source File Name"
        Set Field_Label_Short Field CodeDtl.FullSourceFileName to "Source File Name"
        Set Status_Help Field CodeDtl.FullSourceFileName to "Source file name with full path"

    End_Procedure

End_Class