Fixed a bug where the ProcessProcedureQueue service would write an invalid record to the PROC_QUEUE2 table when failing to read a record.

LSL2/STPROC/SERVICE_SERVICES.txt

@@ -182,8 +182,8 @@ Service ProcessProcedureQueue()
                 Loop
                     ReadNext RequestKeyID else EOF = True$
                 Until EOF
-                    SendRequest = True$
                     Read RequestRec from hProcQueue, RequestKeyID then
+                    	SendRequest = True$
                         InQueue     = RequestRec<PROC_QUEUE.IN_QUEUE$>
                         If InQueue then
                             QueuedDtm = RequestRec<PROC_QUEUE.QUEUED_DTM$>
@@ -191,7 +191,6 @@ Service ProcessProcedureQueue()
                                 SendRequest = False$
                             end
                         end
-                    end
 						If SendRequest then 
 							TcpClientHandle = 0
 							If SRP_TcpClient(TcpClientHandle, 'CONNECT', ServerIP, ServerPort) then
@@ -204,6 +203,7 @@ Service ProcessProcedureQueue()
 								SRP_TcpClient(TcpClientHandle, 'CLOSE_SES')
 							end
 						end                        
+                    end
                 Repeat
 		    end
 		end
@@ -474,4 +474,3 @@ end service
 /// Internal GoSubs
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 
-