ADE source of 11.7.13

Author: swaohan

OpenEdge/DataAdmin/AbstractCdcOwner.cls

@@ -0,0 +1,69 @@
+ 
+ /*------------------------------------------------------------------------
+    File        : AbstractCdcOwner
+    Purpose     : 
+    Syntax      : 
+    Description : 
+    Author(s)   : mkondra
+    Created     : Thu Nov 19 15:56:56 IST 2015
+    Notes       : 
+  ----------------------------------------------------------------------*/
+
+routine-level on error undo, throw.
+
+using OpenEdge.DataAdmin.AbstractCdcParent.
+using OpenEdge.DataAdmin.Binding.IDataAdminModel.
+using OpenEdge.DataAdmin.Error.IllegalOperationError.
+using OpenEdge.DataAdmin.Error.UnsupportedOperationError.
+using OpenEdge.DataAdmin.ICdcMap.
+using OpenEdge.DataAdmin.ICdcOwner.
+using OpenEdge.DataAdmin.IRequestInfo. 
+
+class OpenEdge.DataAdmin.AbstractCdcOwner inherits AbstractCdcParent implements ICdcOwner abstract: 
+    
+    define public property Id as int init ? no-undo             
+    get():
+        if valid-handle(mBuffer) then
+            return mBuffer::id.
+        else
+            return Id.    
+    end.
+    
+
+    define public abstract property Instance as int no-undo  get. set.
+        
+    
+    define public property CdcTablePolicies as ICdcMap no-undo  
+    get():
+        if not valid-object(CdcTablePolicies) then
+        do:
+            if not valid-object(context:Service) and not valid-object(context:TargetService) then
+                undo, throw new IllegalOperationError("CdcTablePolicies are not available in a " + name + "  that is not newed, created or retrieved by a service.").  
+            AssertCdcs().
+            CdcTablePolicies = cast(GetChildCollection("CdcTablePolicies"),ICdcMap).
+   
+       end.     
+       return CdcTablePolicies.
+    end.
+    private set.
+    
+    constructor public AbstractCdcOwner ( input pname as character ):
+        super (pname).
+        
+    end constructor.
+
+        
+    constructor public AbstractCdcOwner (  cntxt as IDataAdminModel, preq as  IRequestInfo ):
+        super (cntxt, preq).
+        
+    end constructor.
+
+        
+    constructor public AbstractCdcOwner (  cntxt as IDataAdminModel ):
+        super (cntxt).
+        
+    end constructor.
+    
+   
+    method protected abstract void AssertCdcs() .   
+end class.

OpenEdge/DataAdmin/AbstractCdcParent.cls

