EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","PR" TO F.PR ELSE STOP
PRINTER ON
EXECUTE 'SELECT PR AVEC @ID # "_]" AND AVEC @ID # "WRITECONTRAT"'
W_Enr="FAUX"
W_Fini="FAUX"
LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO
   READ ENR_PR FROM F.PR,W_Cle ELSE STOP
   PRINT W_Cle
   W_Count=DCOUNT(ENR_PR,CHAR(254))
   FOR i=1 TO W_Count
      IF ENR_PR<i># "" THEN
         IF INDEX(ENR_PR<i>,"WRITE",1) # 0 AND INDEX(ENR_PR<i>,"CONTRAT",1) # 0 THEN
            PRINT i:"   ":ENR_PR<i>
         END
         W_Index=INDEX(ENR_PR<i>,"CONTRAT<8>=",1)
         IF W_Index # 0 THEN
            PRINT i:"   ":ENR_PR<i>
         END
         IF INDEX(ENR_PR<i>,"ENR_CONTRAT=REPLACE(ENR_CONTRAT,8",1) # 0 OR INDEX(ENR_PR<i>,"CONTRAT=REPLACE(ENRCONTRAT,8",1) # 0 THEN
            PRINT i:"   ":ENR_PR<i>
         END
      END
   NEXT i
REPEAT
PRINTER OFF
PRINT "TERMINE"
STOP
