Delete CDC policies

using OpenEdge.DataAdmin.Error.DataAdminErrorHandler from propath.
using OpenEdge.DataAdmin.ICdcTablePolicy from propath.
using OpenEdge.DataAdmin.ICdcTablePolicyset from propath.

define variable service       as OpenEdge.DataAdmin.DataAdminService           no-undo.
define variable errorHandler  as DataAdminErrorHandler                         no-undo.
define variable tablePolicies as ICdcTablePolicyset                            no-undo.
define variable tablepolicy   as ICdcTablePolicy                               no-undo.
define variable iter          as OpenEdge.DataAdmin.Lang.Collections.IIterator no-undo.

service = new OpenEdge.DataAdmin.DataAdminService(ldbname(1)).

/* delete policy with policy name */
service:DeleteCdcTablePolicy("policyname").

/* get all policies to delete */
tablePolicies = service:GetCdcTablePolicies().

/* iterate between policies to delete them */
iter = tablePolicies:Iterator(). 
do while iter:HasNext(): 
    tablepolicy = cast(iter:Next(), ICdcTablePolicy).                
    service:DeleteCdcTablePolicy(tablepolicy:Name).
end.