FICHIER="FIPAY"
MODULE="PAIE"
SYNONYME="FIPAY"
OPEN "","VOC" TO F.VOC ELSE RETURN
ENRVOC=""
ENRVOC=REPLACE(ENRVOC,1;"F")
CHEMIN="D:\TRANSFERT\":MODULE
ENRVOC=REPLACE(ENRVOC,2;CHEMIN:"\":FICHIER)
ENRVOC=REPLACE(ENRVOC,3;CHEMIN:"\D_":FICHIER)
WRITE ENRVOC ON F.VOC,SYNONYME
OPEN "",SYNONYME TO F.FICHIER ELSE RETURN

EXECUTE 'SELECT FIPAY "52289"'

10 READNEXT CLE ELSE
* DELETE F.VOC,SYNONYME
 RETURN 
END
READ ENR FROM F.FICHIER,CLE ELSE GOTO 10
ZONE=CONVERT(CHAR(0),"",CLE)
IF CLE#ZONE THEN
 WRITE ENR ON F.FICHIER,ZONE
 DELETE F.FICHIER,CLE
 CLE=ZONE
END

NBATTR=DCOUNT(ENR,CHAR(254))
MODIF="NON"

  ATTR=EXTRACT(ENR,49)
  LONG=LEN(ATTR)
PRINT LONG

 ZONE=ATTR
 LOOP
  POS=INDEX(ZONE,CHAR(0),1)
  PRINT POS
  UNTIL POS=0 DO
   ZONE=ZONE[1,POS-1]:ZONE[POS+1,LEN(ZONE)-POS]
 REPEAT

*FOR D=1 TO LONG
* POS=INDEX(ATTR,CHAR(0),1)
* IF POS#0 THEN ATTR=ATTR[1,POS-1]:ATTR[POS+1,LONG]
*NEXT D
ATTR=ZONE
ENR=REPLACE(ENR,49;ATTR)
WRITE ENR ON F.FICHIER,"52289"

STOP
