* MOULINETTE PERMETTANT DE METTRE A JOURLE CODE INSEE

OPEN "","OPPOSITION" TO F.OPPOSITION ELSE PRINT "ERREUR OUVERTURE OPPOSITION"

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

W_Req=""

EXECUTE 'SELECT OPPOSITION'
EXECUTE 'SAUVE-LISTE W_Req'
EXECUTE "LISTE W_Req" RETURNING MSGCODE


IF MSGCODE<1> = 209 THEN
   	PRINT "PAS D'AIDANT "
	STOP
END
	SELECT F.OPPOSITION TO W_Req
	W_Fini="FAUX"
	LOOP
		READNEXT W_Cle FROM W_Req ELSE W_Fini="VRAI"
	WHILE W_Fini="FAUX" DO
		READ ENR_OPPOSITION FROM F.OPPOSITION,W_Cle THEN
			W_Pass="0"
			FOR I = 1 TO DCOUNT(ENR_OPPOSITION<21>,CHAR(253))
				IF LEN(ENR_OPPOSITION<21,I>) > 5 THEN
					ENR_OPPOSITION<21,I>=ICONV(ENR_OPPOSITION<21,I>,"D4/")
					W_Pass="1"
				END
			NEXT I
			
			IF W_Pass="1" THEN
				WRITE ENR_OPPOSITION ON F.OPPOSITION,W_Cle
				PRINT W_Cle
			END
		END
	REPEAT
	
	PRINT "Traitement termin"
STOP