Procedure Optimiser(PasDEffetDeBord) Deconnecter(S : Nul Ou Serveur);
Toutes les transactions en cours rattachées à la tâche courante sur le serveur S sont invalidées.
Principal
/*******/
Variable
/******/
S : Nul Ou Serveur;
Debut
...
S=Serveur("UpsKrn", Nul, "SrvFinances");
Connecter("scott", "elephant", S);
/* On se connecte sur le serveur S par 'scott/elephant'. */
...
Deconnecter(S);
...
Fin Principal
- | - | - | - | - | - | - | - | - |