Module CalEvent.DD

     1//DDB-FileStart
     2//DDB-HeaderStart
     3
     4// File Name : CalEvent.DD
     5// Class Name: CalEvent_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 Calevent
    14
    15//DDB-HeaderEnd
    16
    17Class CalEvent_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 Calevent.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        // Calevent.Urn
    36
    37        // Calevent.Alldayevent
    38
    39        // Calevent.Body
    40
    41        // Calevent.Busystatus
    42
    43        // Calevent.Categories
    44
    45        // Calevent.Creationdate
    46
    47        // Calevent.Creationtime
    48
    49        // Calevent.Customicons
    50
    51        // Calevent.Customprop
    52
    53        // Calevent.Enddate
    54
    55        // Calevent.Endtime
    56
    57        // Calevent.Importance
    58
    59        // Calevent.Label
    60
    61        // Calevent.Lastmod_Date
    62
    63        // Calevent.Lastmod_Time
    64
    65        // Calevent.Location
    66
    67        // Calevent.Meetingflag
    68
    69        // Calevent.Privateflag
    70
    71        // Calevent.Recurr_State
    72
    73        // Calevent.Reminder
    74
    75        // Calevent.Rem_Minsbefore
    76
    77        // Calevent.Rem_Soundfile
    78
    79        // Calevent.Scheduleid
    80
    81        // Calevent.Startdate
    82
    83        // Calevent.Starttime
    84
    85        // Calevent.Subject
    86
    87        // Calevent.Re_Startdateorg
    88
    89        // Calevent.Re_Starttimeorg
    90
    91        // Calevent.Re_Enddateorg
    92
    93        // Calevent.Re_Endtimeorg
    94
    95        // Calevent.Re_Deleted
    96
    97        // Calevent.Rec_Pattern_Id
    98
    99        //DDB-DefineFieldEnd
   100    End_Procedure    // Define_Fields
   101
   102    // Field_Defaults:
   103    // This procedure is used to establish default field values.
   104
   105    Procedure Field_Defaults
   106        Forward Send Field_Defaults
   107        //DDB-Generated-Code-Location
   108        //DDB-FieldDefaultStart
   109        //DDB-FieldDefaultEnd
   110    End_Procedure    // Field_Defaults
   111
   112End_Class    // CalEvent_DataDictionary
   113//DDB-FileEnd
   114