Module Sysfile2.DD

     1//DDB-FileStart
     2//DDB-HeaderStart
     3
     4// File Name : Sysfile2.DD
     5// Class Name: Sysfile2_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 Sysfile2
    14
    15//DDB-HeaderEnd
    16
    17Class Sysfile2_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 Sysfile2.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        // Sysfile2.Size
    36
    37        // Sysfile2.Admin_Password
    38
    39        // Sysfile2.Customer_No
    40
    41        // Sysfile2.Order_No
    42
    43        // Sysfile2.Text_Field_1
    44
    45        //DDB-DefineFieldEnd
    46    End_Procedure    // Define_Fields
    47
    48    // Field_Defaults:
    49    // This procedure is used to establish default field values.
    50
    51    Procedure Field_Defaults
    52        Forward Send Field_Defaults
    53        //DDB-Generated-Code-Location
    54        //DDB-FieldDefaultStart
    55        //DDB-FieldDefaultEnd
    56    End_Procedure    // Field_Defaults
    57
    58End_Class    // Sysfile2_DataDictionary
    59//DDB-FileEnd
    60