//DDB-FileStart
//DDB-HeaderStart

// File Name : Test.DD
// Class Name: Test_DataDictionary
// Revision  : 0
// Version   : 2

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

Open Test

//DDB-HeaderEnd

Class Test_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 Test.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.......................

    // Test.Refnr

    // Test.Sagnr

    // Test.Nr

    // Test.Opsagt_Pr

    // Test.Spec_Afv

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