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

W_RequeteMoul=""

EXECUTE 'SELECT HISTORCUMUL = "[2001001"'

EXECUTE 'SAUVE-LISTE W_RequeteMoul'
EXECUTE "LISTE W_RequeteMoul" RETURNING MSGCODE

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

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      READ ENR_FICHIER FROM F.FICHIER,W_Cle ELSE STOP

      W_Plaf=0
      W_Tot=0

      i=1
      LOOP
      WHILE ENR_FICHIER<15,i> # "" DO
         IF ENR_FICHIER<15,i> = "037" THEN
            W_Plaf=W_Plaf+ENR_FICHIER<17,i>
         END ELSE
            IF ENR_FICHIER<15,i> = "036" THEN
               W_Plaf=W_Plaf+ENR_FICHIER<17,i>
            END ELSE
               IF ENR_FICHIER<15,i> = "002" THEN
                  W_Plaf=W_Plaf+ENR_FICHIER<17,i>
               END ELSE
                  IF ENR_FICHIER<15,i> = "097" THEN
                     W_Plaf=W_Plaf+ENR_FICHIER<17,i>
                  END ELSE
                     IF ENR_FICHIER<15,i> = "035" THEN
                        W_Tot=W_Tot+ENR_FICHIER<17,i>
                     END ELSE
                        IF ENR_FICHIER<15,i> = "038" THEN
                           W_Tot=W_Tot+ENR_FICHIER<17,i>
                        END ELSE
                           IF ENR_FICHIER<15,i> = "001" THEN
                              W_Tot=W_Tot+ENR_FICHIER<17,i>
                           END ELSE
                              IF ENR_FICHIER<15,i> = "096" THEN
                                 W_Tot=W_Tot+ENR_FICHIER<17,i>
                              END
                           END
                        END
                     END
                  END
               END
            END
         END

         i=i+1
      REPEAT
      IF W_Plaf # W_Tot THEN
         PRINT W_Cle:"   ":W_Plaf:"   ":W_Tot
      END
   REPEAT

END


STOP

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