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

* Requete
EXECUTE 'SELECT OPPOSITION'

W_Fini="FAUX"

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

   * Lecture
   READ ENR_OPPO FROM F.OPPOSITION,W_Cle ELSE STOP

   ENR_OPPO<23> = ENR_OPPO<18> - SUM(ENR_OPPO<20>)

   * Ecriture
   WRITE ENR_OPPO ON F.OPPOSITION,W_Cle

REPEAT

STOP
