***********************************************************
* MOULINETTE CREANT LES ATT 99 ET 100 DU SUIVI DE CONTRAT *
***********************************************************

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 65 # "O"'

   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
	I = 1
	LOOP
	WHILE ENR_CONTRAT<71,I> # "" DO
		ENR_CONTRAT<99,I> = 0
		I = I + 1
	REPEAT
	I = 1
	LOOP
	WHILE ENR_CONTRAT<76,I> # "" DO
		ENR_CONTRAT<100,I> = 0
		I = I + 1
	REPEAT
      WRITE ENR_CONTRAT ON F.CONTRAT ,W_Cle
   REPEAT

STOP
