* Ouverture d'un fichier
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTACTS" TO F.CONTACTS ELSE STOP
OPEN "","TABLES" TO F.TABLES ELSE STOP

EXECUTE 'COMO ON CONTACTS41'
W_REQUETE = ""
READ ENR_FINCONTACTS FROM F.TABLES,"FINCONTACT" ELSE ENR_FINCONTACTS = ""

* Requete
EXECUTE 'SELECT CONTACTS AVEC 37 # ""'
EXECUTE 'SAUVE-LISTE W_REQUETE'
EXECUTE 'LISTE W_REQUETE' RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
      SELECT F.CONTACTS TO W_REQUETE

	W_Fini="FAUX"

	* Parcours de la requete
	LOOP
   	   READNEXT W_Cle FROM W_REQUETE ELSE W_Fini="VRAI"
	WHILE W_Fini="FAUX" DO

	   * Lecture
	   READ ENR_CONTACTS FROM F.CONTACTS,W_Cle ELSE ENR_CONTACTS = ""
	   
	   IF INDEX(ENR_FINCONTACTS<2>,ENR_CONTACTS<37>,1) # "0" THEN
		IF ENR_FINCONTACTS<4,INDEX(ENR_FINCONTACTS<2>,ENR_CONTACTS<37>,1)> = "O" THEN
	   		ENR_CONTACTS<41>="00000"
	   		WRITE ENR_CONTACTS ON F.CONTACTS,W_Cle
		END
	   END ELSE
		PRINT W_Cle:' MOTIF : ':ENR_CONTACTS<37>
	   END

	REPEAT
END

EXECUTE 'COMO OFF'

STOP
