Configuring the OpenEdge AppServer agent as a self-service DataServer session

To configure the OpenEdge AppServer agent as a self-service DataServer session:

1. Make sure that the AdminService is running.

Note: For more information on using the PROADSV tool, see the OpenEdge Application Server: Administration guide.

2. Add the following property in the ubroker.properties file under UBroker.AS.asbroker1 section: srvrStartupParam= -pf "$WRKDIR/conn.pf" where AS1 is the AppServer.

3. Start the Application Server broker using the following command:

asbman -i asbroker1 -start

Note: For more information on using asbman commands and its parameters, refer to the OpenEdge Application Server: Administration.

4. Open an ABL session and execute the client.p to connect to the self-service DataServer through an OpenEdge Appserver instance as shown in the following example:

client.p
----------
DEFINE VARIABLE hServer AS HANDLE NO-UNDO.
DEFINE VARIABLE i AS logical.
CREATE SERVER hServer.
/*hServer:CONNECT('-AppService asbroker1 -S 5162 -H <hostname> -nsClientMinPort 5000
-nsClientMaxPort 50100') NO-ERROR.*/
hServer:CONNECT('-AppService asbroker1').
i = hServer:Connected().
message i.
MESSAGE "Error:" ERROR-STATUS:ERROR.
IF ERROR-STATUS:ERROR = FALSE THEN
DO:
RUN server.p ON hServer .
hServer:DISCONNECT().
END.
ELSE
MESSAGE ERROR-STATUS:GET-MESSAGE(1).
DELETE OBJECT hServer NO-ERROR.
output close.
quit.