
  TYPE
    jmt$profile_object_list = record
      object_kind: jmt$profile_object_kinds,
      case list_kind: jmt$object_attribute_kinds of
      = jmc$list =
        pname: ost$name,
        count: integer,
      = jmc$name =
        name: ost$name,
      casend,
    recend;

*copyc jmt$object_attribute_kinds
*copyc jmt$profile_object_kinds
*copyc ost$name
