***********************************
*
* VIDE ATT. 82 CONTRAT
*
***********************************

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

EXECUTE 'SELECT CONTRAT AVEC 1 # "02" AND AVEC 82 = "242"'

W_FINCONTRAT="FAUX"

LOOP 
     READNEXT CLECONTRAT ELSE
	  W_FINCONTRAT="VRAI"
     END
     UNTIL W_FINCONTRAT="VRAI" DO
     
     READ ENR_CONTRAT FROM F.CONTRAT,CLECONTRAT  ELSE ENR_CONTRAT = ""

     ENR_CONTRAT<82>=""

     WRITE ENR_CONTRAT TO F.CONTRAT,CLECONTRAT 
REPEAT
