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

EXECUTE 'SELECT ACCORD AVEC 18 # "O" AND AVEC 5 =< "12023" AND AVEC 6 => "11994" PAR NomPrenomAide PAR @ID'

PRINTER ON

W_Fini="FAUX"
READNEXT W_Cle ELSE W_Fini="VRAI"
W_CleAnc=W_Cle
PRINT "AIDES AVEC DES ACCORDS SUR LA MEME PERIODE"
LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO
   IF W_Cle[1,5] = W_CleAnc[1,5] THEN
      READ ENRCIVILAIDE FROM F.CIVILAIDE,W_Cle[1,5] ELSE CIVILAIDE=""
      PRINT W_Cle:"   ":ENRCIVILAIDE<2>:"    ":ENRCIVILAIDE<3>
   END
   W_CleAnc=W_Cle
REPEAT

* PRINTER OFF

STOP
