Module Users.dd

     1Use  Windows.pkg           // Basic Definitions
     2Use  DataDict.pkg          // DataDictionary Class Definition
     3Use  DDvalTbl.pkg          // Validation Table Class Definitions
     4
     5Open Users
     6
     7
     8Class Users_DataDictionary  is a DataDictionary
     9
    10
    11    Procedure Construct_Object
    12        Forward Send Construct_Object
    13
    14        Set Main_File To Users.File_Number
    15
    16        Set Foreign_Field_Option DD_KEYFIELD DD_AUTOFIND to True
    17        Set Foreign_Field_Option DD_KEYFIELD DD_NOPUT to True
    18        Set Foreign_Field_Option DD_KEYFIELD DD_FINDREQ to True
    19        Set Foreign_Field_Option DD_INDEXFIELD DD_NOPUT to True
    20        Set Foreign_Field_Option DD_INDEXFIELD DD_FINDREQ to True
    21        Set Foreign_Field_Option DD_DEFAULT DD_DISPLAYONLY to True
    22
    23
    24        Set Field_Option Field Users.Loginname DD_AUTOFIND to True
    25        Set Field_Option Field Users.Loginname DD_CAPSLOCK to True
    26
    27        Set Field_Option Field Users.Password DD_CAPSLOCK to True
    28
    29
    30        Set Field_Option Field Users.Full_Name DD_REQUIRED to True
    31
    32        Set Field_Option Field Users.Last_Login DD_DISPLAYONLY to True
    33
    34    End_Procedure    // Construct_Object
    35
    36
    37    Procedure Field_Defaults
    38        Forward Send Field_Defaults
    39    End_Procedure    // Field_Defaults
    40
    41End_Class    // Users_DataDictionary
    42