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

EXECUTE 'SELECT RELANCESLETTRESTYPE PAR 0'

W_Fini="FAUX"
I = 1

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

   READ ENR_LETTRESTYPE FROM F.LETTRESTYPE,W_Cle ELSE STOP
   
   IF I < 10 THEN
	ENR_LETTRESTYPE<11> = I
	WRITE ENR_LETTRESTYPE ON F.LETTRESTYPE,W_Cle
	I = I + 1
   END ELSE
	DELETE F.LETTRESTYPE ,W_Cle
   END

REPEAT

STOP
