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

EXECUTE 'SELECT ACCORD AVEC 1 = "146" AND AVEC 11 = "136972"'

W_FIN=0
LOOP
	READNEXT CLE ELSE W_FIN=1
	UNTIL W_FIN=1 DO

	READ ENR_ACCORD FROM F.ACCORD,CLE THEN

		IF ENR_ACCORD<11,1>="136972" THEN
			ENR_ACCORD<11,1>="13697"
			WRITE ENR_ACCORD ON F.ACCORD,CLE
		END
		
	END
REPEAT
