La demande est d'avoir des message en Anglais sur un dossier ENG, les messages en espagnol sur un dossier SPA. Les messages d’administration resteront en Français sur le dossier Anglais et le dossier Espagnol.
Attention :
Le serveur batch qui s'execute sur le dossier SERVX3, utilise le traitement SERVSYS qui se trouve dans le répertoire TRT du dossier de référence standard X3.
Pour que ce point d'entrée soit pris en compte il faut que la déclaration du point d'entrée et le traitement spécifique associé soient dans le dossier de référence X3.
De plus, toutes les variables globales n'étant pas déclarées, il vaut mieux tester leur présence avant de les utiliser. Par exemple, les variable globales GLON* ne sont pas déclarées.
Le point d’entrée LANRUN est appelé à chaque lancement d'une requête. Il est situé dans le sous-programme REQUETE du traitement SERVSYS : Pour info, sous Unix, la tâche batch sera lancée en lançant (suivant les options) la commande système suivante: 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