*****************************************
* COPIE DES FICHIERS PRESENTS SUR LE CD *
* PR + PRC + NEWFILE                    *
*                                       *
* 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 '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\D_*.* ':W_CHEMIN:' /C /Y'

STOP