**********************************************************************
* PREPARATION DE LA MAJ

* VERIFIE EXISTANCE FICHIER PARAMMAJCD
OPEN "","PARAMMAJCD" TO F.PARAMMAJCD ELSE
	EXECUTE 'CREER-FICHIER PARAMMAJCD 1,1'
	OPEN "","PARAMMAJCD" TO F.PARAMMAJCD ELSE PRINT "ERREUR PARAMMAJCD"
END

* RECUPERE PARAMETRE
PROCREAD PARAMETRES ELSE STOP

W_RANGCD=INDEX(PARAMETRES," ",1)
W_CD=PARAMETRES[W_RANGCD+1,1]
W_RANGDD=INDEX(PARAMETRES," ",2)
W_DD=PARAMETRES[W_RANGDD+1,1]
W_RANGBASE=INDEX(PARAMETRES," ",3)
W_RANGCHEMIN=INDEX(PARAMETRES," ",4)
W_BASE=PARAMETRES[W_RANGBASE+1,W_RANGCHEMIN-W_RANGBASE]
W_CHEMIN=PARAMETRES[W_RANGCHEMIN+1,99]

* LECTURE + ECRITURE DANS PARAMMAJCD
READ ENR_PARAMMAJCD FROM F.PARAMMAJCD,"1" ELSE ENR_PARAMMAJCD=""
ENR_PARAMMAJCD<1>=W_CD
ENR_PARAMMAJCD<2>=W_DD
ENR_PARAMMAJCD<3>=W_BASE
ENR_PARAMMAJCD<4>=W_CHEMIN
WRITE ENR_PARAMMAJCD ON F.PARAMMAJCD,"1"

**********************************************************************
* LANCEMENT DES DIVERS PROGRAMMES


EXECUTE 'RUN INSTALLMAJ COPIER-CD'
***
* Specif version 3.4.3 - 3.5.0
EXECUTE 'BASIC PRMOUL LOGININPR'
EXECUTE 'BASIC PRMOUL LOGININPRMOUL'
EXECUTE 'RUN PRMOUL LOGININPR'
EXECUTE 'RUN PRMOUL LOGININPRMOUL'
*****
EXECUTE 'MAJ_VOC'
EXECUTE 'RUN INSTALLMAJ SUPP-DICT' 
EXECUTE 'RUN INSTALLMAJ CREATION-FICHIER'
EXECUTE 'RUN INSTALLMAJ COPIER-DICT'
EXECUTE 'RUN INSTALLMAJ PRDIVERS'

STOP