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

EXECUTE 'SSELECT CONTRAT AVEC 1 = "02" AND AVEC 30 = "F" AND AVEC 65 = "" AND AVEC 8 > "12600" OR = ""'

W_FIN=0

LOOP
	READNEXT CLE ELSE W_FIN=1

UNTIL W_FIN=1 DO

	READ ENR_CONTRAT FROM F.CONTRAT,CLE ELSE ENR_CONTRAT= ""

	ENR_CONTRAT<30> = "B"

	WRITE ENR_CONTRAT ON F.CONTRAT,CLE

REPEAT

STOP