@@ -0,0 +1,91 @@
+ 
+ /*------------------------------------------------------------------------
+    File        : AbstractCdcParent
+    Purpose     : 
+    Syntax      : 
+    Description : 
+    Author(s)   : mkondra
+    Created     : Thu Nov 19 16:09:14 IST 2015
+    Notes       : 
+  ----------------------------------------------------------------------*/
+
+routine-level on error undo, throw.
+  
+using OpenEdge.DataAdmin.Binding.IDataAdminModel.
+using OpenEdge.DataAdmin.Entity.
+using OpenEdge.DataAdmin.Error.UnsupportedOperationError.
+using OpenEdge.DataAdmin.ICdcMap.
+using OpenEdge.DataAdmin.ICdcParent.
+using OpenEdge.DataAdmin.IRequestInfo.
+
+class  OpenEdge.DataAdmin.AbstractCdcParent abstract inherits Entity implements ICdcParent : 
+    
+    define protected property ValidDefaultLevelList as char 
+       init ?
+       get():
+           return GetValidDefaultLevelList(). 
+       end.
+         
+    define public abstract property Level as int no-undo 
+    get.
+    set. 
+    
+    define public abstract property CdcTablePolicyName as char no-undo 
+    get.
+    set.
+    
+    define public abstract property ChangeTable as char no-undo 
+    get.
+    set.
+    
+    define public abstract property ChangeTableOwner as char no-undo 
+    get.
+    set.
+
+    define public abstract property DataArea as OpenEdge.DataAdmin.IArea no-undo 
+    get.
+    set. 
+
+    define public abstract property IndexArea as OpenEdge.DataAdmin.IArea no-undo 
+    get.
+    set. 
+
+    define public property Description as char no-undo         
+        get():
+            if valid-handle(mBuffer) then
+                return mBuffer::Description.
+            else
+                return Description. 
+        end.
+        set(pDescription as char):
+            if valid-handle(mBuffer) then
+            do:
+                mDefaultBuffer:find-by-rowid(mBuffer:rowid).  
+                mdefaultbuffer::Description = pDescription.
+            end.
+            else
+                Description = pDescription.
+        end.  
+        
+    method protected char GetValidDefaultLevelList(): 
+        return "0,1,2".
+    end method.
+    
+    constructor public AbstractCdcParent ( input pname as character ):
+        super (pname).
+        
+    end constructor.
+
+        
+    constructor public AbstractCdcParent (  cntxt as IDataAdminModel, preq as  IRequestInfo ):
+        super (cntxt, preq).
+        
+    end constructor.
+
+        
+    constructor public AbstractCdcParent (  cntxt as IDataAdminModel ):
+        super (cntxt).
+        
+    end constructor.
+
+end class.

OpenEdge/DataAdmin/AbstractPartitionOwner.cls

@@ -0,0 +1,92 @@
+/*************************************************************/
+/* Copyright (c) 2013,2019 by Progress Software Corporation       */
+/*                                                           */
+/* all rights reserved.  no part of this program or document */
+/* may be  reproduced in  any form  or by  any means without */
+/* permission in writing from progress Software Corporation. */
+/*************************************************************/
+ /*------------------------------------------------------------------------
+    File        : AbstractPartitionOwner
+    Purpose     : 
+    Syntax      : 
+    Description : 
+    Author(s)   : hdaniels
+    Created     : Thu Jul 18 01:56:50 EDT 2013
+    Notes       : 
+  ----------------------------------------------------------------------*/
+routine-level on error undo, throw.
+
+using OpenEdge.DataAdmin.AbstractPartitionParent.
+using OpenEdge.DataAdmin.Binding.IDataAdminModel.
+using OpenEdge.DataAdmin.Error.IllegalOperationError.
+using OpenEdge.DataAdmin.Error.UnsupportedOperationError.
+using OpenEdge.DataAdmin.IPartitionMap.
+using OpenEdge.DataAdmin.IPartitionOwner.
+using OpenEdge.DataAdmin.IRequestInfo.
+using Progress.Lang.*.
+
+class OpenEdge.DataAdmin.AbstractPartitionOwner inherits AbstractPartitionParent implements IPartitionOwner abstract: 
+    
+    define public property Id as int init ? no-undo             
+    get():
+        if valid-handle(mBuffer) then
+            return mBuffer::id.
+        else
+            return Id.    
+    end.
+    
+    define public property IsAllocated as logical no-undo          
+        get():
+            if valid-handle(mBuffer) then
+                return mBuffer::IsAllocated.
+            else
+                return IsAllocated. 
+        end.
+        protected set(pIsAllocated as logical):
+            if valid-handle(mBuffer) then
+            do:
+                mDefaultBuffer:find-by-rowid(mBuffer:rowid).  
+                mdefaultbuffer::IsAllocated = pIsAllocated.
+            end.
+            IsAllocated = pIsAllocated.
+        end. 
+
+    define public abstract property IsDataEnabled as logical no-undo  get. set.
+        
+    
+    define public property Partitions as IPartitionMap no-undo  
+    get():
+        if not valid-object(Partitions) then
+        do:
+            if not valid-object(context:Service) and not valid-object(context:TargetService) then
+                undo, throw new IllegalOperationError("Partitions are not available in a " + name + "  that is not newed, created or retrieved by a service.").  
+            AssertPartitions().
+            Partitions = cast(GetChildCollection("partitions"),IPartitionMap).
+/*                Partitions:Tenant = this-object.*/
+   
+       end.     
+       return Partitions.
+    end.
+    private set.
+    
+    constructor public AbstractPartitionOwner ( input pname as character ):
+        super (pname).
+        
+    end constructor.
+
+        
+    constructor public AbstractPartitionOwner (  cntxt as IDataAdminModel, preq as  IRequestInfo ):
+        super (cntxt, preq).
+        
+    end constructor.
+
+        
+    constructor public AbstractPartitionOwner (  cntxt as IDataAdminModel ):
+        super (cntxt).
+        
+    end constructor.
+    
+   
+	method protected abstract void AssertPartitions() .
+    method public abstract logical Allocate(  ).
+end class.

