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: |
l_wait_run | SMALLINT | Sim | Indicador 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 |
---|---|
| 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