*****************************************
* COPIE DES FICHIERS PRESENTS SUR LE CD *
* PR + PRC + PRMOUL + 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>

EXECUTE '!MD ':W_LECTEURBASE:'\MAQUETTE\AIDE'
EXECUTE '!XCOPY ':W_LECTEURCD:':\MAQUETTE\AIDE ':W_LECTEURBASE:'\MAQUETTE\AIDE':' /C /Y'