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

EXECUTE 'SSELECT CONTRAT AVEC 65 # "O" AND AVEC 7 <= "12419" AND AVEC 8 >= "12055"'

READ ENR_DIPLOME FROM F.TABLES,"DIPLOMES" ELSE ENR_DIPLOME=""
READ ENR_FORMATION FROM F.TABLES,"FORMPRO" ELSE ENR_FORMATION=""

W_FIN=0
W_CODEAIDANT=""

LOOP
	READNEXT CLE ELSE W_FIN=1
	UNTIL W_FIN=1 DO

	W_DIPLOME=""
	W_FORMATION=""

	IF W_CODEAIDANT#CLE[1,5] THEN
		W_CODEAIDANT=CLE[1,5]

		* lecture du fichier formation
		READ ENR_FORMEXPAIDANT FROM F.FORMEXPAIDANT,CLE ELSE ENR_FORMEXPAIDANT=""

		* regarde si diplome
		IF ENR_FORMEXPAIDANT<2>#"" THEN
			* recherche du libll diplome
			I=1
			LOOP	
				UNTIL ENR_FORMEXPAIDANT<2>=ENR_DIPLOME<2,I> OR ENR_DIPLOME<2,I>="" DO
				I=I+1
			REPEAT
			W_DIPLOME=ENR_DIPLOME<3,I>
		END

		* regarde si formation
		IF ENR_FORMEXPAIDANT<6>#"" THEN
			J=1
			LOOP
				UNTIL ENR_FORMEXPAIDANT<6,J>="" DO
				* recherche du libll diplome
				I=1
				LOOP	
					UNTIL ENR_FORMEXPAIDANT<6,J>=ENR_FORMATION<2,I> OR ENR_FORMATION<2,I>="" DO
					I=I+1
				REPEAT

				IF W_FORMATION#"" THEN W_FORMATION=W_FORMATION:"/"
				W_FORMATION=W_FORMATION:ENR_FORMATION<3,I>

				J=J+1
			REPEAT
		END

		PRINT ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>:" a le diplome ":W_DIPLOME:" et la(les) formations suivantes ":W_FORMATION
	END

REPEAT
