************************************************
* Tous les activits mandatataires actives dans les contrats
* Lens pour gestion du fichier Domiphone
**********************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP

W_RequeteMoul=""

EXECUTE 'SELECT CONTRAT AVEC 1 ="02" AND AVEC 8="" OR >= "12875"'

EXECUTE 'SAUVE-LISTE W_RequeteMoul'
EXECUTE "LISTE W_RequeteMoul" RETURNING MSGCODE

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

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      READ ENR_CONTRAT FROM F.CONTRAT,W_Cle ELSE STOP
      ENR_CONTRAT<36,1>="002001"
      ENR_CONTRAT<36,2>="002002"
      ENR_CONTRAT<36,3>="002003"
      WRITE ENR_CONTRAT ON F.CONTRAT,W_Cle
   REPEAT

END

STOP

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