the INVOCATION_POLICIES must be used by ZIOP, the policies set at the client have to be transferred to the server. Also the policies set at the server have to be transferred to the client. At this moment only the TAG_POLICIES is added to the IOR, but nothing is transferred anymore to runtime.

code to extract the policies from the invocation_policies

  const CORBA::Octet *buf =
    sc.context_data.get_buffer ();

  TAO_InputCDR in_cdr (reinterpret_cast <const char *> (buf),
                       sc.context_data.length ());

  // Extract the Byte Order
  CORBA::Boolean byte_order;

  if (!(in_cdr >> ACE_InputCDR::to_boolean (byte_order)))
    {
      return 0;
    }

  in_cdr.reset_byte_order (static_cast <int> (byte_order));

  // Now we take out the Messaging::PolicyValueSeq out from the
  // CDR.
  Messaging::PolicyValueSeq policy_value_seq;

  if (!(in_cdr >> policy_value_seq))
    {
      throw ::CORBA::INV_OBJREF ();
    }

  // Here we extract the Messaging::PolicyValue out of the sequence
  // and we convert those into the proper CORBA::Policy
  CORBA::ULong const length = policy_value_seq.length ();

  for (CORBA::ULong i = 0; i < length; ++i)
    {
      try
        {
          CORBA::Policy_var policy =
            transport.orb_core ()->orb ()->_create_policy (
              policy_value_seq[i].ptype);

          if (!CORBA::is_nil (policy.in ()))
            {
              buf = policy_value_seq[i].pvalue.get_buffer ();

              TAO_InputCDR in_cdr (
                reinterpret_cast <const char*>  (buf),
                policy_value_seq[i].pvalue.length ());

              if (!(in_cdr >> ACE_InputCDR::to_boolean (byte_order)))
                throw ::CORBA::INV_OBJREF ();

              in_cdr.reset_byte_order (static_cast <int> (byte_order));

              if (!policy->_tao_decode (in_cdr))
                throw ::CORBA::INV_OBJREF ();

              // Increase the policy length with 1 when we know we support
              // this policy, this way we don't get nil values in the list
              //pl.length (pl.length () + 1);

              //pl[i] = policy._retn ();
              // leak
            }
          else
            {
              // This case should occure when in the sc are
              // embedded policies that TAO doesn't support,
              // so as specified by the RT-CORBA
              // spec. ptc/99-05-03 we just ignore these
              // un-understood policies.
              if (TAO_debug_level >= 5)
                ACE_DEBUG ((LM_DEBUG,
                  ACE_TEXT ("The service context contains unsupported ")
                  ACE_TEXT ("policies.\n")));
             }
         }
      catch (const ::CORBA::Exception& ex)
        {
          // This case should occur when in the IOR are
          // embedded policies that TAO doesn't support, so as
          // specified by the RT-CORBA spec. ptc/99-05-03 we
          // just ignore these un-understood policies.
          if (TAO_debug_level >= 5)
            ex._tao_print_exception (
              ACE_TEXT ("SC contains ")
              ACE_TEXT ("unsupported policies."));
        }
    }