perm filename RECFAK.SAI[S,AIL] blob sn#097042 filedate 1974-04-12 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "RECSER"
C00003 ENDMK
CāŠ—;
BEGIN "RECSER"

INTERNAL INTEGER PROCEDURE $REC$(INTEGER OP,A1,A2);
	BEGIN
	USERERR(1,1,"$REC$ CALLED WITH OP="&CVOS(OP)&" A1="&CVOS(A1)&
			" A2="&CVOS(A2));
	RETURN(0);
	END;

INTERNAL PROCEDURE $RERR;
	BEGIN
	USERERR(1,1,"$RERR ");
	END;

END