EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "TPSOBS" TO F.TPSOBS ELSE STOP
EXECUTE 'SELECT TPSOBS AVEC 1 = ""'
W_Fin = "F"
LOOP
READNEXT W_Cle ELSE W_Fin ="V"
WHILE W_Fin = "F"
   READ ENR_TPSOBS FROM F.TPSOBS, W_Cle THEN
	ENR_TPSOBS<1> = " "
	WRITE ENR_TPSOBS ON F.TPSOBS, W_Cle
   END
REPEAT
STOP
