Les quotas

Ce programme présente le contrôle du quota sur les procédures, les fonctions et les méthodes des objets ainsi que sur les entrepôts.

Le fichier source est ${UPS_HOME}/upsvtm/demo/${UPS_LANGUAGE}/quota.upl.

Mode compilé

Commande de compilation


upscmp Source=quota.upl

Commande d'exécution


quota

Mode interprété


upssng Source=quota.upl

Fichier source


Source Composant "Exemple d'emploi des quotas" Version 4.0.0;



Public :

/*****/

Type T Defaut Quota

/*****************/


	C : Caractere;

	Constructeur();

	Constructeur(CC : Caractere);

	Procedure Quota CalculerStatistiques();


Fin Type



Variable

/******/

Public :

/******/

	L : Nul Ou ListeDe T;



Constructeur T(CC : Caractere)

/**************************/

Debut

C=CC;

Fin Constructeur



Procedure Quota T.CalculerStatistiques()

/**************************************/

Variable

/******/

	I : Entier;



Debut

Pour I=0 JusquA 10000 Faire

Attendre(1.0);

Fin Pour

Fin Procedure



Procedure Quota CalculerStatistiquesGlobalement()

/***********************************************/

Variable

/******/

	I : Entier;



Debut

Pour I=0 JusquA 10000 Faire

	Attendre(1.0);

Fin Pour

Fin Procedure



Procedure Synchroniser AlimenterListe()

/*************************************/

Variable

/******/

	I : Entier;



Debut

Pour I=0 JusquA 10000 Faire

Si L==Nul Alors

   L=ListeDe(T("coucou"));

Sinon

   L+=T("coucou");

Fin Si


Fin Pour

Fin Procedure



Principal

/*******/

Variable

/******/

	O : T;



Debut

Connecter("Administrateur", ");



RoleAdministrateur.AjouterQuotaAppel("quota", "CalculerStatistiquesGlobalement", 10, 1.0);

RoleAdministrateur.AjouterQuotaType("quota", "T", 10, 1.0);



AttraperException

O.CalculerStatistiques();

TraiterException

Defaut

   Ecran.Ecrire("Exception:"+Exception.MessageErreur);

Fin Defaut

Fin AttraperException



AttraperException

CalculerStatistiquesGlobalement();

TraiterException

Defaut

   Ecran.Ecrire("Exception:"+Exception.MessageErreur);


Fin Defaut

Fin AttraperException



AttraperException

RoleAdministrateur.FixerQuotaEntrepot("Systeme", 1000);

AlimenterListe();


TraiterException

Defaut

   Ecran.Ecrire(Exception:"+Exception.MessageErreur);


Fin Defaut


Fin AttraperException

Fin Principal

Résultat de l'exécution
Exception:Erreur UpsSec-19 : Le temps d'exécution attribué à l'appel 'quota.T.CalculerStatistiques' est dépassé. Exception:Erreur UpsSec-19 : Le temps d'exécution attribué à l'appel 'quota.CalculerStatistiquesGlobalement' est dépassé. Exception:Erreur UpsSec-14 : Le quota de remplissage de l'entrepôt 'Systeme' est atteint.