Настройка и управление серверными ресурсами в OpenEdge Management

Часть 2. Настройка AppServer в качестве ресурса OE Management

1. Подключитесь к консоли OE Management и создайте новый AppServer, присвоив ему имя New1. Для этого перейдите в меню Resources и выберите пункт New OpenEdge Resource -> AppServer. Присвойте имя New1 и щёлкните по кнопке Save.

2. Необходимо настроить порт и параметры старта сервера для сервера приложений New1. Установите порт 5010 и укажите режим (Operating Mode) равным state-free. Введите в параметрах старта сервера -db /home/user/testdb_mgmt/newdb

Для доступа к странице Configuration щёлкните по ссылке Configuration в секции Command and Control на странице AppServer.

Выполните следующие действия для настроек, описанных выше:

• Щёлкните по кнопке Edit на страницеConfiguration.
• Во вкладке Broker в поле Port number укажите 5010 и выберите режим работы сервера приложений State-free в поле Operating Mode.
• Во вкладке Agent в поле Server startup parameters укажите параметр подключения к базе данных -db /home/user/testdb_mgmt/newdb
• Щёлкните по кнопке Save.

3. Выполните старт AppServer`а. Для этого в секции Command and Control на странице AppServer щёлкните по ссылке Broker Control. В открывшемся окне щёлкните по кнопке Start AppServer.

4. Создайте две программы ClnGetCustName.p и SrvGetCustName.p

Код ClnGetCustName.p:

DEF VAR appHandle AS HANDLE.
DEF VAR outName   AS CHARACTER.
DEF VAR cnctParam AS CHARACTER.
DEF VAR ret       AS LOGICAL.
DEF VAR inNum     AS INT.

inNum=10.

CREATE SERVER appHandle.
cnctParam = "-sessionModel Session-free -S 5162 -H localhost -AppService New1".

ret = appHandle:CONNECT(cnctParam).

IF (ret) THEN DO:
   RUN SrvGetCustName.p ON appHandle (INPUT inNum, OUTPUT outName).
   DISPLAY "Customer Name: " outName SKIP. PAUSE.
   appHandle:DISCONNECT().
END.

OUTPUT CLOSE.                       

QUIT.

Код SrvGetCustName.p:

DEF INPUT PARAM customerNumber AS INTEGER.
DEF OUTPUT PARAM customerName AS CHAR.

IF CONNECTED("newdb") THEN DO:
      FIND FIRST customer WHERE custNum = customerNumber NO-LOCK NO-ERROR.
      IF AVAILABLE customer THEN                                          
          customerName = Name. 
      ELSE 
          customerName = "No record".
          PUT UNFORMATTED "CustomerName = " customerName SKIP.
END.
ELSE 
   customerName = "Not connected to Newdb".

Перейдите в командную строку, и выполните программу ClnGetCustName.p четыре (4) раза.

mpro newdb -p ClnGetCustName.p

5. В секции Operation Views на странице AppServer щёлкните по ссылке Broker Performance View и посмотрите, как запуск программы повлиял на Completed requests, Client connections и Last Run Procedures.

На этом у меня всё. Поэкспериментируйте с настройкой AppServer. В случае необходимости обратитесь к документации OpenEdge для выяснения каких-либо деталей.

В следующей статье мы разберем тему «Настройка и управление OpenEdge-адаптерами в OpenEdge Management».