EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DESCRIPTIONFIC" TO F.DESCRIPTIONFIC ELSE RETURN
PROCREAD W_NOMFICHIER ELSE STOP
W_POSITION=INDEX(W_NOMFICHIER," ",1)
W_LONG=LEN(W_NOMFICHIER)
W_NOMFICHIER=W_NOMFICHIER[W_POSITION+1,W_LONG-W_POSITION]
OPEN "DICT",W_NOMFICHIER TO F.FICHIER ELSE RETURN
READ ENR_DESCRIPTIONFIC FROM F.DESCRIPTIONFIC,W_NOMFICHIER ELSE RETURN
W_FINI="NON"
K=2
LOOP
 W_DESCRIPT=EXTRACT(ENR_DESCRIPTIONFIC,K)
 IF W_DESCRIPT="" THEN W_FINI="OUI"
 UNTIL W_FINI="OUI" DO
  W_ATTR=W_DESCRIPT<1,1>
  W_NOMVAR=W_DESCRIPT<1,2>
  W_FORMAT=W_DESCRIPT<1,3>
  IF W_FORMAT="X" THEN W_FORMAT="L" ELSE W_FORMAT="R"
  W_LONG=W_DESCRIPT<1,4>
  W_ENTETECOL=W_DESCRIPT<1,5>
  W_TYPE=W_DESCRIPT<1,6>
  W_CONVERSION=W_DESCRIPT<1,7>
  READ W_ENRDICT FROM F.FICHIER,W_NOMVAR ELSE W_ENRDICT=""
  W_ASSOCATTR=W_ENRDICT<7>
  W_ENRDICT=""
  W_ENRDICT=REPLACE(W_ENRDICT,1;"D")
  W_ENRDICT=REPLACE(W_ENRDICT,2;W_ATTR)
  W_ENRDICT=REPLACE(W_ENRDICT,3;"")
  W_ENRDICT=REPLACE(W_ENRDICT,4;W_ENTETECOL)
  W_ENRDICT=REPLACE(W_ENRDICT,5;W_LONG:W_FORMAT)
  W_ENRDICT=REPLACE(W_ENRDICT,6;W_TYPE)
  WRITE W_ENRDICT ON F.FICHIER,W_ATTR
  W_ENRDICT=REPLACE(W_ENRDICT,7;W_ASSOCATTR)
  W_ENRDICT=REPLACE(W_ENRDICT,3;W_CONVERSION)
  W_ENRDICT=REPLACE(W_ENRDICT,10;W_DESCRIPT<1,9>)
  W_ENRDICT=REPLACE(W_ENRDICT,11;W_DESCRIPT<1,8>)
  W_ENRDICT=REPLACE(W_ENRDICT,12;W_DESCRIPT<1,10>)
  WRITE W_ENRDICT ON F.FICHIER,W_NOMVAR
  K=K+1
REPEAT
RETURN
