<> <> <> TestSuite: PROGRAM 1 VERSION 1 = BEGIN EmptyRecord: TYPE = RECORD [ ]; RequestID: TYPE = ARRAY 5 OF UNSPECIFIED; -- the standard time and date format AttributeKind: TYPE = { printObjectName(0), printObjectCreateDate(1), senderName(2) }; OptionKind: TYPE = { printObjectSize(0), recipientName(1), message(2), copyCount(3), pagesToPrint(4), mediumHint(5), priorityHint(6), releaseKey(7), staple(8), twoSided(9) }; DocumentSubrange: TYPE = RECORD [ beginningPageNumber: CARDINAL, -- default is 1, the first page of the master endingPageNumber: CARDINAL -- default is the last page of the master ]; InsufficientSpoolSpace: ERROR = 1; -- service does not have enough space to spool a new request TransferError: ERROR [problem: TransferProblem] = 12; GetPrinterStatus: PROCEDURE RETURNS [status: PrinterStatus] REPORTS [ServiceUnavailable, SystemError, Undefined] = 3; END. <<>>