EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
*******************************************
* COPIE DES FICHIERS PRESENTS DANS PRMOUL *
* PR                                      *
*                                         *
* MARS 2001                    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 '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\PRMOUL\*.* ':W_LECTEURBASE:':\':W_BASE:'\PRMOUL /C'

STOP
