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

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


EXECUTE 'SELECT HISTORCUMUL = "[2001001" PAR NomPrenomAidant'

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

W_Cumul66=""
W_Cumul36=""
W_Cumul02=""
FOR i=1 TO 4
   W_Cumul66<i>=0
   W_Cumul36<i>=0
   W_Cumul02<i>=0
NEXT i

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
      READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_Cle[1,5] ELSE STOP
      i=1
      LOOP
      WHILE ENR_FICHIER<15,i> # "" DO
         IF ENR_FICHIER<15,i> = "066" THEN
            PRINT ENR_CIVILAIDANT<2>:"  ":ENR_CIVILAIDANT<3>:"    ":ENR_FICHIER<17,i>/100
         END ELSE
            IF ENR_FICHIER<15,i> = "036" THEN
               PRINT ENR_CIVILAIDANT<2>:"  ":ENR_CIVILAIDANT<3>:"    ":ENR_FICHIER<17,i>/100
            END ELSE
               IF ENR_FICHIER<15,i> = "002" THEN
                  PRINT ENR_CIVILAIDANT<2>:"  ":ENR_CIVILAIDANT<3>:"    ":ENR_FICHIER<17,i>/100
               END
            END
         END

         i=i+1
      REPEAT
   REPEAT

END

STOP

