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

EXECUTE 'VIDER-FICHIER TELEPHONE'

W_RequeteMoul=""

EXECUTE 'SELECT CIVILAIDE'

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

IF MSGCODE<1> # 209 THEN
   SELECT F.CIVILAIDE TO W_RequeteMoul
   
   READ ENR_FUSION FROM F.FUSION,"ErreurTELAide.txt" ELSE ENR_FUSION=""
   ENR_FUSION<1>= "Problme Tel 1 : "
   ENR_FUSION<2>= "Problme Tel 2 : "
   
   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
	  READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Cle ELSE ENR_CIVILAIDE=""	  
	  		
		IF LEN(ENR_CIVILAIDE<14>) <> 0 THEN
			*FORMATAGE DU TEL
			FormatTel=""

			FOR i = 1 TO LEN(ENR_CIVILAIDE<14>)
				*IF CHAR(ENR_CIVILAIDE<14>[ i, 1])  >= 48 AND CHAR(ENR_CIVILAIDE<14>[ i, 1]) <= 57 THEN
				*IF ENR_CIVILAIDE<14>[ i, 1]  >= 0 AND ENR_CIVILAIDE<14>[ i, 1]  <= 9 OR ENR_CIVILAIDE<14>[ i, 1]  = 2 OR ENR_CIVILAIDE<14>[ i, 1]  = 3 OR ENR_CIVILAIDE<14>[ i, 1]  = 4 OR ENR_CIVILAIDE<14>[ i, 1]  = 5 OR ENR_CIVILAIDE<14>[ i, 1]  = 6 OR ENR_CIVILAIDE<14>[ i, 1]  = 7 OR ENR_CIVILAIDE<14>[ i, 1]  = 8 OR ENR_CIVILAIDE<14>[ i, 1]  = 9 THEN

				IF ENR_CIVILAIDE<14>[i, 1]  >= 0 AND ENR_CIVILAIDE<14>[i, 1]  <= 9 THEN
					FormatTel = FormatTel:ENR_CIVILAIDE<14>[i, 1]
				END
			NEXT i

			IF LEN(FormatTel) = 10 THEN
				READ ENR_TELEPHONE FROM F.TELEPHONE,FormatTel ELSE ENR_TELEPHONE=""
		  
				ENR_TELEPHONE<1,-1>=W_Cle
				ENR_TELEPHONE<2,-1>="B"
				WRITE ENR_TELEPHONE ON F.TELEPHONE,FormatTel			
			END ELSE
				IF ENR_FUSION<1><>"Problme Tel 1 : " THEN
					ENR_FUSION<1>= ENR_FUSION<1>:", ":W_Cle
				END ELSE
					ENR_FUSION<1>= ENR_FUSION<1>:W_Cle
				END
			END
		END

		IF LEN(ENR_CIVILAIDE<16>) <> 0 THEN
			*FORMATAGE DU TEL
			FormatTel=""
			FOR i = 1 TO LEN(ENR_CIVILAIDE<16>)
				*IF CHAR(ENR_CIVILAIDE<16>[ i, 1]) >= 48 AND CHAR(ENR_CIVILAIDE<16>[ i, 1]) <= 57 THEN
				IF ENR_CIVILAIDE<16>[ i, 1]  >= 0 AND ENR_CIVILAIDE<16>[ i, 1]  <= 9 THEN				
					FormatTel = FormatTel:ENR_CIVILAIDE<16>[ i, 1]
				END
			NEXT i
			IF LEN(FormatTel) = 10 THEN
				READ ENR_TELEPHONE FROM F.TELEPHONE,FormatTel ELSE ENR_TELEPHONE=""
			    ENR_TELEPHONE<1,-1>=W_Cle
				ENR_TELEPHONE<2,-1>="B"
			    WRITE ENR_TELEPHONE ON F.TELEPHONE,FormatTel
			END ELSE
				IF ENR_FUSION<2><>"Problme Tel 2 : " THEN
					ENR_FUSION<2>= ENR_FUSION<2>:", ":W_Cle
				END ELSE
					ENR_FUSION<2>= ENR_FUSION<2>:W_Cle
				END
			END				
		END

   REPEAT
	IF ENR_FUSION<1><>"Problme Tel 1 : " OR ENR_FUSION<2><>"Problme Tel 2 : " THEN
		WRITE ENR_FUSION ON F.FUSION,"ErreurTELAide.txt"
		ENR_FUSION=""
	END

