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

EXECUTE 'SELECT CONTRAT AVEC 1 = ""'

W_Fin = "F"
ENR_CONTRAT = ""

LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	ENR_CONTRAT<1>= "01"
	ENR_CONTRAT<2> = "001"
	ENR_CONTRAT<65>="O"
	WRITE ENR_CONTRAT ON F.CONTRAT, W_Cle
REPEAT
STOP
