EXECUTE 'DATE.FORMAT'
EXECUTE 'SET-DEC ,'
EXECUTE 'SET-THOUS .'

OPEN "", "CONTRAT" TO F.CONTRAT ELSE STOP

EXECUTE 'SELECT CONTRAT AVEC 1#"02" AND AVEC 65#"O" AND AVEC 6="A" AND AVEC 104="201602" PAR @ID'
W_Fin = "F"

W_Pass=0
LOOP
READNEXT W_Cle ELSE W_Fin ="V" 
WHILE W_Fin = "F"
	READ ENR_CONTRAT FROM F.CONTRAT, W_Cle THEN
		ENR_CONTRAT<104> = "201601"
		W_Pass=W_Pass+1
		WRITE ENR_CONTRAT ON F.CONTRAT, W_Cle
	END
REPEAT

PRINT "Traitement terminé, ":W_Pass:" contrat(s) modifie(s)"
STOP