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

EXECUTE 'SELECT PROFILUSER'

W_Fini="FAUX"
LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO
   READ ENR_PROFILUSER FROM F.PROFILUSER,W_Cle ELSE STOP
   
      ENR_PROFILUSER=INSERT(ENR_PROFILUSER,55;"3")
      ENR_PROFILUSER=INSERT(ENR_PROFILUSER,63;"3")
      ENR_PROFILUSER=INSERT(ENR_PROFILUSER,64;"3")
      ENR_PROFILUSER=INSERT(ENR_PROFILUSER,65;"3")
   
   WRITE ENR_PROFILUSER ON F.PROFILUSER,W_Cle
 
REPEAT
STOP
