From 719f0386bd341a38882a71c6563806d4950e998b Mon Sep 17 00:00:00 2001
From: danw <danw>
Date: Fri, 25 Jun 1999 15:06:06 +0000
Subject: [PATCH] inprogress was only being cleared for replicated serverhosts
 if the executing instructions step failed. clear it if the sending data step
 fails too.

---
 dcm/dcm.pc | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/dcm/dcm.pc b/dcm/dcm.pc
index cf00da65..c34b8263 100644
--- a/dcm/dcm.pc
+++ b/dcm/dcm.pc
@@ -357,13 +357,7 @@ void do_hosts(char *service)
 		}
 
 	      if (type == REPLICATED)
-		{
-		  /* We're giving up, so clear the inprogress flag on
-		     any hosts in this service we haven't gotten to yet */
-		  EXEC SQL UPDATE serverhosts SET inprogress = 0
-		    WHERE service = UPPER(:service);
-		  break;
-		}
+		break;
 	    }
 	  else
 	    {
@@ -376,6 +370,15 @@ void do_hosts(char *service)
       EXEC SQL CLOSE csr_hst2;
     }
 
+  if (type == REPLICATED)
+    {
+      /* Clear inprogress flag on any hosts we started but didn't
+       * finish.
+       */
+      EXEC SQL UPDATE serverhosts SET inprogress = 0
+	WHERE service = UPPER(:service);
+    }
+
   EXEC SQL WHENEVER SQLERROR DO dbmserr();
   if (status && !SOFT_FAIL(status) && type == REPLICATED)
     {
-- 
2.45.2