
*********************************************************************************
* gnration du nouveau fichier PCS avec la nouvelle nomenclature PCS-ESE 2003  *
* vanessa							mai 2003	*
*********************************************************************************

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

   EXECUTE 'VIDER-FICHIER PCS'

   READ ENR_PCSNOUV FROM F.LIENCOMPTA,"PCSNOUV" ELSE ENR_PCSNOUV=""

   W_Count=DCOUNT(ENR_PCSNOUV,CHAR(254))

   FOR i = 1 TO W_Count
      W_Len = LEN(ENR_PCSNOUV<i>)
      ENR_PCS=""
      ENR_PCS<1>=ENR_PCSNOUV<i>[5,W_Len-4]
      ENR_PCS<2>=""
      W_Cle = TRIM(ENR_PCSNOUV<i>[1,4])
     
      WRITE ENR_PCS ON F.PCS,W_Cle

   NEXT i


STOP
 
