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

EXECUTE 'SELECT RESSOURCESAIDE'
EXECUTE 'SAUVE-LISTE W_RESULTAT' 
EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE

W_Fini="FAUX"
SELECT F.RESSOURCESAIDE TO W_RESULTAT

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

   READ ENR_RESSOURCESAIDE FROM F.RESSOURCESAIDE,W_Cle ELSE STOP
   
   ENR_RESSOURCESAIDE<7> = ""

   WRITE ENR_RESSOURCESAIDE ON F.RESSOURCESAIDE,W_Cle

REPEAT

STOP
