

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE PRINT "OUVERTURE CONTRAT" ;* en lecture
OPEN "","TABLES" TO F.TABLES ELSE PRINT "OUVERTURE TABLES" ;* en lecture
OPEN "","FORMEXPAIDANT" TO F.FORMEXPAIDANT ELSE PRINT "OUVERTURE FORMEXPAIDANT" ;* en lecture

   PRINTER ON

   W_Str = 'SSELECT CONTRAT AVEC 1 # "02" AND AVEC 7 <= "12419" AND AVEC 8 >= "12419" OR = "" AND AVEC 65 # "O"'

   W_Str = W_Str:' AND AVEC 6 = "P"'

   EXECUTE W_Str

   W_End = "FAUX"
   W_TabDyn=""
   READ ENR_TABLES FROM F.TABLES,"FORMPRO" ELSE ENR_TABLES=""
   PRINT "Nombre de personnes actives au 31/12/2001 ayant suivi les formations suivantes : "

   LOOP
      READNEXT W_CleContrat ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_FORMEXPAIDANT FROM F.FORMEXPAIDANT,W_CleContrat[1,5] ELSE ENR_FORMEXPAIDANT=""

      W_Count=DCOUNT(ENR_FORMEXPAIDANT<6>,CHAR(253))
      FOR i=1 TO W_Count
         W_Ind=ENR_FORMEXPAIDANT<6,i>
         IF W_TabDyn<W_Ind>="" THEN
            W_TabDyn<W_Ind>=0
         END
         W_TabDyn<W_Ind>=W_TabDyn<W_Ind>+1
      NEXT i

   REPEAT

   W_Count=DCOUNT(ENR_TABLES<2>,CHAR(253))
   FOR i=1 TO W_Count
      PRINT ENR_TABLES<3,i>:" : ":W_TabDyn<i>
   NEXT i

   PRINTER OFF
   PRINTER CLOSE

STOP
