sb

• Source

Source

.proc,sb*i,
  mdp16"=mot-de-passe protegeant le code 16"=(*a),
  travail=(*n=#data).
.help
Cette procédure déclenche le traitement des statistiques d'utilisation de
la logithèque Bonjour.
.endhelp
submit,travail.
.data
sb,t6000,stcmn.
code,16,mdp16.
m. SB - Début.
bonjour.
fp,/l=ccstat/w.
monte,common.
request,sbxxx1,sn=common,pf.
copie,ccstat,sbxxx1.
catalog,sbxxx1.
rewind,ccstat.
alter,ccstat.
return,ccstat.
request,sbxxx2,sn=common,pf.
sbprep,sbxxx1,sbxxx2.
catalog,sbxxx2.
return,sbxxx1.
request,sbxxx3,sn=common,pf.
sbtrie,sbxxx2,sbxxx3.
catalog,sbxxx3.
purge,sbxxx2.
return,sbxxx2.
request,sbxxx4,sn=common,pf.
sblist,sbxxx3,sbxxx4.
catalog,sbxxx4.
return,sbxxx3.
sir,sn=groupe1,id=u000016.
archive.
m. SB - Fin.
exit,s.
m. SB - Erreur.
.eor
run name       ingestion des statistiques.
get file       bjstats
input medium   sbxxx4
add rec
.eor
ar,p=sbxxx1,sn=common,cy=1,d,c=$sb - copie de ccstat$
ar,p=sbxxx3,sn=common,cy=1,d,c=$sb - dayfile struct trie$
ar,p=sbxxx4,sn=common,cy=1,d,c=$sb - donnees pour bjstats$
ar,p=bjstats,sn=groupe1,cy=1,c=$sb - banque sir cy=1$
ar,p=bjstats,sn=groupe1,cy=2,c=$sb - banque sir cy=2$
ar,p=bjstats,sn=groupe1,cy=3,c=$sb - banque sir cy=3$
ar,p=bjstats,sn=groupe1,cy=4,c=$sb - banque sir cy=4$