define variable policy as IPartitionPolicy no-undo.
define variable detail as IPartitionPolicyDetail no-undo. assign policy = service:GetPartitionPolicy("OrderlineDate") detail = policy:Details:Find("OldData") detail:IsReadOnly = true. service:UpdatePartitionPolicy(policy). |