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