* REGARDE SI ON A LE MEME NBRE DE MV EN ATTRIBUTS 4 5 et 6 de BALANCEGENE

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","BALANCEGENE" TO F.BALANCEGENE ELSE PRINT "OUVERTURE BALANCEGENE" ;* en lecture

*   EXECUTE 'SETPTR 0,,,,,1, "MODE=RAW",DEST \\SERVEURNT\MATRICEPSON,NOHEAD,NOFMT,EJECT,COPIES 1,BRIEF'

*   PRINTER ON

   EXECUTE 'SELECT BALANCEGENE'

   W_End="FAUX"

   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_BALANCEGENE FROM F.BALANCEGENE,W_Cle ELSE ENR_BALANCEGENE=""
      W_Count4 = DCOUNT(ENR_BALANCEGENE<4>,CHAR(253))
      W_Count5 = DCOUNT(ENR_BALANCEGENE<5>,CHAR(253))
      W_Count6 = DCOUNT(ENR_BALANCEGENE<6>,CHAR(253))
      IF W_Count4 # W_Count5 OR W_Count4 # W_Count6 THEN
         PRINT W_Cle
      END
   REPEAT

*   PRINTER OFF
*   PRINTER CLOSE

STOP
