//DDB-FileStart
//DDB-HeaderStart

// File Name : Cal_SYS.DD
// Class Name: Cal_Sys_DataDictionary
// Revision  : 8
// Version   : 2

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

Open Cal_Sys

//DDB-HeaderEnd

Class Cal_Sys_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_Sys.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.......................

        // Cal_Sys.L_Urn_Calevent

        // Cal_Sys.L_Urn_Calr_Pat

        // Cal_Sys.Schedule_Id

        // Cal_Sys.Resource_Id

        // Cal_Sys.Layouts_Id

        //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

    //-------------------------------------------------------------------------

    Function Allocate_CalEvent_URN Returns Integer
        Reread
            Move (Cal_Sys.L_URN_CalEvent + 1) to Cal_Sys.L_URN_CalEvent
            SaveRecord Cal_Sys
        Unlock

        Function_Return Cal_Sys.L_URN_CalEvent
    End_Function

    //-------------------------------------------------------------------------

    Function Allocate_CalR_Pat_URN Returns Integer
        Reread
            Move (Cal_Sys.L_URN_CalR_Pat + 1) to Cal_Sys.L_URN_CalR_Pat
            SaveRecord Cal_Sys
        Unlock

        Function_Return Cal_Sys.L_URN_CalR_Pat
    End_Function

    //-------------------------------------------------------------------------

End_Class    // Cal_Sys_DataDictionary
//DDB-FileEnd