EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
*********************************************
* SUPPRESSION DES DICT PRESENT DANS LA BASE *
*                                           *
*                                           *
* DECEMBRE 2000                    STEPHANE *
*********************************************

* 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]
W_LECTEURBASE=VARIABLES[W_RANGDD+1,1]
W_BASE=VARIABLES[W_RANGBASE+1,999]

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