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

EXECUTE 'SSELECT CIVILAIDANT AVEC NaisAidant>= "01/01/2002"'

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

	READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,CLE ELSE ENR_CIVILAIDANT=""
	W_DDN=OCONV(ENR_CIVILAIDANT<26>,"D4/")
	W_DDN=W_DDN[1,6]:"19":W_DDN[9,2]
	ENR_CIVILAIDANT<26>=ICONV(W_DDN,"D4/")
	WRITE ENR_CIVILAIDANT ON F.CIVILAIDANT,CLE

REPEAT
