
*******************************************************************
* mise  jour des codes PCS dans tous les contrats non supprims  *
* vanessa					mai 2003	  *
*******************************************************************

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

   EXECUTE 'SELECT CONTRAT AVEC 65 # "O"'

   W_End="FAUX"
   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_CONTRAT FROM F.CONTRAT,W_Cle ELSE ENR_CONTRAT=""

      W_Count=DCOUNT(ENR_CONTRAT<17>,CHAR(253))

      FOR i = 1 TO W_Count
      
         READ ENR_LIENPCS FROM F.LIENPCS,ENR_CONTRAT<17,i> ELSE ENR_LIENPCS=""
         ENR_CONTRAT<17,i>=ENR_LIENPCS<1>

         READ ENR_PCS FROM F.PCS,ENR_CONTRAT<17,i>[1,2] ELSE ENR_PCS=""
         ENR_CONTRAT<18,i>=ENR_PCS<1>

         READ ENR_PCS FROM F.PCS,ENR_CONTRAT<17,i> ELSE ENR_PCS=""
         ENR_CONTRAT<19,i>=ENR_PCS<1>

      NEXT i
     
      WRITE ENR_CONTRAT ON F.CONTRAT,W_Cle

   REPEAT


STOP
 
