OPEN "","ACCORD" TO F.ACCORD ELSE STOP
EXECUTE 'SELECT ACCORD AVEC 1 = "001"'
10 READNEXT CLE ELSE STOP
READ ENR FROM F.ACCORD,CLE ELSE GOTO 10
DOSSIER=EXTRACT(ENR,2)
IF LEN(DOSSIER)=12 THEN
 DOSSIER=DOSSIER[1,2]:DOSSIER[5,8]
 ENR=REPLACE(ENR,2;DOSSIER)
 WRITE ENR ON F.ACCORD,CLE
END
GOTO 10
