
**************************************
* Ouvertures des fichiers            *
**************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","HRESHISTOR" TO F.HRESHISTOR ELSE STOP

**************************************
* Dclaration des variables          *
**************************************

W_Requete=""

**************************************
* Programme principal                *
**************************************

	W_Temp='SELECT HRESHISTOR'

	EXECUTE W_Temp
	EXECUTE 'SAUVE-LISTE W_Requete'
	EXECUTE "LISTE W_Requete" RETURNING MSGCODE

	IF MSGCODE<1>=209 THEN
		STOP
	END ELSE
		SELECT F.HRESHISTOR TO W_Requete

		W_FINI = "FAUX"
		LOOP
			READNEXT W_CLE FROM W_Requete ELSE W_FINI = "VRAI"
		WHILE W_FINI = "FAUX" DO
			READ ENR_HRESHISTOR FROM F.HRESHISTOR,W_CLE ELSE ENR_HRESHISTOR=""


			W_Count=DCOUNT(ENR_HRESHISTOR<1>,CHAR(253))

			FOR i = W_Count TO 1 STEP-1
				IF ENR_HRESHISTOR<1,i> # "00004" AND ENR_HRESHISTOR<1,i> # "00005" AND ENR_HRESHISTOR<1,i> # "00007" THEN
					ENR_HRESHISTOR=DELETE(ENR_HRESHISTOR,1,i)
					ENR_HRESHISTOR=DELETE(ENR_HRESHISTOR,2,i)
				END
			NEXT i

			IF ENR_HRESHISTOR<1>="" THEN
				DELETE F.HRESHISTOR,W_CLE
			END ELSE
				WRITE ENR_HRESHISTOR ON F.HRESHISTOR,W_CLE
			END

		REPEAT
	END

STOP
