* Ouverture d'un fichier
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","HRESHISTOR" TO F.HRESHISTOR ELSE STOP

* Requete
EXECUTE 'SELECT HRESHISTOR AVEC 2 = ""'

W_Fini="FAUX"

* Parcours de la requete
LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO

   * Lecture
   READ ENR_HRESHISTOR FROM F.HRESHISTOR,W_Cle ELSE STOP
   I=1
   LOOP
   WHILE ENR_HRESHISTOR<1,I> # "" DO
	IF ENR_HRESHISTOR<2,I> = "" THEN
		ENR_HRESHISTOR<2,I>="0"
	END
	I=I+1   
   REPEAT

   * Ecriture
   WRITE ENR_HRESHISTOR ON F.HRESHISTOR,W_Cle
REPEAT

STOP
