Hi Bruce, I placed code like the following in the OpenFiles routine:
loop 5 times
ds_OutputDebugString( 'Opening Files' )
ds_OutputDebugString( clip( GLO:UCABATCH )&' '&GLO:FILESPEC:Batch )
State{ PROP:Disconnect }
accdef{ prop:Disconnect }
batch{ PROP:Disconnect }
open( Company, 42h )
if errorcode()
ds_OutputDebugString( 'Company error '& errorcode() )
cycle
end!if
open( Activity, 42h )
if errorcode()
ds_OutputDebugString( 'Activity error '& errorcode() )
cycle
end!if
open( Flags, 42h )
if errorcode()
ds_OutputDebugString( 'Flags error '& errorcode() )
cycle
end!if
open( Client2, 42h )
if errorcode()
ds_OutputDebugString( 'Client2 error '& errorcode() )
cycle
end!if
open( SITE, 42h )
if errorcode()
ds_OutputDebugString( 'Site error '& errorcode() )
cycle
end!if
if errorcode()
ds_OutputDebugString( 'Batch error '& errorcode() )
cycle
end!if
if errorcode() then cycle.
break
end!loop
This appears to have resolved the problem with the server disconnecting.