[RESOLVIDO] Execucao em appserver.

Pessoal,

Tenho algumas "apis" proprias.

Para execucao em um programa progress, uso, por exemplo o código abaixo:

Código:

RUN fluig/ZoomItemEstoque.p  PERSISTENT SET h-ceapi.

RUN buscaItem in h-ceapi  (c-it-codigo,
  OUTPUT TABLE ttItem).

Agora preciso realizar a execução via Appserver.

Para a conexão ao Appserver utilizei o código abaixo, mas não achei como deveria ficar o código para executar a api após a conexao ....

Código:

DEF  VAR  h-App-Server   AS HANDLE                    NO-UNDO.  /*Handle AppServer*/
DEF  VAR  l-Return       AS LOGICAL                   NO-UNDO.
DEF  VAR  c-Mensagem     AS CHAR     format "x(300)"  NO-UNDO.

                                         /*    dts11_colombo_prod    */
DEF VAR c-Param  AS CHAR  INITIAL "-AppService dts11_colombo_teste -H 172.18.107.20 -S 5162" NO-UNDO.

IF NOT VALID-HANDLE(h-App-Server) THEN
   
    CREATE SERVER h-App-Server.

    l-Return = h-App-Server:CONNECT(c-Param) NO-ERROR.

    MESSAGE "l-Return = " l-Return VIEW-AS ALERT-BOX.

    IF ERROR-STATUS:ERROR OR NOT h-App-Server:CONNECTED() THEN DO:
        c-Mensagem =  "[" + string(ERROR-STATUS:GET-NUMBER(ERROR-STATUS:NUM-MESSAGES)) + "] - " +
                      ERROR-STATUS:GET-MESSAGE(ERROR-STATUS:NUM-MESSAGES) + ":" + " App Server nao conectado".
        RETURN  "NOK".
    END.

É a mesma coisa., só que os programas no servidor devem estar compilados no ambiente do appserver.