OPEN "","AIDANTSECTEURANALBUDGET" TO F.AIDANTSECTEURANALBUDGET ELSE STOP

W_RequeteMoul=""

EXECUTE 'SELECT AIDANTSECTEURANALBUDGET AVEC LONG ="8"'
DEBUG
EXECUTE 'SAUVE-LISTE W_RequeteMoul'
EXECUTE "LISTE W_RequeteMoul" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   SELECT F.AIDANTSECTEURANALBUDGET TO W_RequeteMoul

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
		READ ENR_AIDANTSECTEURANALBUDGET FROM F.AIDANTSECTEURANALBUDGET,W_Cle THEN
			WRITE ENR_AIDANTSECTEURANALBUDGET ON F.AIDANTSECTEURANALBUDGET,W_Cle:"2011"
		END
   REPEAT

END

EXECUTE 'EFFACER-LISTE W_RequeteMoul'

STOP

* SETPTR 0,,,,,1, "MODE=RAW",DEST \\SERVEURINF\MATRICEPSON,NOHEAD,NOFMT,EJECT,COPIES 1,BRIEF
* PRINTER ON