MCDeliveryStatus

CompareStatus

Attributes

CardData DeliveryReason DeliveryTime Explanation HasNondelivery Index Recipient

Fields

instance MCDeliveryStatus tag;
      recipient: nilObject;
 deliveryReason: nilObject;
    explanation: nilObject;
       cardData: nilObject;
   deliveryTime: nilObject;
          index: 0;
 hasNondelivery: false;
end instance;

Define Class MCDeliveryStatus;
    inherits from Object;

    field recipient:        Object, getter, setter;
    field deliveryReason:   Text, getter, setter;
    field explanation:      Object, getter, setter;
    field cardData:         Object, getter, setter;     
        // stores stack of name cards for dir. lookup
    field deliveryTime:     Time, getter, setter;
    field index:            Unsigned, getter, setter;
    field hasNondelivery:   Boolean, getter, setter;

    attribute Recipient:        Object;
    attribute DeliveryReason:   Text;
    attribute Explanation:      Object;
    attribute CardData:         Object;
    attribute DeliveryTime:     Time;
    attribute Index:            Unsigned, safe;
    attribute HasNondelivery:   Boolean;

    operation CompareStatus(otherStatus: MCDeliveryStatus; sortKey: OperationNumber): SignedShort;
end class;