
* Ouvertures des fichiers
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DIFAIDANT" TO F.DIFAIDANT ELSE PRINT "OUVERTURE DIFAIDANT" ;* en lecture criture
OPEN "","CONVENTIONCOL" TO F.CONVENTIONCOL ELSE PRINT "OUVERTURE CONVENTIONCOL" ;* en lecture
*********************************************************
* PROGRAMME PRINCIPAL

   	W_End="FAUX"
      	READ ENR_CONVENTIONCOL FROM F.CONVENTIONCOL,"02" ELSE ENR_CONVENTIONCOL=""

   	EXECUTE 'SSELECT DIFAIDANT'

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

      		READ ENR_DIFAIDANT FROM F.DIFAIDANT,W_Cle ELSE ENR_DIFAIDANT=""

		IF ENR_CONVENTIONCOL<43> # "1" THEN
			IF LEN(W_Cle) = 10 THEN
				DELETE F.DIFAIDANT,W_Cle
			END
		END

   	REPEAT

STOP
