
    <<Fetch1.cr>>
        <<Copyright Ó 1987 by Xerox Corporation.  All rights reserved.>>
        <<Bill Jackson (bj) March 21, 1987 5:49:17 pm PST>>
    <<>>
    Fetch: PROGRAM 70 VERSION 1 = BEGIN

        FileNotFound: ERROR = 0;
        BadResults: ERROR = 1;
        BadParameters: ERROR = 2;
        InternalError: ERROR = 3;
        ServerGoingAway: ERROR = 4;
        ServerNotFound: ERROR = 5;
        CourierError: ERROR = 6;
        BadHandle: ERROR = 7;
        VersionMismatch: ERROR = 8;
        NilHeap: ERROR = 9;
        CantOpenLogFile: ERROR = 10;
        Warning: ERROR = 11;
        BadFileName: ERROR = 12;
        BadRelease: ERROR = 13;

        ErrorType: TYPE = { fileNotFound(0), badResults(1), badParameters(2), internalError(3), serverGoingAway(4), serverNotFound(5), 
        courierError(6), badHandle(7), versionMismatch(8), nilHeap(9), cantOpenLogFile(10), warning(11), badFileName(12), 
        badRelease(13) };

        Predicate: PROCEDURE [ release: STRING ]
            RETURNS [ respond: BOOLEAN ] = 0;

        Find: PROCEDURE [ file: STRING, release: STRING, getDFName: BOOLEAN, getFilePath: BOOLEAN, getCreateDate: BOOLEAN ]
            RETURNS [ dfName: STRING, filePath: STRING, createDate: STRING, nMatches: CARDINAL ]
            REPORTS [ FileNotFound, BadResults, BadParameters, InternalError, ServerGoingAway, ServerNotFound, CourierError, BadHandle, 
            VersionMismatch, NilHeap, CantOpenLogFile, Warning, BadFileName, BadRelease] = 1;

        END.
        <<>>