//DDB-FileStart
//DDB-HeaderStart

// File Name : USERS.DD
// Class Name: Users_DataDictionary
// Revision  : 2
// Version   : 2

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

Open Users
Open Serialsy

//DDB-HeaderEnd

Class Users_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 Users.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

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

    // Users.Userid
    Set Field_Label_Long       Field Users.Userid To "User ID (Auto generated)"

    // Users.Loginid
    Set Field_Label_Long       Field Users.Loginid To "Login ID"

    // Users.Pw
    Set Field_Label_Long       Field Users.Pw To "Password"

    // Users.Active
    Set Field_Checkbox_Values  Field Users.Active To "1"  "0"
    Set Field_Label_Long       Field Users.Active To "Active"

    //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
    Set Field_Changed_Value   Field Users.Active To 1
    //DDB-FieldDefaultEnd
  End_Procedure    // Field_Defaults

End_Class    // Users_DataDictionary
//DDB-FileEnd