//DDB-FileStart
//DDB-HeaderStart

// File Name : ACTIVATE.DD
// Class Name: Activate_DataDictionary
// Revision  : 1
// Version   : 2

Use  Windows           // Basic Definitions
Use  DataDict.pkg          // DataDictionary Class Definition
Use  DDvalTbl          // Validation Table Class Definitions

Open Activate
Open Serialsy

//DDB-HeaderEnd

Class Activate_DataDictionary  is a DataDictionary

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

    Procedure Define_Fields
        Forward Send Define_Fields
        //DDB-Generated-Code-Location
    //DDB-DefineFieldStart

    Set Main_File            To Activate.File_Number

    Set Foreign_Field_Options  DD_KEYFIELD   To DD_AUTOFIND    DD_NOPUT       DD_FINDREQ    
    Set Foreign_Field_Options  DD_INDEXFIELD To DD_NOPUT       DD_FINDREQ    
    Set Foreign_Field_Options  DD_DEFAULT    To DD_DISPLAYONLY

    // External (System) file structure.............
    Send Add_System_File  Serialsy.File_Number  DD_LOCK_ON_ALL

    Define_Auto_Increment  Serialsy.Activateid  To Activate.Activateid

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

    // Activate.Activateid
    Set Field_Label_Long       Field Activate.Activateid To "Activation ID"

    // Activate.Serialno
    Set Field_Label_Long       Field Activate.Serialno To "Serial Number"

    // Activate.Created
    Set Field_Label_Long       Field Activate.Created To "Creation Date and Time"

    // Activate.Created_Date
    Set Field_Label_Long       Field Activate.Created_Date To "Creation Date"

    // Activate.Method
    Set Field_Label_Long       Field Activate.Method To "Method"

    // Activate.Activationcode
    Set Field_Label_Long       Field Activate.Activationcode To "Activation Code"

    // Activate.Computerid
    Set Field_Label_Long       Field Activate.Computerid To "Computer ID"

    // Activate.Sessionid
    Set Field_Label_Long       Field Activate.Sessionid To "Session ID"

    //DDB-DefineFieldEnd
    End_Procedure    // Define_Fields

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

    Procedure Field_Defaults
        Forward Send Field_Defaults
        //DDB-Generated-Code-Location
    //DDB-FieldDefaultStart
    //DDB-FieldDefaultEnd
    End_Procedure    // Field_Defaults

End_Class    // Activate_DataDictionary
//DDB-FileEnd