diff --git a/WEGA/contrib/ingres/dbs/src/pqr/rc_case.c b/WEGA/contrib/ingres/dbs/src/pqr/rc_case.c
new file mode 100644
index 0000000..4a75d23
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/pqr/rc_case.c
@@ -0,0 +1,31 @@
+/*
+** ---  RC_CASE.C ------- UPDATE CASE JUMP TABLE  -----------------------------
+**
+**	Version: @(#)rc_case.c		4.0	02/05/89
+**
+*/
+
+# include	"rc.h"
+
+
+rc_case(rc)
+register char	*rc;
+{
+	register int	i;
+	register char	*rc_save;
+
+	/* write CASE # and addr(CASE jump table) */
+	rc_save = R_rc;
+	R_rc = rc;
+	RC_WORD(Case_no++);
+	R_rc = rc_save;
+	RC_UPDATE(rc + sizeof (short));
+
+	/* update CASE jump table, relativ to table and write */
+	rc = R_rc;
+	for (i = 0; i < Case_no; i++)
+		RC_WORD(Case[i] - rc);
+
+	/* initialize new CASE */
+	Case[0] = 0;
+}