diff --git a/WEGA/contrib/ingres/dbs/src/pqr/rc_error.c b/WEGA/contrib/ingres/dbs/src/pqr/rc_error.c
new file mode 100644
index 0000000..d2a9e46
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/pqr/rc_error.c
@@ -0,0 +1,71 @@
+/*
+** ---  RC_ERROR.C ------ YYERROR  --------------------------------------------
+**
+**	Version: @(#)rc_error.c		4.0	02/05/89
+**
+*/
+
+# include	"rc.h"
+
+
+static char	*ERROR[] =
+{
+/* 000 */	"SYNTAX ERROR",
+/* 001 */	"Illegal PROC `%d'",
+/* 002 */	"PROC `%d' declared twice",
+/* 003 */	"PROC `%d' not declared",
+/* 004 */	"Cannot create R_CODE file `%s'",
+/* 005 */	"Cannot write to R_CODE file `%s'",
+/* 006 */	"Illegal VAR `%d'",
+/* 007 */	"Illegal SWITCH `%d'",
+/* 008 */	"VALUE `%d' < 0 not expected",
+/* 009 */	"Symbol Table OVERFLOW",
+/* 010 */	"Non terminated COMMENT",
+/* 011 */	"Non terminated STRING",
+/* 012 */	"STRING too long (>255)",
+/* 013 */	"Unknown OPERATOR `%s'",
+/* 014 */	"NUMBER too long (> 255)",
+/* 015 */	"FLOATING conversion error `%s'",
+/* 016 */	"INTEGER conversion error `%s'",
+/* 017 */	"NAME `%s' to long (>12)",
+/* 018 */	"BACKUP peek buffer overflow (>2)",
+/* 019 */	"CASE in CASE not allowed",
+/* 020 */	"Cannot print two objects",
+/* 021 */	"No object to print",
+/* 022 */	"NUMBER out of range (%d..%d)",
+/* 023 */	"Too many CASES",
+/* 024 */	"Too many MACROS",
+/* 025 */	"Illegal DOMAIN %d, expected %d",
+/* 026 */	"Too many DOMAINS",
+/* 027 */	"ILLEGAL field length %d",
+};
+
+
+# ifdef P8000
+rc_error(a0, a1, a2)
+register int	a0;
+register char	*a1;
+register char	*a2;
+{
+# else
+rc_error(av)
+int	av;
+{
+	register int	*a;
+
+	a = &av;
+# endif
+
+	if (Sflag)
+		printf("\n****: ");
+	else
+		printf("\n%4d: ", Line);
+# ifdef P8000
+	printf(ERROR[a0], a1, a2);
+# else
+	printf(ERROR[a[0]], a[1], a[2]);
+# endif
+	if (Sflag)
+		printf("\n%4d: . . .  ", Line);
+	S_error++;
+}
diff --git a/WEGA/contrib/ingres/dbs/src/pqr/rp_code.c b/WEGA/contrib/ingres/dbs/src/pqr/rp_code.c
new file mode 100644
index 0000000..8891a10
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/pqr/rp_code.c
@@ -0,0 +1,214 @@
+/*
+** ---  RP_CODE.C ------- PRINT R_CODE NUMBER  --------------------------------
+**
+**	Version: @(#)rp_code.c		4.0	02/05/89
+**
+*/
+
+# include	<stdio.h>
+# include	"r_code.h"
+
+# define	print(m, c)	printf("|%5x\t|%5d\t|%5o\t|\t%s\n", c, c, c, m); fflush(stdout)
+
+main()
+{
+# ifdef SETBUF
+	char	buf[BUFSIZ];
+
+	setbuf(stdout, buf);
+# endif
+
+	PQR_system = "r_code printer";
+	PQR();
+
+	printf("R_CODE:\n");
+	printf("--------------------------------------------\n");
+	printf("|  hex\t|  dec\t|  oct\t|\tcode\n");
+	printf("--------------------------------------------\n");
+	print("bdLT", bdLT);
+	print("bdEQ", bdEQ);
+	print("bdLE", bdLE);
+	print("bdGT", bdGT);
+	print("bdNE", bdNE);
+	print("bdGE", bdGE);
+	print("pushFALSE", pushFALSE);
+	print("pushTRUE", pushTRUE);
+	print("pushNULL", pushNULL);
+	print("push1INT", push1INT);
+	print("push2INT", push2INT);
+	print("push4INT", push4INT);
+	print("pushREAL", pushREAL);
+	print("pushSTRING", pushSTRING);
+	print("pushCONST", pushCONST);
+	print("pushCOL", pushCOL);
+	print("pushLINE", pushLINE);
+	print("pushALLINES", pushALLINES);
+	print("pushPAGE", pushPAGE);
+	print("pushTUPLE", pushTUPLE);
+	print("pushLAST", pushLAST);
+	print("pushVALUE", pushVALUE);
+	print("pushNEXT", pushNEXT);
+	print("pushVAR", pushVAR);
+	print("pushSWITCH", pushSWITCH);
+	print("rcNOT", rcNOT);
+	print("rcOR", rcOR);
+	print("rcAND", rcAND);
+	print("rcEND_SET", rcEND_SET);
+	print("rcMIN", rcMIN);
+	print("rcADD", rcADD);
+	print("rcSUB", rcSUB);
+	print("rcMUL", rcMUL);
+	print("rcDIV", rcDIV);
+	print("rcDIV_R", rcDIV_R);
+	print("rcMOD", rcMOD);
+	print("rcRC_END", rcRC_END);
+	print("rcRETURN", rcRETURN);
+	print("rcRTTS", rcRTTS);
+	print("rcEOTUP", rcEOTUP);
+	print("rcALL", rcALL);
+	print("rcONE", rcONE);
+	print("rcDATE", rcDATE);
+	print("rcTIME", rcTIME);
+	print("prCOL", prCOL);
+	print("prLINE", prLINE);
+	print("prALLINES", prALLINES);
+	print("prNEWPAGE", prNEWPAGE);
+	print("prPAGE", prPAGE);
+	print("prTUPLE", prTUPLE);
+	print("prVAR", prVAR);
+	print("prCONST", prCONST);
+	print("prSPACE", prSPACE);
+	print("prNEWLINE", prNEWLINE);
+	print("prNEWCOL", prNEWCOL);
+	print("prLAST", prLAST);
+	print("prVALUE", prVALUE);
+	print("prNEXT", prNEXT);
+	print("fmtB_BIT", fmtB_BIT);
+	print("fmtW_BIT", fmtW_BIT);
+	print("fmtB_OCT", fmtB_OCT);
+	print("fmtW_OCT", fmtW_OCT);
+	print("fmtB_DEC", fmtB_DEC);
+	print("fmtW_DEC", fmtW_DEC);
+	print("fmtB_HEX", fmtB_HEX);
+	print("fmtW_HEX", fmtW_HEX);
+	print("prSTRING", prSTRING);
+	print("prINPUT", prINPUT);
+	print("fmtINT", fmtINT);
+	print("fmtREAL", fmtREAL);
+	print("fmtCHAR", fmtCHAR);
+	print("fmtGRAPH", fmtGRAPH);
+	print("rcCASE", rcCASE);
+	print("rcREPEAT", rcREPEAT);
+	print("onBATCH", onBATCH);
+	print("onB_LINE", onB_LINE);
+	print("onE_LINE", onE_LINE);
+	print("onB_PAGE", onB_PAGE);
+	print("onE_PAGE", onE_PAGE);
+	print("rcJUMP", rcJUMP);
+	print("rcCALL", rcCALL);
+	print("setVAR", setVAR);
+	print("setSWITCH", setSWITCH);
+	print("rcIF", rcIF);
+	print("rcTHEN", rcTHEN);
+	printf("--------------------------------------------\n");
+	printf("|  hex\t|  dec\t|  oct\t|\tcode\n");
+	printf("--------------------------------------------\n");
+	main1();
+}
+
+main1()
+{
+	printf("\fR_CODE:\n");
+	printf("--------------------------------------------\n");
+	printf("|  hex\t|  dec\t|  oct\t|\tcode\n");
+	printf("--------------------------------------------\n");
+	print("bdEQ", bdEQ);
+	print("bdGE", bdGE);
+	print("bdGT", bdGT);
+	print("bdLE", bdLE);
+	print("bdLT", bdLT);
+	print("bdNE", bdNE);
+	print("fmtB_BIT", fmtB_BIT);
+	print("fmtB_DEC", fmtB_DEC);
+	print("fmtB_HEX", fmtB_HEX);
+	print("fmtB_OCT", fmtB_OCT);
+	print("fmtCHAR", fmtCHAR);
+	print("fmtGRAPH", fmtGRAPH);
+	print("fmtINT", fmtINT);
+	print("fmtREAL", fmtREAL);
+	print("fmtW_BIT", fmtW_BIT);
+	print("fmtW_DEC", fmtW_DEC);
+	print("fmtW_HEX", fmtW_HEX);
+	print("fmtW_OCT", fmtW_OCT);
+	print("onBATCH", onBATCH);
+	print("onB_LINE", onB_LINE);
+	print("onB_PAGE", onB_PAGE);
+	print("onE_LINE", onE_LINE);
+	print("onE_PAGE", onE_PAGE);
+	print("rcADD", rcADD);
+	print("rcAND", rcAND);
+	print("rcDIV", rcDIV);
+	print("rcDIV_R", rcDIV_R);
+	print("rcMIN", rcMIN);
+	print("rcMOD", rcMOD);
+	print("rcMUL", rcMUL);
+	print("rcNOT", rcNOT);
+	print("rcOR", rcOR);
+	print("rcSUB", rcSUB);
+	print("prCOL", prCOL);
+	print("prCONST", prCONST);
+	print("prINPUT", prINPUT);
+	print("prLAST", prLAST);
+	print("prLINE", prLINE);
+	print("prALLINES", prALLINES);
+	print("prNEWCOL", prNEWCOL);
+	print("prNEWLINE", prNEWLINE);
+	print("prNEWPAGE", prNEWPAGE);
+	print("prNEXT", prNEXT);
+	print("prPAGE", prPAGE);
+	print("prSPACE", prSPACE);
+	print("prSTRING", prSTRING);
+	print("prTUPLE", prTUPLE);
+	print("prVALUE", prVALUE);
+	print("prVAR", prVAR);
+	print("push1INT", push1INT);
+	print("push2INT", push2INT);
+	print("push4INT", push4INT);
+	print("pushALLINES", pushALLINES);
+	print("pushCOL", pushCOL);
+	print("pushCONST", pushCONST);
+	print("pushFALSE", pushFALSE);
+	print("pushLAST", pushLAST);
+	print("pushLINE", pushLINE);
+	print("pushNEXT", pushNEXT);
+	print("pushNULL", pushNULL);
+	print("pushPAGE", pushPAGE);
+	print("pushREAL", pushREAL);
+	print("pushSTRING", pushSTRING);
+	print("pushSWITCH", pushSWITCH);
+	print("pushTRUE", pushTRUE);
+	print("pushTUPLE", pushTUPLE);
+	print("pushVALUE", pushVALUE);
+	print("pushVAR", pushVAR);
+	print("rcALL", rcALL);
+	print("rcCALL", rcCALL);
+	print("rcCASE", rcCASE);
+	print("rcDATE", rcDATE);
+	print("rcEND_SET", rcEND_SET);
+	print("rcEOTUP", rcEOTUP);
+	print("rcIF", rcIF);
+	print("rcJUMP", rcJUMP);
+	print("rcONE", rcONE);
+	print("rcRC_END", rcRC_END);
+	print("rcREPEAT", rcREPEAT);
+	print("rcRETURN", rcRETURN);
+	print("rcRTTS", rcRTTS);
+	print("rcTHEN", rcTHEN);
+	print("rcTIME", rcTIME);
+	print("setSWITCH", setSWITCH);
+	print("setVAR", setVAR);
+	printf("--------------------------------------------\n");
+	printf("|  hex\t|  dec\t|  oct\t|\tcode\n");
+	printf("--------------------------------------------\n");
+	fflush(stdout);
+}