* NOMBRE D'ACCORD PSD et MSA

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

*ACCORD PSD

EXECUTE 'SELECT ACCORD AVEC 1 = "116" AND AVEC DateDebAcc <= "31/12/2001" AND AVEC DateFinAcc >= "01/01/2001" OR = "" PAR CodAideAccord PAR @ID'
W_FINI="FAUX"
W_COMPTEUR=0
W_ANCIENCODE=""

LOOP
   READNEXT W_CLE ELSE W_FINI="VRAI"
WHILE W_FINI="FAUX" DO
    IF W_ANCIENCODE # W_CLE[1,5] THEN
	W_ANCIENCODE=W_CLE[1,5]
   	W_COMPTEUR=W_COMPTEUR+1
    END
REPEAT
PRINT "NB D'ACCORD PSD ":W_COMPTEUR

* ACCORD MSA

EXECUTE 'SELECT ACCORD AVEC 1 = "107" AND AVEC DateDebAcc <= "31/12/2001" AND AVEC DateFinAcc >= "01/01/2001" OR = ""  PAR CodAideAccord PAR @ID'
W_FINI="FAUX"
W_COMPTEUR=0
W_ANCIENCODE=""

LOOP
   READNEXT W_CLE ELSE W_FINI="VRAI"
WHILE W_FINI="FAUX" DO
    IF W_ANCIENCODE # W_CLE[1,5] THEN
	W_ANCIENCODE=W_CLE[1,5]
   	W_COMPTEUR=W_COMPTEUR+1
    END
REPEAT
PRINT "NB D'ACCORD MSA  ":W_COMPTEUR

* ACCORD MSA FAMILLE

EXECUTE 'SELECT ACCORD AVEC 1 = "108" AND AVEC DateDebAcc <= "31/12/2001" AND AVEC DateFinAcc >= "01/01/2001" OR = ""  PAR CodAideAccord PAR @ID'
W_FINI="FAUX"
W_COMPTEUR=0
W_ANCIENCODE=""

LOOP
   READNEXT W_CLE ELSE W_FINI="VRAI"
WHILE W_FINI="FAUX" DO
    IF W_ANCIENCODE # W_CLE[1,5] THEN
	W_ANCIENCODE=W_CLE[1,5]
   	W_COMPTEUR=W_COMPTEUR+1

   END
REPEAT
PRINT "NB D'ACCORD MSA FAMILLE ":W_COMPTEUR
STOP
