Module Cal_SYS.DD

     1//DDB-FileStart
     2//DDB-HeaderStart
     3
     4// File Name : Cal_SYS.DD
     5// Class Name: Cal_Sys_DataDictionary
     6// Revision  : 8
     7// Version   : 2
     8
     9Use  Windows           // Basic Definitions
    10Use  DataDict.pkg          // DataDictionary Class Definition
    11Use  DDvalTbl          // Validation Table Class Definitions
    12
    13Open Cal_Sys
    14
    15//DDB-HeaderEnd
    16
    17Class Cal_Sys_DataDictionary  is a DataDictionary
    18
    19    // Define_Fields:
    20    // This procedure is used to set up all data-dictionary rules.
    21
    22    Procedure Define_Fields
    23        Forward Send Define_Fields
    24        //DDB-Generated-Code-Location
    25        //DDB-DefineFieldStart
    26
    27        Set Main_File            To Cal_Sys.File_Number
    28
    29        Set Foreign_Field_Options  DD_KEYFIELD   To DD_AUTOFIND    DD_NOPUT       DD_FINDREQ    
    30        Set Foreign_Field_Options  DD_INDEXFIELD To DD_NOPUT       DD_FINDREQ    
    31        Set Foreign_Field_Options  DD_DEFAULT    To DD_DISPLAYONLY
    32
    33        // Field-based properties.......................
    34
    35        // Cal_Sys.L_Urn_Calevent
    36
    37        // Cal_Sys.L_Urn_Calr_Pat
    38
    39        // Cal_Sys.Schedule_Id
    40
    41        // Cal_Sys.Resource_Id
    42
    43        // Cal_Sys.Layouts_Id
    44
    45        //DDB-DefineFieldEnd
    46    End_Procedure    // Define_Fields
    47
    48    // Field_Defaults:
    49    // This procedure is used to establish default field values.
    50
    51    Procedure Field_Defaults
    52        Forward Send Field_Defaults
    53        //DDB-Generated-Code-Location
    54        //DDB-FieldDefaultStart
    55        //DDB-FieldDefaultEnd
    56    End_Procedure    // Field_Defaults
    57
    58    //-------------------------------------------------------------------------
    59
    60    Function Allocate_CalEvent_URN Returns Integer
    61        Reread
    62            Move (Cal_Sys.L_URN_CalEvent + 1) to Cal_Sys.L_URN_CalEvent
    63            SaveRecord Cal_Sys
    64        Unlock
    65
    66        Function_Return Cal_Sys.L_URN_CalEvent
    67    End_Function
    68
    69    //-------------------------------------------------------------------------
    70
    71    Function Allocate_CalR_Pat_URN Returns Integer
    72        Reread
    73            Move (Cal_Sys.L_URN_CalR_Pat + 1) to Cal_Sys.L_URN_CalR_Pat
    74            SaveRecord Cal_Sys
    75        Unlock
    76
    77        Function_Return Cal_Sys.L_URN_CalR_Pat
    78    End_Function
    79
    80    //-------------------------------------------------------------------------
    81
    82End_Class    // Cal_Sys_DataDictionary
    83//DDB-FileEnd
    84