* Ouvertures des fichiers

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","PR" TO F.PR ELSE PRINT "OUVERTURE PR" 

*********************************************************

* initialisation des variables


*********************************************************
LOOP
PRINT "Saisissez la premiere chaine  rechercher..."
INPUT W_Str1
WHILE TRIM(W_Str1) = ""
REPEAT

PRINT "Saisissez la deuxieme chaine  rechercher (facultative)"
INPUT W_Str2

PRINT "Etendre la recherche aux PRMOUL ?"
INPUT W_Rep
IF W_Rep = "O" OR W_Rep = "o" THEN
	W_Rep = "O"
END ELSE
	W_Rep = ""
END

* PROGRAMME PRINCIPAL

EXECUTE 'COMO ON CherchePR.txt'

   EXECUTE 'SELECT PR AVEC @ID # "_]" PAR @ID'

      W_Fin="FAUX"

      LOOP
         READNEXT W_Cle ELSE W_Fin = "VRAI"
      WHILE W_Fin = "FAUX" DO
         READ ENR_PR FROM F.PR,W_Cle ELSE ENR_PR=""

         W_Count=DCOUNT(ENR_PR,CHAR(254))
         FOR i = 1 TO W_Count
            IF INDEX(ENR_PR<i>,W_Str1,1) # 0 OR INDEX(ENR_PR<i>, W_Str2,1) # 0 THEN
               PRINT "PR : ":W_Cle 
               PRINT "Ligne ":i:" : ":ENR_PR<i>
               PRINT ""
               EXIT
            END

         NEXT i

      REPEAT

	IF W_Rep = "O" THEN

	OPEN "", "PRMOUL" TO F.PR ELSE STOP 

	   EXECUTE 'SELECT PRMOUL AVEC @ID # "_]" PAR @ID'

      W_Fin="FAUX"

      LOOP
         READNEXT W_Cle ELSE W_Fin = "VRAI"
      WHILE W_Fin = "FAUX" DO
         READ ENR_PR FROM F.PR,W_Cle ELSE ENR_PR=""

         W_Count=DCOUNT(ENR_PR,CHAR(254))
         FOR i = 1 TO W_Count
            IF INDEX(ENR_PR<i>,W_Str1,1) # 0 OR INDEX(ENR_PR<i>, W_Str2,1) # 0 THEN
               PRINT "PRMOUL : ":W_Cle 
               PRINT "Ligne ":i:" : ":ENR_PR<i>
               PRINT ""
               EXIT
            END

         NEXT i

      REPEAT





	END

EXECUTE 'COMO OFF'
STOP
