EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILCALCUL" TO F.FICHIER ELSE STOP
10 READNEXT CODE ELSE STOP
WRITEV "E" ON F.FICHIER , CODE , 1
GOTO 10
