OPEN "","COMMUNES" TO F.COMMUNES ELSE STOP
EXECUTE "VIDER-FICHIER DATA COMMUNES"
PROCREAD VARIABLES ELSE STOP
MODULE=FIELD(VARIABLES," ",2)
OPEN "","VOC" TO F.VOC ELSE STOP
ENRVOC=""
ENRVOC=REPLACE(ENRVOC,1;"F")
CHEMIN="D:\TRANSFERT\":MODULE
ENRVOC=REPLACE(ENRVOC,2;CHEMIN:"\COMMUNE")
ENRVOC=REPLACE(ENRVOC,3;CHEMIN:"\D_COMMUNE")
WRITE ENRVOC ON F.VOC,"COMMUNE"
OPEN "","COMMUNE" TO F.COMMUNE ELSE STOP

EXECUTE "TSELECT COMMUNE"

10 READNEXT CLE ELSE STOP
READ ENRCOMMUNE FROM F.COMMUNE,CLE ELSE GOTO 10
ENRCOMMUNES=""
ENRCOMMUNES=REPLACE(ENRCOMMUNES,1;CLE)
CODEPOST=EXTRACT(ENRCOMMUNE,1)
ENRCOMMUNES=REPLACE(ENRCOMMUNES,2;CODEPOST)
CODEINSEE=EXTRACT(ENRCOMMUNE,2)
CODECOM=CODEPOST[1,2]:CODEINSEE
WRITE ENRCOMMUNES ON F.COMMUNES,CODECOM
GOTO 10
