lazb

• Source

Source

.proc,lazb*i,
  avant"=groupe actuel contenant sysb"=(*f,*n=groupe1),
  apres"=groupe desire acceptant sysb"=(*f,*n=groupe1),
  passe"=mot-de-passe qui protege sysb"=(*a),
  mdp16"=mot-de-passe qui protege u=16"=(*a),
  lazbjob=(*n=#data).
.help
Cette procédure reconstruit le fichier SYSB à partir de la copie actuelle,
du programme EDITLIB et d'une longue série de directives sur SYSB,F=SYSF.
Elle peut être utilisée pour épurer l'espace-disque utilisé par SYSB ou
encore pour rendre possible sa consultation en lecture, après deux "extends"
consécutifs.
.endhelp
monte,avant,apres.
return,sysb,lazbdir,lazblis,lazblog.
attach,sysb,sn=avant,pw=passe,rw=1.
request,lazblog,pf,sn=apres.
lib,l,lazbdir,n=sysb,f=sysf,l=0.
rewind,lazbdir.
editlib,i=lazbdir,l=lazblis.
catalog,lazblog,sysb,rp=999,pw=passe,xr=passe.
return,sysb,lazbdir,lazblis,lazblog.
attach,sysb,sn=apres,mr=1.
submit,lazbjob.
e,a.
exit,s.
rewind,lazblis.
copycf,lazblis.
.data
pursysb,t10.
code,16,mdp16.
bonjour.
bvar,/%lcsysb=1.
fp,/l=sysb/c.
purge,sysb.
m. Vieux SYSB éliminé.
kill.