END
EXECUTE 'EFFACER-LISTE W_RequeteMoul'


EXECUTE 'SELECT CIVILAIDANT'

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

IF MSGCODE<1> # 209 THEN
   SELECT F.CIVILAIDANT TO W_RequeteMoul
   
   READ ENR_FUSION FROM F.FUSION,"ErreurTELAidant.txt" ELSE ENR_FUSION=""
   ENR_FUSION<1>= "Problme Tel 1 : "
   ENR_FUSION<2>= "Problme Tel 2 : "

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
	  READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_Cle ELSE STOP
	  		
		IF LEN(ENR_CIVILAIDANT<12>) <> 0 THEN
			*FORMATAGE DU TEL
			FormatTel=""
			FOR i = 1 TO LEN(ENR_CIVILAIDANT<12>)
				IF ENR_CIVILAIDANT<12>[ i, 1]  >= 0 AND ENR_CIVILAIDANT<12>[ i, 1]  <= 9 THEN
					FormatTel = FormatTel:ENR_CIVILAIDANT<12>[ i, 1]
				END
			NEXT i
			IF LEN(FormatTel) = 10 THEN
				READ ENR_TELEPHONE FROM F.TELEPHONE,FormatTel ELSE ENR_TELEPHONE=""
				ENR_TELEPHONE<1,-1>=W_Cle
				ENR_TELEPHONE<2,-1>="S"
				WRITE ENR_TELEPHONE ON F.TELEPHONE,FormatTel			
			END ELSE
				IF ENR_FUSION<1><>"Problme Tel 1 : " THEN
					ENR_FUSION<1>= ENR_FUSION<1>:", ":W_Cle
				END ELSE
					ENR_FUSION<1>= ENR_FUSION<1>:W_Cle
				END
			END				
		END

		IF LEN(ENR_CIVILAIDANT<14>) <> 0 THEN
			*FORMATAGE DU TEL
			FormatTel=""
			FOR i = 1 TO LEN(ENR_CIVILAIDANT<14>)
				IF ENR_CIVILAIDANT<14>[ i, 1]  >= 0 AND ENR_CIVILAIDANT<14>[ i, 1]  <= 9 THEN
					FormatTel = FormatTel:ENR_CIVILAIDANT<14>[ i, 1]
				END
			NEXT i
			
			IF LEN(FormatTel) = 10 THEN				
				READ ENR_TELEPHONE FROM F.TELEPHONE,FormatTel ELSE ENR_TELEPHONE=""
				ENR_TELEPHONE<1,-1>=W_Cle
				ENR_TELEPHONE<2,-1>="S"
				WRITE ENR_TELEPHONE ON F.TELEPHONE,FormatTel
			END ELSE
				IF ENR_FUSION<2><>"Problme Tel 2 : " THEN
					ENR_FUSION<2>= ENR_FUSION<2>:", ":W_Cle
				END ELSE
					ENR_FUSION<2>= ENR_FUSION<2>:W_Cle
				END
			END			  
		END
   REPEAT
	IF ENR_FUSION<1><>"Problme Tel 1 : " OR ENR_FUSION<2><>"Problme Tel 2 : " THEN
		WRITE ENR_FUSION ON F.FUSION,"ErreurTELAidant.txt"
	END

END

EXECUTE 'EFFACER-LISTE W_RequeteMoul'


STOP

