Module CheckBox.DD

     1//DDB-FileStart
     2//DDB-HeaderStart
     3
     4// File Name : CheckBox.DD
     5// Class Name: Checkbox_DataDictionary
     6// Revision  : 1
     7// Version   : 2
     8
     9Use  Windows           // Basic Definitions
    10Use  DataDict.pkg          // DataDictionary Class Definition
    11Use  DDvalTbl          // Validation Table Class Definitions
    12
    13Open Checkbox
    14
    15//DDB-HeaderEnd
    16
    17Class Checkbox_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 Checkbox.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        // Checkbox.Id
    36
    37        // Checkbox.String_Field
    38
    39        // Checkbox.Check_Box_Field
    40        Set Field_Checkbox_Values  Field Checkbox.Check_Box_Field To "Y"  "N"
    41
    42        //DDB-DefineFieldEnd
    43    End_Procedure    // Define_Fields
    44
    45    // Field_Defaults:
    46    // This procedure is used to establish default field values.
    47
    48    Procedure Field_Defaults
    49        Forward Send Field_Defaults
    50        //DDB-Generated-Code-Location
    51        //DDB-FieldDefaultStart
    52        //DDB-FieldDefaultEnd
    53    End_Procedure    // Field_Defaults
    54
    55End_Class    // Checkbox_DataDictionary
    56//DDB-FileEnd
    57