**************************************************
* MOULINETTE DE CREATION DES CONTRATS INVERSES   *
*                                                *
* JANVIER 2001                          STEPHANE * 
**************************************************

*OUVERTURE DE FICHIERS
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","CONTRATINV" TO F.CONTRATINV ELSE 
   * CREATION FICHIER INVERSE
   EXECUTE 'CREATE.FILE CONTRATINV 1,1'
END

* SELECTION DES CONTRATS MANDATAIRES
EXECUTE 'SSELECT CONTRAT AVEC 1 = "02"'

*TRAVAILLE LA LISTE
W_REQVIDE="FAUX"

LOOP 
    READNEXT CLE ELSE W_REQVIDE="VRAI"
    UNTIL W_REQVIDE="VRAI" DO

    READ ENR_CONTRAT FROM F.CONTRAT,CLE THEN
         IF ENR_CONTRAT<65><>"O" THEN
	     * TENTATIVE DE LECTURE CONTRATINV
	     READ ENR_CONTRATINV FROM F.CONTRATINV,CLE[1,5]:ENR_CONTRAT<3> ELSE ENR_CONTRATINV=""
 	     ENR_CONTRATINV<1,-1>=CLE[6,3]
	     WRITE ENR_CONTRATINV ON F.CONTRATINV,CLE[1,5]:ENR_CONTRAT<3>
         END
    END
REPEAT
  
