//DDB-FileStart
//DDB-HeaderStart

// File Name : DISTRIB.DD
// Class Name: Distrib_DataDictionary
// Revision  : 2
// Version   : 2

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

Open Distrib
Open Serialsy

//DDB-HeaderEnd

Class Distrib_DataDictionary  Is A cRDSDataDictionary

  // 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 Distrib.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.Distributor_Id  To Distrib.Distributor_Id

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

    // Distrib.Distributor_Id

    // Distrib.Login_Id

    // Distrib.Password

    // Distrib.E_Mail

    //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    // Distrib_DataDictionary
//DDB-FileEnd