--- /dev/null
+/*
+ * Copyright (c) 1995, Index Data.
+ * See the file LICENSE for details.
+ * Sebastian Hammer, Adam Dickmeiss
+ *
+ * $Log: prt-exd.c,v $
+ * Revision 1.1 1995-08-21 09:16:32 quinn
+ * Added Extended services + Item Order
+ *
+ *
+ */
+
+#include <proto.h>
+
+int z_TaskPackage(ODR o, Z_TaskPackage **p, int opt)
+{
+ if (!odr_sequence_begin(o, p, sizeof(**p)))
+ return opt && odr_ok(o);
+ return
+ odr_implicit(o, odr_oid, &(*p)->packageType, ODR_CONTEXT, 1, 0) &&
+ odr_implicit(o, z_InternationalString, &(*p)->packageName, ODR_CONTEXT,
+ 2, 1) &&
+ odr_implicit(o, z_InternationalString, &(*p)->userId, ODR_CONTEXT,
+ 3, 1) &&
+ odr_implicit(o, z_IntUnit, &(*p)->retentionTime, ODR_CONTEXT, 4, 1) &&
+ odr_implicit(o, z_Permissions, &(*p)->permissions, ODR_CONTEXT, 5, 1) &&
+ odr_implicit(o, z_InternationalString, &(*p)->description, ODR_CONTEXT,
+ 6, 1) &&
+ odr_implicit(o, odr_octetstring, &(*p)->targetReference, ODR_CONTEXT,
+ 7, 0) &&
+ odr_implicit(o, odr_generalizedtime, &(*p)->creationDateTime,
+ ODR_CONTEXT,
+ 8, 1) &&
+ odr_implicit(o, odr_integer, &(*p)->taskStatus, ODR_CONTEXT, 9, 0) &&
+ odr_implicit_settag(o, ODR_CONTEXT, 10) &&
+ (odr_sequence_of(o, z_DiagRec, &(*p)->packageDiagnostics,
+ &(*p)->num_packageDiagnostics) || odr_ok(o)) &&
+ odr_implicit(o, z_External, &(*p)->taskSpecificParameters, ODR_CONTEXT,
+ 11, 0) &&
+ odr_sequence_end(o);
+}
+
+/* ----------------------- ITEM ORDER --------------------- */
+
+int z_IOTargetPart(ODR o, Z_IOTargetPart **p, int opt)
+{
+ if (!odr_sequence_begin(o, p, sizeof(**p)))
+ return opt && odr_ok(o);
+ return
+ odr_implicit(o, z_External, &(*p)->itemRequest, ODR_CONTEXT, 1, 1) &&
+ odr_implicit(o, z_External, &(*p)->statusOrErrorReport, ODR_CONTEXT,
+ 2, 0) &&
+ odr_implicit(o, odr_integer, &(*p)->auxiliaryStatus, ODR_CONTEXT,
+ 3, 1) &&
+ odr_sequence_end(o);
+}
+
+int z_IOResultSetItem(ODR o, Z_IOResultSetItem **p, int opt)
+{
+ if (!odr_sequence_begin(o, p, sizeof(**p)))
+ return opt && odr_ok(o);
+ return
+ odr_implicit(o, z_InternationalString, &(*p)->resultSetId, ODR_CONTEXT,
+ 1, 0) &&
+ odr_implicit(o, odr_integer, &(*p)->item, ODR_CONTEXT, 2, 1) &&
+ odr_sequence_end(o);
+}
+
+int z_IOOriginPartNotToKeep(ODR o, Z_IOOriginPartNotToKeep **p, int opt)
+{
+ if (!odr_sequence_begin(o, p, sizeof(**p)))
+ return opt && odr_ok(o);
+ return
+ odr_implicit(o, z_IOResultSetItem, &(*p)->resultSetItem, ODR_CONTEXT,
+ 1, 0) &&
+ odr_implicit(o, z_External, &(*p)->itemRequest, ODR_CONTEXT, 2, 1) &&
+ odr_sequence_end(o);
+}
+
+int z_IOContact(ODR o, Z_IOContact **p, int opt)
+{
+ if (!odr_sequence_begin(o, p, sizeof(**p)))
+ return opt && odr_ok(o);
+ return
+ odr_implicit(o, z_InternationalString, &(*p)->name, ODR_CONTEXT,
+ 1, 1) &&
+ odr_implicit(o, z_InternationalString, &(*p)->phone, ODR_CONTEXT,
+ 2, 1) &&
+ odr_implicit(o, z_InternationalString, &(*p)->email, ODR_CONTEXT,
+ 3, 1) &&
+ odr_sequence_end(o);
+}
+
+int z_IOCreditCardInfo(ODR o, Z_IOCreditCardInfo **p, int opt)
+{
+ if (!odr_sequence_begin(o, p, sizeof(**p)))
+ return opt && odr_ok(o);
+ return
+ odr_implicit(o, z_InternationalString, &(*p)->nameOnCard, ODR_CONTEXT,
+ 1, 0) &&
+ odr_implicit(o, z_InternationalString, &(*p)->expirationDate,
+ ODR_CONTEXT, 2, 0) &&
+ odr_implicit(o, z_InternationalString, &(*p)->cardNumber, ODR_CONTEXT,
+ 3, 0) &&
+ odr_sequence_end(o);
+}
+
+int z_IOBilling(ODR o, Z_IOBilling **p, int opt)
+{
+ static Odr_arm arm[] =
+ {
+ {ODR_IMPLICIT, ODR_CONTEXT, 0, Z_IOBilling_billInvoice, odr_null},
+ {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_IOBilling_prepay, odr_null},
+ {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_IOBilling_depositAccount, odr_null},
+ {ODR_IMPLICIT, ODR_CONTEXT, 3, Z_IOBilling_creditCard,
+ z_IOCreditCardInfo},
+ {ODR_IMPLICIT, ODR_CONTEXT, 4, Z_IOBilling_cardInfoPreviouslySupplied,
+ odr_null},
+ {ODR_IMPLICIT, ODR_CONTEXT, 5, Z_IOBilling_privateKnown, odr_null},
+ {ODR_IMPLICIT, ODR_CONTEXT, 6, Z_IOBilling_privateNotKnown,
+ z_External},
+ {-1, -1, -1, -1, 0}
+ };
+
+ if (!odr_sequence_begin(o, p, sizeof(**p)))
+ return opt && odr_ok(o);
+ return
+ odr_constructed_begin(o, &(*p)->paymentMethod,
+ ODR_CONTEXT, 1) &&
+ odr_choice(o, arm, &(*p)->paymentMethod, &(*p)->which) &&
+ odr_constructed_end(o) &&
+ odr_implicit(o, z_InternationalString, &(*p)->customerReference,
+ ODR_CONTEXT, 2, 1) &&
+ odr_implicit(o, z_InternationalString, &(*p)->customerPONumber,
+ ODR_CONTEXT, 3, 1) &&
+ odr_sequence_end(o);
+}
+
+int z_IOOriginPartToKeep(ODR o, Z_IOOriginPartToKeep **p, int opt)
+{
+ if (!odr_sequence_begin(o, p, sizeof(**p)))
+ return opt && odr_ok(o);
+ return
+ odr_implicit(o, z_External, &(*p)->supplDescription, ODR_CONTEXT,
+ 1, 1) &&
+ odr_implicit(o, z_IOContact, &(*p)->contact, ODR_CONTEXT, 2, 1) &&
+ odr_implicit(o, z_IOBilling, &(*p)->addlBilling, ODR_CONTEXT,
+ 3, 1) &&
+ odr_sequence_end(o);
+}
+
+int z_IORequest(ODR o, Z_IORequest **p, int opt)
+{
+ if (!odr_sequence_begin(o, p, sizeof(**p)))
+ return opt && odr_ok(o);
+ return
+ odr_implicit(o, z_IOOriginPartToKeep, &(*p)->toKeep, ODR_CONTEXT,
+ 1, 1) &&
+ odr_implicit(o, z_IOOriginPartNotToKeep, &(*p)->notToKeep, ODR_CONTEXT,
+ 2, 0) &&
+ odr_sequence_end(o);
+}
+
+int z_IOTaskPackage(ODR o, Z_IOTaskPackage **p, int opt)
+{
+ if (!odr_sequence_begin(o, p, sizeof(**p)))
+ return opt && odr_ok(o);
+ return
+ odr_implicit(o, z_IOOriginPartToKeep, &(*p)->originPart, ODR_CONTEXT,
+ 1, 1) &&
+ odr_implicit(o, z_IOTargetPart, &(*p)->targetPart, ODR_CONTEXT, 2, 0) &&
+ odr_sequence_end(o);
+}
+
+int z_ItemOrder(ODR o, Z_ItemOrder **p, int opt)
+{
+ static Odr_arm arm[] =
+ {
+ {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_ItemOrder_esRequest, z_IORequest},
+ {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_ItemOrder_taskPackage,
+ z_IOTaskPackage},
+ {-1, -1, -1, -1, 0}
+ };
+
+ if (o->direction == ODR_DECODE)
+ *p = odr_malloc(o, sizeof(**p));
+ else if (!*p)
+ return opt;
+ if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
+ return 1;
+ *p = 0;
+ return opt && odr_ok(o);
+}