Kbase P14224: How to connect to Dynamics appserver from a 4GL program which runs outside Dynamics environment?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
03/11/2005 |
|
Status: Unverified
GOAL:
How to connect to Dynamics appserver from a 4GL program which runs outside Dynamics environment?
GOAL:
How to connect to icfrepos Appserver from 4GL?
FACT(s) (Environment):
Dynamics 2.0A
Progress 9.1D
Progress 9.1C
FIX:
DEF VAR hSrv AS HANDLE.
DEF VAR connString AS CHARACTER.
DEF VAR cAppServerInfo AS CHARACTER.
DEF VAR cSessionType AS CHARACTER.
DEF VAR cUserName AS CHARACTER.
DEF VAR cPassword AS CHARACTER.
DEF VAR hDynUser AS HANDLE.
cAppServerInfo = SESSION:NUMERIC-SEPARATOR + SESSION:NUMERIC-DECIMAL-POINT
+ SESSION:DATE-FORMAT + ",":U.
RUN "af/app/afdynuser.p":U PERSISTENT SET hDynUser.
cUserName = DYNAMIC-FUNCTION("generateUserName":U IN hDynUser).
cPassword = DYNAMIC-FUNCTION("createPassword":U IN hDynUser, cUserName).
connString = '-H localhost -S NS1 -AppService icfrepos '.
CREATE SERVER hSrv .
hSrv:CONNECT( connString, cUserName, cPassword, cAppServerInfo ).
MESSAGE hSrv:CONNECTED() VIEW-AS ALERT-BOX.