Script SERVJOB : SERVJOB
SETREQ
O ponto de entrada SETREQ está desencadeado durante a criação de um pedido a partir de um ficheiro "job". Isto permite gerar a sincronização dos processos em recuperando o número de pedido.
Contexto e modo de funcionamento.
No contexto do ponto de entrada :
- Ficheiro rastro está um aberto
As seguintes tabelas estão em linha :
Tabela | Conteúdo significativo | Descr. Tabela |
|---|---|---|
ABATRQT [ABR] | Não | Servidor batch (Pedidos) |
ABATPAR [ABP] | Não | Servidor batch (Parâmetros) |
O ponto de entrada SETREQ está posicionado no tratamento SERV JOB justo após a criação do pedido na tabela ABATRQT. Este tratamento está chamado pelo servidor batch e todas as variáveis globais da aplicação não são definidas.
O nome do rasto do servidor batch está contido na variável FICTRA e é possível de escrever neste rasto em utilizando o sub-programa STRACE do tratamento SERVEUR Os argumentos deste sub-programa estão na ordem : FICTRA (Alpha), Número de erro (Integer), Número de pedido (Integer), Comentários (Alpha)
FICTRA contém o nome do rasto aberto
JOB contém o nome do ficheiro "job"
APPLI contém o nome de aplicação sobre o qual o pedido foi criado
As tabelas ABATRQT e ABATPAR são abertas e prenchidas
WRJOB : Durante a criação do ficheiro standard
O ponto de entrada WRJOB está dessencadeado durante a criação do ficheiro "sta" ou "run". Isto permite gerir o nome do ficheiro e poder modificar os parâemtros antes a escrita do ficheiro.
Contexto e modo de funcionamento
No contexto do ponto de entrada :
- Ficheiro rastro está um aberto
As seguintes tabelas estão em linha :
Tabela | Conteúdo significativo | Descr. Tabela |
|---|---|---|
ABATRQT [ABR] | Não | Servidor batch (Pedidos) |
ABATPAR [ABP] | Não | Servidor batch (Parâmetros) |
Contexto de chamada
O ponto de entrada WRJOB está posicionado no tratamentro SERVJOB justo antes a criação do ficheiro "sta". Este trataamento está chamado pelo servidor batch e todas as variáveis globais de aplicaação não são definidas.
GPE está inicializado a 0, se GSE superior a 0 em volta do ponto de entrada, sai-se do sub-prograam sem escrever o ficheiro.
Variáveis
Lista das variáveis passadas pela chamada do subprograma:
JOB : nome do ficheiro " .job"
TYP : tipo de ficheiro, por exemplo "sta"
ERR Número de erro
REQ : Número pedido
APP : Dossier
USR : Utilizador
TAC : Tarefa
MES : Mensagem:
Após a criação do ficheiro se DATDEB e DATFIN são vazios, inicializa-se estas variáveis seguindo as regras seguintes :
Case TYP
When "sta"
If [L]NUMREQ=0 : DATDEB = DD+HS
Else
If [F:ABR]DAT<>[0/0/0] : DATDEB = [F:ABR]DAT : Else : DATDEB = DD : Endif
If [F:ABR]HDEB<>"" : DATDEB += [F:ABR]HDEB
Elsif [F:ABR]HEURE<>"" : DATDEB += [F:ABR]HEURE+"00"
Else : DATDEB += HS :
Endif
Endif
DATFIN = DD+HS
When Default
DATDEB = DD+HS
DATFIN = ""
Endcase
O resto das variáveis não são a modificar antes os seus registos.
Exemplo de utilização
Pode-se modificar a variávelFICHIER para modificar o nome de ficheiro "sta"