make ingres_errno global; check for error while setting ID numbers

diff --git a/server/qrtn.qc b/server/qrtn.qc
index 3594ad227e04397944048c243296d43fe6a68fad..56be528b2639a59820cb2d72a8d2a44313db8aad 100644 (file)
--- a/server/qrtn.qc
+++ b/server/qrtn.qc
@@ -16,7 +16,7 @@ static char *rcsid_qrtn_qc = "$Header$";
 
 char *Argv[16];
 
-static int ingres_errno = 0;
+int ingres_errno = 0;
 extern char *whoami;
 extern FILE *journal;
 
@@ -136,6 +136,7 @@ sms_process_query(cl, name, argc, argv_ro, action, actarg)
     if (q == (struct query *)0) return(SMS_NO_HANDLE);
     v = q->validate;
 
+    ingres_errno = 0;
     if (q->type != RETRIEVE)
 ##      begin transaction
 
@@ -777,6 +778,7 @@ set_next_object_id(object, table)
     if (LOG_RES)
         com_err(whoami, 0, "setting ID %s to %d", name, value);
 ##  repeat replace v (#value = @value) where v.#name = @name
+    if (ingres_errno != 0) return(ingres_errno);
     return(SMS_SUCCESS);
 ##}