The goal is tohave messages in English in an ENG folder, messages in Spanish in a SPA folder.The administration messages will remain in French in the English folder and the Spanish folder.
Warning:
The batch server run on the SERVX3 folder uses the SERVSYS processing located in the TRT directory of the X3 standard reference folder.
The entry point declaration and the specific process associated with it must be located in the X3 reference folder so that this entry point might be taken into account.
Moreover, as all the global variable are not declared, it is recommended to test their presence before using them. For example, the GLON* global variables are not declared.
The LANRUN entry point is called each time a query is run.It is located in the REQUETE subprogram of the SERVSYS processing. For information purposes, with Unix, the batch task will be run (depending on the options) using the following system command: 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
Language = [F:ads]LANDEF
Endif
If find(LANGUE,[F:ADS]LAN(0..[F:ADS]NBRLAN-1))=0
LANGUE = [F:ADS]LAN(0)
Endif
Endif