|
using OpenEdge.DataAdmin.Error.DataAdminErrorHandler from propath.
using OpenEdge.DataAdmin.ICdcTablePolicy from propath. using OpenEdge.DataAdmin.ICdcFieldPolicy from propath. using OpenEdge.DataAdmin.ITable from propath. using OpenEdge.DataAdmin.CdcTablePolicyStateEnum. using OpenEdge.DataAdmin.CdcTablePolicyLevelEnum. define variable service as OpenEdge.DataAdmin.DataAdminService no-undo. define variable tablePolicy as ICdcTablePolicy no-undo. define variable fieldPolicy as ICdcFieldPolicy no-undo. define variable tbl as ITable no-undo. service = new OpenEdge.DataAdmin.DataAdminService(ldbname(1)). tablepolicy = service:NewCdcTablePolicy("test"). tbl = service:GetTable("customer","PUB"). assign tablePolicy:Table = tbl tablePolicy:Level = CdcTablePolicyLevelEnum:MAXIMUM tablePolicy:State = CdcTablePolicyStateEnum:Active tablePolicy:IdentifyingField = YES tablePolicy:EncryptPolicy = no tablePolicy:ChangeTable = "changeTable" tablePolicy:ChangeTableOwner = "PUB" tablePolicy:DataArea = service:GetArea("customer index area") tablePolicy:IndexArea = service:GetArea("customer index area") tablePolicy:Description = "desc" . fieldPolicy = service:NewCdcFieldPolicy(). tablePolicy:FieldPolicies:add(fieldPolicy). fieldPolicy:Field = tbl:Fields:Find("name"). fieldPolicy:IdentifyingField = 1. fieldPolicy = service:NewCdcFieldPolicy(). tablePolicy:FieldPolicies:add(fieldPolicy). fieldPolicy:Field = tbl:Fields:Find("city"). fieldPolicy:IdentifyingField = 2. service:CreateCdcTablePolicy(tablePolicy). |