tx

• Source

Source

.proc,tx*i,
  nom"=nom de l'entrée à modifier"=(*f),
  fic"=fichier format lib a utiliser"=(*n=syslib,*f),
  usa"=numero d'usager de l'entrée"=(*n=,*s5(0123456789)).
.help
Cette procédure ouvre une entrée de fichier en format Lib, appelle
l'éditeur TXED sur cette entrée et replace ensuite l'entrée en question
dans le fichier en format Lib.
.endhelp
return,txfich.
ife,$usa$.ne.$$,l.
  lib,l,txfich,n=nom,f=fic,u=usa,cnt,l=0.
else,l.
  lib,l,txfich,n=nom,f=fic,cnt,l=0.
endif,l.
txed,txfich,b,as. *v;t=*editing nom fic usa
ife,$usa$.ne.$$,l.
  lib,c,txfich,n=nom,f=fic,u=usa.
else,l.
  lib,c,txfich,n=nom,f=fic.
endif,l.
return,txfich.