EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
***************************************
* MISE A NIVEAU AUTOMATIQUE DES BASES *
***************************************

* RECUPERATION DES INFOS
PROCREAD VARIABLES ELSE 
    STOP
END

W_RANGCD=INDEX(VARIABLES," ",1)
W_RANGDD=INDEX(VARIABLES," ",2)
W_RANGBASE=INDEX(VARIABLES," ",3)

W_LECTEURCD=VARIABLES[W_RANGCD+1,1]       ;* CHEMIN LECTEUR CD
W_LECTEURBASE=VARIABLES[W_RANGDD+1,1]     ;* CHEMIN BASE DE DONNEES
W_BASE=VARIABLES[W_RANGBASE+1,999]        ;* NOM DE LA BASE DE DONNEES


* LANCEMENT EN SEQUENCE DES PR ET PRC
EXECUTE 'COPIER-CD ':W_LECTEURCD:' ':W_LECTEURBASE:' ':W_BASE				;* COPIER PR DU CD SUR D.D

EXECUTE 'MAJ_VOC'									;* EXECUTE MISE EN VOC

EXECUTE 'SUPP-DICT ':W_LECTEURCD:' ':W_LECTEURBASE:' ':W_BASE				;* SUPP DICT SUR D.D

EXECUTE 'RUN PR CREATION-FICHIER'							;* EXECUTE CREATION NEWFILE

EXECUTE 'COPIER-DICT ':W_LECTEURCD:' ':W_LECTEURBASE:' ':W_BASE				;* COPIE DICT DU CD SUR D.D

EXECUTE 'CREER-TABLES'									;* EXECUTE CREATION FICHIER TABLES

EXECUTE 'COPIER-PRMOUL ':W_LECTEURCD:' ':W_LECTEURBASE:' ':W_BASE			;* COPIER PRMOUL DU CD SUR D.D

EXECUTE 'RUN PR GESTIONDROITS'								;* EXECUTE GESTION DROITS (SPECIF 1.1.40)

EXECUTE 'RUN PR CREATION-AIDANT41'

