>I have a client utility sending data strings to a service created using the following EMPS_Server_Class subclass. I have code in the DataArrival procedure that creates a LOG file whenever it is run. The log file does not get created, though I can tell that the port is open, listening and receiving as the client utility does not error out like it (normally) does if the port isn't actively open. Anyone have any ideas what I can do to debug this? I'm unable to walk through the code as it's a service. Unless there is a way to do that?

Puhleeeeze... wrap your lines. I had to put two desks together and six monitors side by side to read this.

>

>
>**********************************************************
>DEFINE CLASS EMPS_Class AS SESSION OLEPUBLIC
>
>	IMPLEMENTS DMSWinsockControlEvents IN "c:\windows\system32\mswinsck.ocx"
>
>	oSock = NULL
>
>
>	**********************************************************
>	PROCEDURE DMSWinsockControlEvents_Error(NUMBER AS INTEGER, DESCRIPTION AS STRING, ;
		Scode AS NUMBER, SOURCE AS STRING, HelpFile AS STRING, ;
		HELPCONTEXT AS NUMBER, CancelDisplay AS LOGICAL) AS VOID ;
		HELPSTRING "Error occurred"
>		* add user code here
>
>	ENDPROC
>
>
>	**********************************************************
>	PROCEDURE DMSWinsockControlEvents_DataArrival(bytesTotal AS NUMBER) AS VOID ;
		HELPSTRING "Occurs when data has been received from the remote computer"
>
>		*		strData = SPACE(256)  && Define string to pass to GetData
>
>* JJ - TESTING ONLY
>STRTOFILE('DataArrival: ' + DTOS(DATE()) + +CHR(10) + CHR(13),'c:\fmsrun\logfile.log',1)
>
>		THIS.oSock.OBJECT.GETDATA(@strData)
>
>		lnStart = SECONDS()
>		DO WHILE THIS.oSock.State = 6 AND SECONDS() - lnStart <= 5
>			DOEVENTS
>		ENDDO
>
>		IF THIS.oSock.State = 7
>			* Testing code to parse HL7 billing data from ;
		Medinotes Client to EM tables
>			=Convert_HL7_Billing_Data(strData)
>		ENDIF
>
>	ENDPROC
[ snip snip ]
>ENDPROC
>*******************************************************************************
>