Les entrepôts de données

Ce programme présente l'usage des entrepôts d'objets.

Le fichier source est ${UPS_HOME}/upssdk/demo/${UPS_LANGUAGE}/entrepot.upl.

Ne pas oublier de créer un entrepôt MonEntrepotdans la configuration du noyau d'exécution. Ce programme nécessite sa définition.

Mode compilé

Commande de compilation


upscmp Source=partition.upl

Commande d'exécution


partition

Mode interprété


upssng Source=partition.upl

Fichier source


Source Composant "Exemple d'emploi des entrepôts" Version 4.0.0;



Entrepot

/******/

   MonEntrepot;



Principal

/*******/

Variable

/*******/

   A : Nul Ou Entier Entrepot MonEntrepot;

   B : Nul Ou Entier;

   C : Nul Ou Reel Entrepot MonEntrepot;

   D : Nul Ou Reel;



Debut

A=1;

Ecran.Ecrire(A);

B=2;

Ecran.Ecrire(B);

C=3.0;

Ecran.Ecrire(C);

D=4.0;

Ecran.Ecrire(D);



Ecran.Ecrire("NomEntrepot="+EntrepotSysteme.NomEntrepot);

Ecran.Ecrire("NomServeur="+EntrepotSysteme.NomServeur);

Si EntrepotSysteme.Acces==EntrepotPrive Alors

   Ecran.Ecrire("L'entrepot systeme est prive");

Sinon

   Ecran.Ecrire("L'entrepot systeme n'est pas prive");

Fin Si

Si EntrepotSysteme.MemoireEstMobile Alors

   Ecran.Ecrire("La memoire de l'entrepot systeme est mobile");

Sinon

   Ecran.Ecrire("La memoire de l'entrepot systeme est fixe");

Fin Si
Ecran.Ecrire("TailleMemoireAllouee="+Caractere(EntrepotSysteme.TailleMemoireAllouee()));

Ecran.Ecrire("TailleMemoireTotale="+Caractere(EntrepotSysteme.TailleMemoireTotale()));

Ecran.Ecrire("TailleFichierEchangeAlloue="+Caractere(EntrepotSysteme.TailleFichierEchangeAlloue()));

Ecran.Ecrire("TailleFichierEchangeTotal="+Caractere(EntrepotSysteme.TailleFichierEchangeTotal()));

Ecran.Ecrire("NbVerrousPoses="+Caractere(EntrepotSysteme.NbVerrousPoses()));

Ecran.Ecrire("NbVerrousTotal="+Caractere(EntrepotSysteme.NbVerrousTotal()));

Ecran.Ecrire("NbObjetsAlloues="+Caractere(EntrepotSysteme.NbObjetsAlloues()));

Fin Principal

Résultat de l'exécution

1 2 3.0 4.0 NomEntrepot=Systeme L'entrepot systeme est prive La memoire de l'entrepot systeme est mobile TailleMemoireAllouee=256 TailleMemoireTotale=256 TailleFichierEchangeAlloue=260 TailleFichierEchangeTotal=40,000 NbVerrousPoses=1 NbVerrousTotal=64 NbObjetsAlloues=521