**********************************************************
* MOULINETTE POUR RECTIFIER LES CONGES DE FRACTIONNEMENT * 
**********************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE PRINT "OUVERTURE CONTRAT" ;* en lecture criture

W_RESULTAT = ""

EXECUTE 'SSELECT CONTRAT AVEC 40 = "4"'
EXECUTE 'SAUVE-LISTE W_RESULTAT'
EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN

	SELECT F.CONTRAT TO W_RESULTAT

	W_End="FAUX"

	LOOP
		READNEXT W_Cle FROM W_RESULTAT ELSE W_End="VRAI"
		READ ENR_CONTRAT FROM F.CONTRAT ,W_Cle ELSE ENR_CONTRAT = ""
	WHILE W_End = "FAUX" DO
		IF ENR_CONTRAT<40> = "4" THEN
			ENR_CONTRAT<40> = 3
			ENR_CONTRAT<41> = 300
			WRITE ENR_CONTRAT ON F.CONTRAT ,W_Cle
		END
	REPEAT

END

STOP
