
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","FICHIERSFUSION" TO F.FICHIERSFUSION ELSE STOP
READ ENR_FICHIERSFUSION FROM F.FICHIERSFUSION,"1" ELSE STOP
i=1
LOOP
WHILE ENR_FICHIERSFUSION<i> # "" DO
   W_FICHIER=ENR_FICHIERSFUSION<i>
   W_FICHIERCAMBRAI=ENR_FICHIERSFUSION<i>:"CAMBRAI"
   GOSUB 10
   i=i+1
REPEAT

******************************************************************
10

OPEN "",W_FICHIER TO F.FICHIER ELSE STOP
OPEN "",W_FICHIERCAMBRAI TO F.FICHIERCAMBRAI ELSE STOP

W_RequeteMoul=""

EXECUTE 'SELECT ':W_FICHIERCAMBRAI
EXECUTE 'SAUVE-LISTE W_RequeteMoul'
EXECUTE "LISTE W_RequeteMoul" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   SELECT F.FICHIERCAMBRAI TO W_RequeteMoul

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      READ ENR_FICHIERCAMBRAI FROM F.FICHIERCAMBRAI,W_Cle ELSE STOP
      WRITE ENR_FICHIERCAMBRAI ON F.FICHIER,W_Cle
   REPEAT

END
RETURN
********************************************************************

* SETPTR 0,,,,,1, "MODE=RAW",DEST \\SERVEURINF\MATRICEPSON,NOHEAD,NOFMT,EJECT,COPIES 1,BRIEF
* PRINTER ON
