// Class Name: Auddet_DataDictionary
// Revision  : 2
// Version   : 2

//Note that this is a Recnum table.  If working in SQL, I'd make it a standard table, with an Identity ID - but I guess that's a matter of taste....
Use  Windows           // Basic Definitions
Use  DDvalTbl          // Validation Table Class Definitions
Use  cWSDataDictionary.pkg

Open Auddet
Open Audinfo


Class Auddet_DataDictionary  is a cWSDataDictionary

    // Define_Fields:
    // This procedure is used to set up all data-dictionary rules.

    Procedure Construct_Object
        Forward Send Construct_Object


        Set Main_File To Auddet.File_Number

        Set Foreign_Field_Option DD_KEYFIELD DD_AUTOFIND to True
        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_INDEXFIELD DD_FINDREQ to True
        Set Foreign_Field_Option DD_DEFAULT DD_DISPLAYONLY to True

        // Parent (Server) file structure...............
        Set Add_Server_File to Audinfo.File_Number

        // Field-based properties.......................


    End_Procedure    // Construct_Object

    // Field_Defaults:
    // This procedure is used to establish default field values.

    Procedure Field_Defaults
        Forward Send Field_Defaults
    End_Procedure    // Field_Defaults

End_Class    // Auddet_DataDictionary