EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
*****************************************
* COPIE DES FICHIERS PRESENTS SUR LE CD *
* PR + PRC + NEWFILE                    *
*                                       *
* DECEMBRE 1999                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\PR\*.* ':W_LECTEURBASE:':\':W_BASE:'\PR /C'

* COPIE DES FICHIERS PRC DU CD
EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\PRC\*.* ':W_LECTEURBASE:':\':W_BASE:'\PRC /C'

* COPIE DU FICHIER NEWFILE DU CD
EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\NEWFILE ':W_LECTEURBASE:':\':W_BASE:' /C'

* COPIE DU FICHIER NEWTABLES DU CD
EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\NEWTABLES ':W_LECTEURBASE:':\':W_BASE:' /C'

* BASIC PR MAJ_VOC + MAJ_VOCPRC
EXECUTE 'BASIC PR MAJ_VOC MAJ_VOCPRC'

* COPIE FICHIER PARAMBORDORGCHG
EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\PARAMBORDORGCHG ':W_LECTEURBASE:':\':W_BASE:' /C'

* COPIE FICHIER PCS-ESE
EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\PCS ':W_LECTEURBASE:':\':W_BASE:' /C'

* COPIE FICHIER PAQUES
EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\PAQUES ':W_LECTEURBASE:':\':W_BASE:' /C'
