//DDB-FileStart
//DDB-HeaderStart

// File Name : Cal_SRL.DD
// Class Name: Cal_Srl_DataDictionary
// Revision  : 5
// Version   : 2

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

Open Cal_Srl
Open Cal_Lay

//DDB-HeaderEnd
//DDB-ValidationStart

//DDB/ ExternalValidationTable Resource_VT  Private
//DDB/ ExternalValidationTable Schedule_VT  Private

Register_Object Resource_VT
Register_Object Schedule_VT
//DDB-ValidationEnd


Class Cal_Srl_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 Cal_Srl.File_Number

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

        // Parent (Server) file structure...............
        Send Add_Server_File  Cal_Lay.File_Number

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

        // Cal_Srl.Layout

        // Cal_Srl.Order

        // Cal_Srl.Resource
        Set Field_Value_Table      Field Cal_Srl.Resource To (Resource_VT(Self))

        // Cal_Srl.Schedule
        Set Field_Value_Table      Field Cal_Srl.Schedule To (Schedule_VT(Self))

        //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
    
    Procedure Update 
        Forward Send Update
        Move (Cal_Lay.Count + 1) to Cal_Lay.Count
    End_Procedure    
    
    Procedure Backout 
        Forward Send Backout
        Move (Cal_Lay.Count - 1) to Cal_Lay.Count
    End_Procedure    
        

End_Class    // Cal_Srl_DataDictionary
//DDB-FileEnd