
*********************************************************************************
* gnration du fichier de lien entre les anciens et nouveaux codes PCS 	*
* vanessa							mai 2003	*
*********************************************************************************

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

   EXECUTE 'VIDER-FICHIER LIENPCS'

   READ ENR_PCS FROM F.LIENCOMPTA,"CORRESPONDANCE" ELSE ENR_PCS=""

   W_Count=DCOUNT(ENR_PCS,CHAR(254))

   FOR i = 1 TO W_Count
      ENR_LIENPCS=""
      ENR_LIENPCS<1>=ENR_PCS<i>[5,4]

      W_Cle = ENR_PCS<i>[1,4]
     
      WRITE ENR_LIENPCS ON F.LIENPCS,W_Cle

   NEXT i

STOP
 
