Module Cal_Sch.DD

     1//DDB-FileStart
     2//DDB-HeaderStart
     3
     4// File Name : Cal_Sch.DD
     5// Class Name: Cal_Sch_DataDictionary
     6// Revision  : 6
     7// Version   : 2
     8
     9Use  Windows           // Basic Definitions
    10Use  DataDict.pkg          // DataDictionary Class Definition
    11Use  DDvalTbl          // Validation Table Class Definitions
    12
    13Open Cal_Sch
    14Open Cal_Sys
    15
    16//DDB-HeaderEnd
    17//DDB-SelectionStart
    18//DDB-SelectionEnd
    19
    20Object Schedule_VT is a FileValidationTable
    21    Set Main_File           to Cal_Sch.File_Number
    22    Set Code_Field          to 1
    23    Set Description_field   to 2
    24    Set Ordering            to 1
    25    Set Validate_State      to True
    26    Set Static_State        to False
    27End_Object
    28
    29Class Cal_Sch_DataDictionary  is a DataDictionary
    30
    31    // Define_Fields:
    32    // This procedure is used to set up all data-dictionary rules.
    33
    34    Procedure Define_Fields
    35        Forward Send Define_Fields
    36        //DDB-Generated-Code-Location
    37        //DDB-DefineFieldStart
    38
    39        Set Main_File            To Cal_Sch.File_Number
    40
    41        Set Foreign_Field_Options  DD_KEYFIELD   To DD_AUTOFIND    DD_NOPUT       DD_FINDREQ    
    42        Set Foreign_Field_Options  DD_INDEXFIELD To DD_NOPUT       DD_FINDREQ    
    43        Set Foreign_Field_Options  DD_DEFAULT    To DD_DISPLAYONLY
    44
    45        // Child (Client) file structure................
    46
    47        // External (System) file structure.............
    48        Send Add_System_File  Cal_Sys.File_Number  DD_LOCK_ON_ALL
    49
    50        Define_Auto_Increment  Cal_Sys.Schedule_Id  To Cal_Sch.Id
    51
    52        // Field-based properties.......................
    53
    54        // Cal_Sch.Id
    55
    56        // Cal_Sch.Title
    57        Set Field_Options          Field Cal_Sch.Title To DD_REQUIRED   
    58
    59        //DDB-DefineFieldEnd
    60    End_Procedure    // Define_Fields
    61
    62    // Field_Defaults:
    63    // This procedure is used to establish default field values.
    64
    65    Procedure Field_Defaults
    66        Forward Send Field_Defaults
    67        //DDB-Generated-Code-Location
    68        //DDB-FieldDefaultStart
    69        //DDB-FieldDefaultEnd
    70    End_Procedure    // Field_Defaults
    71
    72End_Class    // Cal_Sch_DataDictionary
    73//DDB-Selection-pkg-Start
    74#IFDEF Is$WebApp
    75#ELSE
    76
    77
    78#ENDIF
    79//DDB-Selection-pkg-End
    80//DDB-FileEnd
    81