EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
10 READNEXT CLE ELSE STOP
READ ENR FROM F.CONTRAT,CLE ELSE GOTO 10
DATFIN=EXTRACT(ENR,8)
ENR=REPLACE(ENR,49;"31")
ENR=REPLACE(ENR,51;DATFIN)
ENR=REPLACE(ENR,52;"1")
WRITE ENR ON F.CONTRAT,CLE
DELETE F.DETAILCALCUL,CLE:"200005"
GOTO 10
