*********************************************
* SUPPRESSION DES DICT PRESENT DANS LA BASE *
*                                           *
*                                           *
* SEPTEMBRE 2001                   STEPHANE *
*********************************************

OPEN "","PARAMMAJCD" TO F.PARAMMAJCD ELSE STOP

READ ENR_PARAMMAJCD FROM F.PARAMMAJCD,"1" ELSE ENR_PARAMMAJCD=""

W_LECTEURCD=ENR_PARAMMAJCD<1>
W_LECTEURBASE=ENR_PARAMMAJCD<2>
W_BASE=ENR_PARAMMAJCD<3>
W_CHEMIN=ENR_PARAMMAJCD<4>

* COPIE DES FICHIERS PR DU CD
EXECUTE '!DEL ':W_CHEMIN:'\D_* /F'