*************************************
* PASSAGE DE RESSOURCESAIDE EN EURO *
*************************************

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

EXECUTE 'SELECT COTISANAIDE AVEC 1 = "200201"'

W_Fini="FAUX"

LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO

   READ ENR_COTISANAIDE FROM F.COTISANAIDE,W_Cle ELSE STOP
   
   I = 1
   J = 1

   LOOP
   WHILE ENR_COTISANAIDE <1,I>[1,4] = "2002" DO
	IF ENR_COTISANAIDE<1,I> = 200201 THEN
		ENR_COTISANAIDE<2,I> = 762
	END
	I = I + 1
   REPEAT

   WRITE ENR_COTISANAIDE ON F.COTISANAIDE,W_Cle

REPEAT

STOP
