***************************************************
*LISTE DES AIDES AYANT PLUS DE 60 ANS A UNE ENTITE 
***************************************************
* Ouvertures des fichiers

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

***************************************************
*initialisation variables
W_Date="01/05/2002"
W_Count=""
i=""
W_NomPrenom=""
Commune=""
TOTAL=""
*********************************************************
* PROGRAMME PRINCIPAL
*********************************************************

   W_Temp='SSELECT ACTIVITESAIDE AVEC DateAideSupp = "" AND AVEC DateNaisAide <= "01/05/1942" PAR CodeSecteurBisAide PAR NomPrenomAide'

   EXECUTE W_Temp
   EXECUTE 'SAUVE-LISTE W_RequeteAct'
   EXECUTE "LISTE W_RequeteAct" RETURNING MSGCODE

   IF MSGCODE<1>=209 THEN
      STOP
   END ELSE
      SELECT F.ACTIVITESAIDE TO W_RequeteAct

	GOSUB 50

      W_End="FAUX"
      LOOP
         READNEXT W_Cle FROM W_RequeteAct ELSE W_End = "VRAI"
      WHILE W_End = "FAUX" DO

         READ ENR_ACTIVITESAIDE FROM F.ACTIVITESAIDE,W_Cle ELSE ENR_ACTIVITESAIDE=""

	W_Count=DCOUNT(ENR_ACTIVITESAIDE<1>,CHAR(253))
	W_Date=ICONV(W_Date,"D4/")

	FOR i=1 TO W_Count
		IF ENR_ACTIVITESAIDE<1,i>[1,3]="001" THEN
			IF ENR_ACTIVITESAIDE<3,i> # "" THEN
				IF ENR_ACTIVITESAIDE<3,i> > ICONV(W_Date,"D4/") THEN
					GOSUB 100
					EXIT
				END
			END ELSE
				GOSUB 100
				EXIT
			END
		END
	NEXT i


      REPEAT
PRINT "TOTAL :":TOTAL
   END

STOP
*************************************************
*titre colonne
*************************************************
50
	PRINT SPACE(2):"CODE":SPACE(2):"NOM PRENOM AIDE":SPACE(10):"TELEPHONE":SPACE(2):"DATE NAISSANCE":SPACE(2):"COMMUNE"
RETURN
*************************************************
*RECHERCHE DES DONNEES
*************************************************
100
	READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Cle ELSE ENR_CIVILAIDE=""

TOTAL=TOTAL+1
	W_NomPrenom=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
	W_NomPrenom=W_NomPrenom[1,22]
	Commune=ENR_CIVILAIDE<11>
	Commune=Commune[1,20]
	PRINT SPACE(2):W_Cle:SPACE(2):W_NomPrenom:SPACE(25-LEN(W_NomPrenom)):ENR_CIVILAIDE<14>:SPACE(15-LEN(ENR_CIVILAIDE<14>)):OCONV(ENR_CIVILAIDE<20>,"D4/"):SPACE(12-LEN(OCONV(ENR_CIVILAIDE<20>,"D4/"))):Commune
RETURN
