Module Cal_SRL.DD

     1//DDB-FileStart
     2//DDB-HeaderStart
     3
     4// File Name : Cal_SRL.DD
     5// Class Name: Cal_Srl_DataDictionary
     6// Revision  : 5
     7// Version   : 2
     8
     9Use  Windows           // Basic Definitions
    10Use  DataDict.pkg          // DataDictionary Class Definition
    11Use  DDvalTbl          // Validation Table Class Definitions
    12
    13Open Cal_Srl
    14Open Cal_Lay
    15
    16//DDB-HeaderEnd
    17//DDB-ValidationStart
    18
    19//DDB/ ExternalValidationTable Resource_VT  Private
    20//DDB/ ExternalValidationTable Schedule_VT  Private
    21
    22Register_Object Resource_VT
    23Register_Object Schedule_VT
    24//DDB-ValidationEnd
    25
    26
    27Class Cal_Srl_DataDictionary  is a DataDictionary
    28
    29    // Define_Fields:
    30    // This procedure is used to set up all data-dictionary rules.
    31
    32    Procedure Define_Fields
    33        Forward Send Define_Fields
    34        //DDB-Generated-Code-Location
    35        //DDB-DefineFieldStart
    36
    37        Set Main_File            To Cal_Srl.File_Number
    38
    39        Set Foreign_Field_Options  DD_KEYFIELD   To DD_NOPUT       DD_FINDREQ    
    40        Set Foreign_Field_Options  DD_INDEXFIELD To DD_NOPUT       DD_FINDREQ    
    41        Set Foreign_Field_Options  DD_DEFAULT    To DD_DISPLAYONLY
    42
    43        // Parent (Server) file structure...............
    44        Send Add_Server_File  Cal_Lay.File_Number
    45
    46        // Field-based properties.......................
    47
    48        // Cal_Srl.Layout
    49
    50        // Cal_Srl.Order
    51
    52        // Cal_Srl.Resource
    53        Set Field_Value_Table      Field Cal_Srl.Resource To (Resource_VT(Self))
    54
    55        // Cal_Srl.Schedule
    56        Set Field_Value_Table      Field Cal_Srl.Schedule To (Schedule_VT(Self))
    57
    58        //DDB-DefineFieldEnd
    59    End_Procedure    // Define_Fields
    60
    61    // Field_Defaults:
    62    // This procedure is used to establish default field values.
    63
    64    Procedure Field_Defaults
    65        Forward Send Field_Defaults
    66        //DDB-Generated-Code-Location
    67        //DDB-FieldDefaultStart
    68        //DDB-FieldDefaultEnd
    69    End_Procedure    // Field_Defaults
    70    
    71    Procedure Update 
    72        Forward Send Update
    73        Move (Cal_Lay.Count + 1) to Cal_Lay.Count
    74    End_Procedure    
    75    
    76    Procedure Backout 
    77        Forward Send Backout
    78        Move (Cal_Lay.Count - 1) to Cal_Lay.Count
    79    End_Procedure    
    80        
    81
    82End_Class    // Cal_Srl_DataDictionary
    83//DDB-FileEnd
    84