Páginas filhas
  • LOG_4GL_application_run_jobmode


Executar um programa 4GL em modo JOB (sem interface), utilizando a instrução FGLRUN da linguagem 4GL, permitindo passar uma lista de parâmetros e também determinar se deverá ou não aguardar o término da execução em modo JOB antes de prosseguir com as demais instruções.

Sintaxe

LOG_4GL_application_run_jobmode( [ <l_4gl_process>, [<l_arguments>], <l_wait_run> ] ) => SMALLINT

Parâmetros

Nome

Tipo

Obrigatório?

Descrição

l_4gl_process
CHAR
Sim

Nome do programa 4GL (contendo bloco MAIN..END MAIN) a ser executado em modo JOB (nova thread sem interface no AppServer).

l_arguments
CHAR
Não

Texto contendo a lista de parâmetros a serem enviados para o programa a ser executado.

Cada parâmetro estará separado por um espaço em branco, podendo estar compreendido entre aspas, no caso de um dos parâmetros ser um texto.

Exemplo
FGRLRUN prg01 AB "parametro 02 entre aspas" 48

Neste caso o programa prg01 está recebendo 3 parâmetros, sendo:
     Parâmetro 1 = AB             
     Parâmetro 2 = parâmetro 02 entre aspas             
     Parâmetro 3 = 48

l_wait_run
SMALLINT
SimIndicador se deverá aguardar o término da execução do programa em modo JOB, antes de prosseguir para a próxima instrução do programa principal que está invocando a sua execução.

Retorno

Tipo

Descrição

SMALLINT

Indicador de sucesso de execução do programa em modo JOB.

TRUE - Programa executado em JOB

FALSE - Falha ao executar programa em JOB.

Exemplo

#----------------------------------------------#
FUNCTION LOG_4GL_application_run_jobmode_test()
#----------------------------------------------#
  DEFINE l_status SMALLIN

  ## Executar em modo JOB o programa abc0000.4gl com 2 parametros sendo parâmetro 1 (123) e parâmetro 2 (Segundo parâmetro) e deverá aguardar o término da execução antes de prosseguir
  IF LOG_4GL_application_run_jobmode("abc0000","123 'parâmetro 2'",TRUE) THEN
     CALL conout("Execucao em JOB realizada com sucesso")
  ELSE
     CALL conout("Falha na execucao em modo JOB do programa abc0000.4gl")
  END IF
END FUNCTION

Abrangência

Disponível a partir do Logix 12.1.33.


Veja também

LGX - Pool Job Threads