OpenEdge/DataAdmin/AbstractPartitionParent.cls

@@ -0,0 +1,90 @@
+ /*************************************************************/
+/* Copyright (c) 2013,2019 by Progress Software Corporation       */
+/*                                                           */
+/* all rights reserved.  no part of this program or document */
+/* may be  reproduced in  any form  or by  any means without */
+/* permission in writing from progress Software Corporation. */
+/*************************************************************/
+ /*------------------------------------------------------------------------
+    File        : AbstractPartitionParent
+    Purpose     : 
+    Syntax      : 
+    Description : 
+    Author(s)   : hdaniels
+    Created     : Thu Jul 18 2013
+    Notes       : 
+  ----------------------------------------------------------------------*/
+  
+routine-level on error undo, throw.
+  
+using OpenEdge.DataAdmin.Binding.IDataAdminModel.
+using OpenEdge.DataAdmin.Entity.
+using OpenEdge.DataAdmin.Error.UnsupportedOperationError.
+using OpenEdge.DataAdmin.IPartitionMap.
+using OpenEdge.DataAdmin.IPartitionParent.
+using OpenEdge.DataAdmin.IRequestInfo.
+using Progress.Lang.*.
+
+class  OpenEdge.DataAdmin.AbstractPartitionParent abstract inherits Entity implements IPartitionParent : 
+    
+    define protected property ValidDefaultAllocationList as char 
+       init ?
+       get():
+           return GetValidDefaultAllocationList(). 
+       end.
+         
+	define public abstract property DefaultAllocation as character no-undo 
+	get.
+	set. 
+
+	define public abstract property DefaultDataArea as OpenEdge.DataAdmin.IArea no-undo 
+	get.
+	set. 
+
+	define public abstract property DefaultIndexArea as OpenEdge.DataAdmin.IArea no-undo 
+	get.
+	set. 
+
+	define public abstract property DefaultLobArea as OpenEdge.DataAdmin.IArea no-undo 
+	get.
+	set. 
+
+	define public property Description as char no-undo         
+        get():
+            if valid-handle(mBuffer) then
+                return mBuffer::Description.
+            else
+                return Description. 
+        end.
+        set(pDescription as char):
+            if valid-handle(mBuffer) then
+            do:
+                mDefaultBuffer:find-by-rowid(mBuffer:rowid).  
+                mdefaultbuffer::Description = pDescription.
+            end.
+            else
+                Description = pDescription.
+        end.  
+        
+    method protected char GetValidDefaultAllocationList(): 
+        return "Immediate,Delayed,None".
+    end method.
+    
+	constructor public AbstractPartitionParent ( input pname as character ):
+		super (pname).
+		
+	end constructor.
+
+		
+	constructor public AbstractPartitionParent (  cntxt as IDataAdminModel, preq as  IRequestInfo ):
+		super (cntxt, preq).
+		
+	end constructor.
+
+		
+	constructor public AbstractPartitionParent (  cntxt as IDataAdminModel ):
+		super (cntxt).
+		
+	end constructor.
+
+end class.