|
using OpenEdge.DataAdmin.Error.DataAdminErrorHandler from propath.
using OpenEdge.DataAdmin.ICdcTablePolicy from propath. using OpenEdge.DataAdmin.ICdcTablePolicyset from propath. using OpenEdge.DataAdmin.ICdcFieldPolicySet from propath. using OpenEdge.DataAdmin.ICdcFieldPolicy from propath. using OpenEdge.DataAdmin.Lang.Collections.IIterator from propath. define variable service as OpenEdge.DataAdmin.DataAdminService no-undo. define variable errorHandler as DataAdminErrorHandler no-undo. define variable tablePolicy as ICdcTablePolicy no-undo. define variable tablePolicies as ICdcTablePolicyset no-undo. define variable FieldPolicies as ICdcFieldPolicyset no-undo. define variable FieldPolicy as ICdcFieldPolicy no-undo. define variable iter AS IIterator no-undo. service = new OpenEdge.DataAdmin.DataAdminService(ldbname(1)). /* get policy based on policy name */ tablePolicy = service:GetCdcTablePolicy("Invoiceactive"). FieldPolicies = tablePolicy:FieldPolicies. fieldpolicy = FieldPolicies:Find("id"). /* get all policies */ tablePolicies = service:GetCdcTablePolicies(). /* get policy set based on filter */ tablePolicies = service:GetCdcTablePolicies("TableName= ~"Customer~""). iter = tablePolicies:Iterator(). do while iter:HasNext(): tablepolicy = cast(iter:Next(), ICdcTablePolicy). message tablePolicy:Name view-as alert-box. end. |