atuldalvi
Member
Hi,
We have designed one test appserver on my colleague machine for our learning.
We both have progress installed on our machines.
We designed 2 programs, one is simple client.p which will call .p kept on appserver working directory.
appserver .p program has only simple message "Hi" nothing else.
client .p is like below
when we running client.p from my colleague's desktop then its calling that appserver .p program located in wrking directory and printing message "Hi".
but the same client.p when I am running from my machine, its not calling that appserver program located at my colleague machines, getting message appserver .p not found
How do I test this client server architecture environment.
Please help.
We have designed one test appserver on my colleague machine for our learning.
We both have progress installed on our machines.
We designed 2 programs, one is simple client.p which will call .p kept on appserver working directory.
appserver .p program has only simple message "Hi" nothing else.
client .p is like below
Code:
DEFINE VARIABLE sh AS HANDLE NO-UNDO. /* Server handle */
DEFINE VARIABLE ah AS HANDLE NO-UNDO. /* Asynchronous request handle */
Def var lServer as logical no-undo.
CREATE SERVER sh.
sh:CONNECT("-AppService test -H xx.xx.xx.xx -S 5162").
IF lServer = FALSE THEN
ASSIGN sh = SESSION:HANDLE.
IF VALID-HANDLE(sh) = FALSE THEN
DO:
MESSAGE "No server connected.." VIEW-AS ALERT-BOX.
RETURN ERROR.
END.
RUN AppSrv.p ON SERVER sh .
RETURN.
when we running client.p from my colleague's desktop then its calling that appserver .p program located in wrking directory and printing message "Hi".
but the same client.p when I am running from my machine, its not calling that appserver program located at my colleague machines, getting message appserver .p not found
How do I test this client server architecture environment.
Please help.
Last edited by a moderator: