[RESOLVIDO] Trabalhando com appserver

e agora vem outra pergunta, e se eu estou usando um client PHP ?

Então, ai é que está o legal do appServer, disponibilizar webservices para vc usar de qualquer tipo de client, não vejo muito sentido eu usar o appserver pra conectar com o proprio progress.

Olá Pessoal,

É possível sim ter procedures internas nos .p, abaixo o código de exemplo adaptado:

Código:

DEFINE VARIABLE lAppService   AS LOGICAL                 NO-UNDO.
DEFINE VARIABLE hAppSrv       AS HANDLE                  NO-UNDO.
DEFINE VARIABLE hProg         AS HANDLE                  NO-UNDO.
DEFINE VARIABLE lExec AS LOGICAL     NO-UNDO.

CREATE SERVER happsrv.
ASSIGN lAppService = hAppSrv:CONNECT("-AppService datasul-progress-8280 -H 10.1.1.1 ").
IF NOT lAppService THEN DO:
   MESSAGE "Erro de Conexao com AppService"  VIEW-AS ALERT-BOX ERROR.
   RETURN ERROR.
END.

run esp\teste2.p PERSISTENT SET hProg on server happsrv.

RUN minha_procedure_interna IN hProg (INPUT "aaa",
                                      INPUT 222).

MESSAGE "Deu certo ou não! rsrs!".

DELETE PROCEDURE hProg NO-ERROR.

ASSIGN lExec = hAppSrv:DISCONNECT() NO-ERROR.
DELETE OBJECT hAppSrv NO-ERROR.

Eu uso AppServer com Progress, na situação em que eu só posso executar o programa em um servidor, ai centralizo várias chamadas com a execução e processamento em um único lugar.

o AppServer também é a base para criar um WebService e permitir se comunicar com outras linguagens, a conexão direta no AppServer é possível através do Progress, Java, .NET, Web Service, Sonic Web Service, e Sonic Native Invocation. Com exceção do Sonic já trabalhei com as demais.

Espero que ajude.