TestSuite1.cr
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Bill Jackson (bj) August 7, 1987 3:36:23 pm PDT
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.