| 
       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). |