lazi

• Source

Source

.proc,lazi*i,
  avant"=groupe actuel contenant sysi"=(*f,*n=groupe1),
  apres"=groupe desire acceptant sysi"=(*f,*n=groupe1),
  passe"=mot-de-passe qui protege sysi"=(*a),
  mdp16"=mot-de-passe qui protege u=16"=(*a),
  lazijob=(*n=#data).
.help
Cette procédure recontruit le fichier SYSI à partir du contenu original,
qui se trouve sur SYSI,F=SYSF.
.endhelp
monte,avant,apres.
return,lazilog.
request,lazilog,sn=apres.
lib,l,lazilog,n=sysi,f=sysf,l=0.
txed,lazilog,b. er=*deck,;(ss=*deck,;iu=*eor;f;er=*deck,;)*;/e
catalog,lazilog,sysi,rp=999,pw=passe,xr=passe.
return,sysi,lazilog.
attach,sysi,sn=apres,mr=1.
submit,lazijob.
e,a.
.data
pursysi,t10.
code,16,mdp16.
bonjour.
bvar,/%lcsysi=1.
fp,/p=sysi.
m. Vieux SYSI éliminé.
kill.