EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "","ARCHIVEBULL" TO F.ARCHIVEBULL ELSE STOP
10 READNEXT CLE ELSE STOP
DELETE F.DETAILCALCUL,CLE
DELETE F.ARCHIVEBULL,CLE:"001"
GOTO 10
