O pedido é deuma nota de crédito das mensagens em Inglês sobre um dossier ENG, as mensagens em espanhol sobre um dossier SPA. As mensagens de administração resterão em Francês sobre o dossier Inglês e o dossier Espanhol.
Atenção :
O servidor batch que se executa sobre o dossier SERVX3, utiliza o tratamento SERVSYS que se encontra no diretório TRT do dossier de referência standard X3.
Para que este ponto de entrada seja tido em conta falta que a declaração do ponto de entrada e o tratamento específico associado sejam no dossier de referência X3.
De mais, todas as variáveis globais não sendo declarados, vale melhor testar a sua presença antes de os utilizar. Por exemplo, as variáveis globais GLON* não são delcaradas.
O ponto de entrada LANRUN está chamado em cada lançamento de um pedido. Esta situado no sub-programa REQUETE do tratamento SERVSYS : Para info, sob Unix, a tarefa batch será lançada em lançando (seguindo as opções) a encomenda sistema seguinte : EXEC_ENTREP="BATCH" RQT_ENTREP=NoRequête adonix -a -l LANGUE </tmp/serveur.ent >>/tmp/NoRequête.log 2>&1
Subprog REQUETE(PID)
Variable Char PID
Local Char LANGUE(5)
If clalev([F:ADS])=0 : Local File ADOSSIER [ADS] : Endif
Read [ADS]DOSSIER = [F:ABR]DOSSIER
GPE = 0
GPOINT = "LANRUN" : Gosub ENTREE From EXEFNC
If !GPE
If dim([F:ABR]LAN)>0 & [F:ABR]LAN<>""
LANGUE = [F:ABR]LAN
Else
LANGUE = [F:ADS]LANDEF
Endif
If find(LANGUE,[F:ADS]LAN(0..[F:ADS]NBRLAN-1))=0
LANGUE = [F:ADS]LAN(0)
Endif
Endif