Rodar procedure em outro computador.

Discussão em 'Progress 4GL' iniciado por kikofr, Janeiro 27, 2010.

  1. kikofr

    kikofr Membro Participativo

    Boa tarde,

    Gostaria de tirar uma duvida sobre desenvolvimento de procedures distribuidas. Hoje possuo uma procedure que roda um for each que é pesado quando executado no client (leva em torno de 40 minutos) mas, como temos um servidor mais ou menos ocioso, gostaria de rodar a procedure nesse servidor e só me devolvendo a temp-table que a procedure gera.

    É possivel fazer algo assim? O que precisaria para conseguir realizar essa tarefa?

    Obrigado desde já.
  2. pitsa

    pitsa Membro Participativo

    é possível sim, no servidor você irá configurar o AppServer, através deste serviço você poderá executar procedures remotamente, exemplo:

    Código:
    DEFINE VARIABLE hAppServer  as handle  no-undo.
    DEFINE VARIABLE ret         as logical no-undo.
    
    CREATE SERVER hAppServer.
    ret = hAppServer:CONNECT("-sessionModel Session-free -AppService MeuAppServer -H 192.168.0.1 -S 5162"). /* -sessionModel Session-free */
    IF NOT ret THEN
        RETURN.
    
    if valid-handle(hAppServer) then
    
         RUN esp\esap0001.p on hAppServer
                        (INPUT  TABLE tt-item, 
                         OUTPUT table tt-retorno).
    
            hAppServer:disconnect().
    end.
    
    
  3. kikofr

    kikofr Membro Participativo

    ok, tens algum manual para configuração do AppServer?
  4. pitsa

    pitsa Membro Participativo

    segue um documento bacana ;)

    Arquivos Anexados:

  5. kikofr

    kikofr Membro Participativo

    Opa, valeu pelo documento, mas ele é sobre o desenvolvimento, correto?

    Como faço para ativar o serviço do appServer?
  6. pitsa

    pitsa Membro Participativo

Compartilhe esta Página