***************************
* LISTE DES AIDANTS ACTIF *
* ALAIN 18/10/2002        *
***************************

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

W_RESULTAT = ""
W_RESULTAT2 = ""

EXECUTE 'SSELECT CIVILAIDANT AVEC 36 = "" PAR 0 '

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

IF MSGCODE<1> # 209 THEN 

	W_FINI = "FAUX"

	SELECT F.CIVILAIDANT TO W_RESULTAT

	PRINTER ON
*	PRINT '                 LISTE DES AIDANTS NE TRAVAILLANT PAS SUR LE SECTEUR DE LEUR COMMUNE'
	PRINT '                 LISTE DES AIDANTS N AYANT PAS LEUR NOM DE COMMUNE REFERNCE'

	LOOP
		READNEXT CLE FROM W_RESULTAT ELSE W_FINI="VRAI"
	WHILE W_FINI = "FAUX"
		   READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,CLE ELSE ENR_CIVILAIDANT = ""

		   IF ENR_CIVILAIDANT<31> # "099" AND ENR_CIVILAIDANT<31> # "098" AND ENR_CIVILAIDANT<31> # "097" AND ENR_CIVILAIDANT<31> # "096" THEN
		   	EXECUTE 'SSELECT COMMUNES AVEC 1 = "':ENR_CIVILAIDANT<11>:'" PAR 0 '

		   	EXECUTE 'SAUVE-LISTE W_RESULTAT2'
		   	EXECUTE "LISTE W_RESULTAT2" RETURNING MSGCODE
	
		   	IF MSGCODE<1> # 209 THEN 
				W_FIN = "FAUX"

				SELECT F.COMMUNES TO W_RESULTAT2

				READNEXT CLECOM FROM W_RESULTAT2 ELSE W_FIN="VRAI"

		   		READ ENR_COMMUNES FROM F.COMMUNES,CLECOM ELSE ENR_COMMUNES = ""

 	   	   		IF ENR_COMMUNES<3> # ENR_CIVILAIDANT<31> THEN
					*PRINT CLE:' ':ENR_CIVILAIDANT<2>:' ':ENR_CIVILAIDANT<3>
		   		END
		   	END ELSE
				PRINT CLE:' ':ENR_CIVILAIDANT<2>:' ':ENR_CIVILAIDANT<3>:' ':ENR_CIVILAIDANT<11>
		   	END
		   END
	REPEAT
	
END

STOP
