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.