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

   EXECUTE 'SSELECT CONTRAT AVEC 85 = ""'

   W_End="FAUX"

   LOOP
	READNEXT W_Cle ELSE W_End = "VRAI"
	READ ENR_CONTRAT FROM F.CONTRAT ,W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
     IF ENR_CONTRAT<38> = "" THEN
	ENR_CONTRAT<38> = 0
     END
     IF ENR_CONTRAT<39> = "" THEN
	ENR_CONTRAT<39> = 0
     END
     IF ENR_CONTRAT<40> = "" THEN
	ENR_CONTRAT<40> = 0
     END
     IF ENR_CONTRAT<41> = "" THEN
	ENR_CONTRAT<41> = 0
     END
     IF ENR_CONTRAT<42> = "" THEN
	ENR_CONTRAT<42> = 0
     END
     IF ENR_CONTRAT<43> = "" THEN
	ENR_CONTRAT<43> = 0
     END
     IF ENR_CONTRAT<44> = "" THEN
	ENR_CONTRAT<44> = 0
     END
     IF ENR_CONTRAT<45> = "" THEN
	ENR_CONTRAT<45> = 0
     END
     IF ENR_CONTRAT<46> = "" THEN
	ENR_CONTRAT<46> = 0
     END
     IF ENR_CONTRAT<47> = "" THEN
	ENR_CONTRAT<47> = 0
     END
     IF ENR_CONTRAT<48> = "" THEN
	ENR_CONTRAT<48> = 0
     END
     IF ENR_CONTRAT<83> = "" THEN
	ENR_CONTRAT<83> = 0
     END
     IF ENR_CONTRAT<85> = "" THEN
	ENR_CONTRAT<85> = 0
     END
     IF ENR_CONTRAT<86> = "" THEN
	ENR_CONTRAT<86> = 0
     END
	WRITE ENR_CONTRAT ON F.CONTRAT ,W_Cle
   REPEAT

STOP
