INPUT CLE
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
CALL GENEREARCHIVEBULLREGUL(CLE)
