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

   	W_End="FAUX"

   	EXECUTE 'SSELECT CONVENTIONCOL'

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

      		READ ENR_CONVENTIONCOL FROM F.CONVENTIONCOL,W_Cle ELSE ENR_CONVENTIONCOL=""

		ENR_CONVENTIONCOL<42>=ENR_CONVENTIONCOL<2>

	  	WRITE ENR_CONVENTIONCOL ON F.CONVENTIONCOL,W_Cle

   	REPEAT

STOP
