Set PACT if error occurred during record init

src/dev/testDev/devHistogramTestAsyn.c

@@ -69,6 +69,7 @@ static long init_record(phistogram)
     default :
 	recGblRecordError(S_db_badField,(void *)phistogram,
 	    "devHistogramTestAsyn (init_record) Illegal SVL field");
+        phistogram->pact=TRUE;
 	return(S_db_badField);
     }
     return(0);