Acces : AccesEntrepot Lecture Public Trace;
Principal
/*******/
Variable
/******/
E1 : Nul Ou Entrepot;
Debut
...
Si E1.Acces==EntrepotPublic Alors
/* L'entrepôt est public. */
...
Fin Si
...
Fin Principal
- | - | - | - | - | - | - | - | - |