//DDB-FileStart
//DDB-HeaderStart

// File Name : Contry.DD
// Class Name: Contry_DataDictionary
// Revision  : 0
// Version   : 2

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

Open Contry

//DDB-HeaderEnd

Class Contry_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 Contry.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

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

    // Contry.Code

    // Contry.Contry

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