EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","VOC" TO F.VOC ELSE STOP

ENR_VOC=""

ENR_VOC<1>="PA"
ENR_VOC<2>="ECLTYPE U"
ENR_VOC<3>="FILE.STAT <<I2, NOMFIC>>"

WRITE ENR_VOC ON F.VOC,"FICSTAT"


STOP
