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

EXECUTE 'SELECT ACOMPTEBULL AVEC 0 = "[200211" AND AVEC 2 = "P"'

W_Fini="FAUX"

LOOP

   READNEXT W_Cle ELSE W_Fini="VRAI"

WHILE W_Fini="FAUX" DO

   READ ENR_ACOMPTEBULL FROM F.ACOMPTEBULL,W_Cle ELSE ENR_ACOMPTEBULL = ""

  	ENR_ACOMPTEBULL<2> = "" 

   WRITE ENR_ACOMPTEBULL ON F.ACOMPTEBULL,W_Cle 

REPEAT

STOP
