From e56b154b4cba2ac1fb1da41ef322e056248d8386 Mon Sep 17 00:00:00 2001
From: Marty Kraimer <mrkraimer@comcast.net>
Date: Fri, 18 Feb 2000 13:29:46 +0000
Subject: [PATCH] A dbPutLink is attempted for all links even if a put for a
 previous link fails.

---
 src/rec/dfanoutRecord.c | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/src/rec/dfanoutRecord.c b/src/rec/dfanoutRecord.c
index e2f67bfb2..a2fa3ef7e 100644
--- a/src/rec/dfanoutRecord.c
+++ b/src/rec/dfanoutRecord.c
@@ -75,7 +75,7 @@ struct rset dfanoutRSET={
 
 static void alarm();
 static void monitor();
-static long push_values();
+static void push_values();
 
 #define OUT_ARG_MAX 8
 
@@ -106,8 +106,8 @@ static long process(pdfanout)
     pdfanout->pact = TRUE;
     recGblGetTimeStamp(pdfanout);
     /* Push out the data to all the forward links */
-    status = push_values(pdfanout);
     alarm(pdfanout);
+    push_values(pdfanout);
     monitor(pdfanout);
     recGblFwdLink(pdfanout);
     pdfanout->pact=FALSE;
@@ -251,7 +251,7 @@ static void monitor(pdfanout)
 	return;
 }
 
-static long push_values(pdfanout)
+static void push_values(pdfanout)
 struct dfanoutRecord *pdfanout;
 {
         struct link     *plink; /* structure of the link field  */
@@ -260,7 +260,6 @@ struct dfanoutRecord *pdfanout;
 
         for(i=0, plink=&(pdfanout->outa); i<OUT_ARG_MAX; i++, plink++) {
                 status=dbPutLink(plink,DBR_LONG,&(pdfanout->val),1);
-                if (!RTN_SUCCESS(status)) return(-1);
+                if(status) recGblSetSevr(pdfanout,LINK_ALARM,MAJOR_ALARM);
         }
-        return(0);
 }