Module CalR_Pat.DD

     1//DDB-FileStart
     2//DDB-HeaderStart
     3
     4// File Name : CalR_Pat.DD
     5// Class Name: CalR_Pat_DataDictionary
     6// Revision  : 2
     7// Version   : 2
     8
     9Use  Windows           // Basic Definitions
    10Use  DataDict.pkg          // DataDictionary Class Definition
    11Use  DDvalTbl          // Validation Table Class Definitions
    12
    13Open CalR_Pat
    14
    15//DDB-HeaderEnd
    16
    17Class CalR_Pat_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 CalR_Pat.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        // CalR_Pat.Urn
    36
    37        // CalR_Pat.Customprop_Xml
    38
    39        // CalR_Pat.Durationminutes
    40
    41        // CalR_Pat.Endafterocc
    42
    43        // CalR_Pat.Enddate
    44
    45        // CalR_Pat.Endtime
    46
    47        // CalR_Pat.Endmethod
    48
    49        // CalR_Pat.Mastereventid
    50
    51        // CalR_Pat.Startdate
    52
    53        // CalR_Pat.Starttime
    54
    55        // CalR_Pat.Rod_Weekdayonly
    56
    57        // CalR_Pat.Rod_Int_Days
    58
    59        // CalR_Pat.Rodata1
    60
    61        // CalR_Pat.Rodata2
    62
    63        // CalR_Pat.Rodata3
    64
    65        // CalR_Pat.Rodata4
    66
    67        // CalR_Pat.Rom_Dayofmonth
    68
    69        // CalR_Pat.Rom_Int_Months
    70
    71        // CalR_Pat.Rom_Nthint_Mths
    72
    73        // CalR_Pat.Rom_Nth_Day
    74
    75        // CalR_Pat.Rom_Nth_Daymask
    76
    77        // CalR_Pat.Rorecurr_Type
    78
    79        // CalR_Pat.Row_Dayweekmask
    80
    81        // CalR_Pat.Row_Int_Weeks
    82
    83        // CalR_Pat.Roy_Dayofmonth
    84
    85        // CalR_Pat.Roy_Monthofyear
    86
    87        // CalR_Pat.Roy_Nthm_Ofyear
    88
    89        // CalR_Pat.Roy_Nth_Day
    90
    91        // CalR_Pat.Roy_Nth_Daymask
    92
    93        //DDB-DefineFieldEnd
    94    End_Procedure    // Define_Fields
    95
    96    // Field_Defaults:
    97    // This procedure is used to establish default field values.
    98
    99    Procedure Field_Defaults
   100        Forward Send Field_Defaults
   101        //DDB-Generated-Code-Location
   102        //DDB-FieldDefaultStart
   103        //DDB-FieldDefaultEnd
   104    End_Procedure    // Field_Defaults
   105
   106End_Class    // CalR_Pat_DataDictionary
   107//DDB-FileEnd
   108