+ {VAL_SUTRS, Z_External_sutrs, z_SUTRS},
+ {VAL_EXPLAIN, Z_External_explainRecord, z_ExplainRecord},
+ {VAL_RESOURCE1, Z_External_resourceReport1, z_ResourceReport1},
+ {VAL_RESOURCE2, Z_External_resourceReport2, z_ResourceReport2},
+ {VAL_PROMPT1, Z_External_promptObject1, z_PromptObject1 },
+ {VAL_GRS1, Z_External_grs1, z_GenericRecord},
+ {VAL_EXTENDED, Z_External_extendedService, z_TaskPackage},
+ {VAL_ITEMORDER, Z_External_itemOrder, z_ItemOrder},
+ {VAL_DIAG1, Z_External_diag1, z_DiagnosticFormat},
+ {VAL_ESPEC1, Z_External_espec1, z_Espec1},
+ {VAL_SUMMARY, Z_External_summary, z_BriefBib},
+ {VAL_OPAC, Z_External_OPAC, z_OPACRecord},
+ {VAL_SEARCHRES1, Z_External_searchResult1, z_SearchInfoReport},
+ {VAL_DBUPDATE, Z_External_update, z_IUUpdate},
+ {VAL_NONE, 0, 0}
+};
+
+Z_ext_typeent *z_ext_getentbyref(oid_value val)
+{
+ Z_ext_typeent *i;
+
+ for (i = type_table; i->dref != VAL_NONE; i++)
+ if (i->dref == val)
+ return i;
+ return 0;
+}
+
+int z_External(ODR o, Z_External **p, int opt)
+{
+ oident *oid;
+ Z_ext_typeent *type;