Good Evening All,
OE10.1b running on Win32.
I am testing failsafes on an EPOS system.
EPOS client communicates last sales transaction via appserver to a backoffice suite after each sale.
This working well.
I then try when I pull the network cable out (network failure).
The CONNECT METHOD takes approximately 60 seconds before it reports failure on connect.
Is there any client parameter in order to shorten this time waiting for connect ??
Many thanks
-------------------------------------------------------------------
vconnectstring = "-H 192.168.145.189 -Appservice Aservice".
MESSAGE "Attempting To Contact Appserver on " lvhost-ip
VIEW-AS ALERT-BOX.
CREATE SERVER hServer.
MESSAGE "Created Server " hserver
VIEW-AS ALERT-BOX.
MESSAGE "Attempting to connect to appserver on " lvhost-ip
SKIP
vconnectstring
VIEW-AS ALERT-BOX.
/***********************/
vAns = hServer:CONNECT(vConnectString, "bill", ?, ?) NO-ERROR.
/***********************/
MESSAGE "Back From CONNECT " vans
VIEW-AS ALERT-BOX.
IF vAns THEN DO:
hServer=SESSION:HANDLE.
vConnected = TRUE.
MESSAGE "Appserver on host " vhost " contacted"
VIEW-AS ALERT-BOX.
END.
ELSE DO:
vConnected = FALSE.
MESSAGE "Failed To Contact Appserver On Host " vhost
SKIP
"Check on host that appserver is running using Progress Explorer Tool"
VIEW-AS ALERT-BOX.
END.
OE10.1b running on Win32.
I am testing failsafes on an EPOS system.
EPOS client communicates last sales transaction via appserver to a backoffice suite after each sale.
This working well.
I then try when I pull the network cable out (network failure).
The CONNECT METHOD takes approximately 60 seconds before it reports failure on connect.
Is there any client parameter in order to shorten this time waiting for connect ??
Many thanks
-------------------------------------------------------------------
vconnectstring = "-H 192.168.145.189 -Appservice Aservice".
MESSAGE "Attempting To Contact Appserver on " lvhost-ip
VIEW-AS ALERT-BOX.
CREATE SERVER hServer.
MESSAGE "Created Server " hserver
VIEW-AS ALERT-BOX.
MESSAGE "Attempting to connect to appserver on " lvhost-ip
SKIP
vconnectstring
VIEW-AS ALERT-BOX.
/***********************/
vAns = hServer:CONNECT(vConnectString, "bill", ?, ?) NO-ERROR.
/***********************/
MESSAGE "Back From CONNECT " vans
VIEW-AS ALERT-BOX.
IF vAns THEN DO:
hServer=SESSION:HANDLE.
vConnected = TRUE.
MESSAGE "Appserver on host " vhost " contacted"
VIEW-AS ALERT-BOX.
END.
ELSE DO:
vConnected = FALSE.
MESSAGE "Failed To Contact Appserver On Host " vhost
SKIP
"Check on host that appserver is running using Progress Explorer Tool"
VIEW-AS ALERT-BOX.
END.