
DIRECTORY
CrRPC,
TimeP15V2,
CHNameP2V0,
FilingAttributesP10V5;

FilingAttributesP10V5ServerImpl: CEDAR PROGRAM
IMPORTS CrRPC, FilingAttributesP10V5 ~ {
OPEN FilingAttributesP10V5;

Server: CrRPC.ServerProc ~ {

ENABLE {
};

IF (pgmVersion # 5) THEN {
beginReject[h, CrRPC.noSuchVersion];
CrRPC.PutCard16[s, 5]; --low
CrRPC.PutCard16[s, 5]; --high
RETURN
};

SELECT proc FROM
ENDCASE => {
beginReject[h, CrRPC.noSuchProcedure];
};

EXITS
Finished => { NULL };
};

CrRPC.RegisterServerProc[pgm~10, serverProc~Server, pgmVersion~5];
CrRPC.EnsureListener[class~$SPP];
}...

   |  
FilingAttributesP10V5ServerImpl.Mesa
Copyright Ó 1986, 1991 by Xerox Corporation.  All rights reserved.
Generated by Diebert.pa at May 10, 1988 10:44:09 am PDT
using Sirocco [2.0] of January 31, 1987 1:52:42 am PST
[h: Handle, s: STREAM, pgm: CARD32, pgmVersion: CARD16, proc: CARD16, beginReturn: BeginReturnProc, beginError: BeginErrorProc, beginReject: BeginRejectProc]
ÊE  •NewlineDelimiter
–(cedarcode) style™ šœ$™$Jšœ	Ïeœ6™BJšœ7™7Jšœ6™6Icode˜ —šÏk	˜	K˜K˜
K˜K˜—K˜ šÏnœžœž˜.Kšžœ!˜(Kšžœ˜—K˜ šŸœ˜Jšœ™K˜ šžœ˜K˜—K˜ šžœžœ˜K˜$KšœÏc˜Kšœ ˜Kšž˜K˜—K˜ šžœž˜šžœ˜K˜&K˜——K˜ šž˜Kšœžœ˜—K˜—˜ K˜BK˜!—K˜K˜ — …—    <  ý  