Kbase P23923: 4gl Code sample to connect to the AppServer through AIA
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
13/11/2006 |
|
Status: Unverified
GOAL:
4GL Code sample to connect to the AppServer through AIA
FIX:
Sample Connection program to Appserver from Aia.
DEFINE VARIABLE hAppSrv AS HANDLE NO-UNDO.
DEFINE VARIABLE ret AS LOGICAL NO-UNDO.
CREATE SERVER hAppSrv.
ret = hAppSrv:CONNECT("-URL http://hostname/aia/Aia?AppService=asbroker1").
IF NOT ret THEN
RETURN ERROR "Failed to connect to AppServer".
MESSAGE "Connected" VIEW-AS ALERT-BOX.
PAUSE.