* Ouverture d'un fichier
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","TPSAIDANTDISPO" TO F.TPSAIDANTDISPO ELSE STOP
W_RESULTAT = ""
* Requete
EXECUTE 'SELECT TPSAIDANTDISPO'
EXECUTE 'SAUVE-LISTE W_RESULTAT'
EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE	
	
IF MSGCODE<1> # 209 THEN
	SELECT F.TPSAIDANTDISPO TO W_RESULTAT

	W_Fini="FAUX"

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

		READ ENR_DISPO FROM F.TPSAIDANTDISPO,W_Cle ELSE STOP

		I = 1
		LOOP	
		WHILE ENR_DISPO<11,I> # "" DO
			IF ENR_DISPO<12,I> = "2400" THEN
				ENR_DISPO<12,I> = "0"
			END
			IF ENR_DISPO<13,I> = "0" THEN
				ENR_DISPO<13,I> = "2400"
			END
			IF ENR_DISPO<12,I> > ENR_DISPO<13,I> THEN
				GOSUB 10
			END
			I = I + 1
		REPEAT
	
		WRITE ENR_DISPO ON F.TPSAIDANTDISPO,W_Cle

	REPEAT

END

STOP

10

J = I
W_DISPO = DCOUNT(EXTRACT(ENR_DISPO,11),CHAR(253))
ENR_DISPOBIS = ENR_DISPO
IF ENR_DISPO<11,J> = "6" THEN
	ENR_DISPO<11,(J+1)> = "0"
END ELSE
	ENR_DISPO<11,(J+1)> = ENR_DISPO<11,J> + 1
END
ENR_DISPO<12,(J+1)> = "0"
ENR_DISPO<13,(J+1)> = ENR_DISPO<13,J>
ENR_DISPO<13,J> = "2400"
ENR_DISPO<14,(J+1)> = ENR_DISPO<14,J>
ENR_DISPO<15,(J+1)> = ENR_DISPO<15,J>
J = J + 1

FOR J=J TO W_DISPO
	ENR_DISPO<11,(J+1)> = ENR_DISPOBIS<11,J>
	ENR_DISPO<12,(J+1)> = ENR_DISPOBIS<12,J>
	ENR_DISPO<13,(J+1)> = ENR_DISPOBIS<13,J>
	ENR_DISPO<14,(J+1)> = ENR_DISPOBIS<14,J>
	ENR_DISPO<15,(J+1)> = ENR_DISPOBIS<15,J>
NEXT J

ENR_DISPOBIS = ""

RETURN
