*Ouverture d'un fichier
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "TABLES" TO F.TABLES ELSE STOP

*Lecture d'une cle d'un fichier
READ ENR_TABLES FROM F.TABLES,"DEFTECH" ELSE STOP

*Renseignement d'un attribut
ENR_TABLES<1,3>=""

*Ecriture d'un enregistrement dans un fichier
WRITE ENR_TABLES ON F.TABLES,"DEFTECH"

*Ouverture d'un fichier
OPEN "", "TABLES" TO F.TABLES ELSE STOP

*Lecture d'une cle d'un fichier
READ ENR_TABLES FROM F.TABLES,"IMPGENE" ELSE STOP

*Renseignement d'un attribut
ENR_TABLES<1,3>=""

*Ecriture d'un enregistrement dans un fichier
WRITE ENR_TABLES ON F.TABLES,"IMPGENE"
