OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
10 READNEXT CLE ELSE STOP
READ ENR FROM F.CONTRAT,CLE ELSE GOTO 10
PROFIL1=EXTRACT(ENR,26)
PROFIL2=EXTRACT(ENR,64)
IF PROFIL1="001" AND PROFIL2="009" THEN
 ENR=REPLACE(ENR,26;"009")
 ENR=REPLACE(ENR,64;"010")
 WRITE ENR ON F.CONTRAT,CLE
END
GOTO 10
