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

W_RESULTAT = ""

PRINT "Code responsable  remplacer : "
INPUT W_CodeVieux

PRINT "Nouveau code responsable : "
INPUT W_CodeNew

EXECUTE 'SSELECT CIVILAIDE AVEC 39 = "':W_CodeVieux:'" PAR 0'

EXECUTE 'SAUVE-LISTE W_RESULTAT'
EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE
	
IF MSGCODE<1> # 209 THEN 

	W_FINI = "FAUX"

	SELECT F.CIVILAIDE TO W_RESULTAT

	LOOP
		READNEXT CLE FROM W_RESULTAT ELSE W_FINI="VRAI"
	WHILE W_FINI = "FAUX"
		READ ENR_CIVILAIDE FROM F.CIVILAIDE,CLE ELSE ENR_CIVILAIDE = ""

		ENR_CIVILAIDE<39> = W_CodeNew

		WRITE ENR_CIVILAIDE ON F.CIVILAIDE, CLE

	REPEAT
	
END

STOP
