***********************************
*
* VIDE ATT. 38 -> 48 + 82 + 83 + 85 + 86 CONTRAT
*
* IL FAUT FAIRE LE SELECT AVANT
***********************************

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

W_FINCONTRAT="FAUX"

LOOP 
     READNEXT CLE ELSE
	  W_FINCONTRAT="VRAI"
     END
     UNTIL W_FINCONTRAT="VRAI" DO
     
     READ ENR_CONTRAT FROM F.CONTRAT,CLE ELSE 
	PRINT "ERREUR"
	STOP
     END

     ENR_CONTRAT<38>="0"
     ENR_CONTRAT<39>="0"
     ENR_CONTRAT<40>="0"
     ENR_CONTRAT<41>="0"
     ENR_CONTRAT<42>="0"
     ENR_CONTRAT<43>="0"
     ENR_CONTRAT<44>="0"
     ENR_CONTRAT<45>="0"
     ENR_CONTRAT<46>="0"
     ENR_CONTRAT<47>="0"
     ENR_CONTRAT<48>="0"
     ENR_CONTRAT<82>="0"
     ENR_CONTRAT<83>="0"
     ENR_CONTRAT<85>="0"
     ENR_CONTRAT<86>="0"

     WRITE ENR_CONTRAT TO F.CONTRAT,CLE
REPEAT
