Up ! Query et Up ! PostgreSQL - Version déclarative

Ce programme exécute des ordres Sql et Pl/Sql statiques pour PostgreSQL.

Le fichier source est ${UPS_HOME}/upsqry/demo/${UPS_LANGUAGE}/postgres2.upl.

Cet exemple utilise les instructions de l'extension d'Up ! 5GL pour Up ! Query. Les objets sémantiques sont déclarés statiquement.

Pour analyser le fichier source, UpsQry.upi doit être déclaré parmi les modules importés dans le fichier ${UPS_HOME}/ini/${UPS_USER}/upsp5l.ini.

Pour exécuter, le script ${UPS_HOME}/upsqry/demo/french/postgres.sql doit être chargé pour la connexion scott/tiger.

Mode compilé

Commande de compilation


upscmp Source=postgres2.upl

Commande d'exécution


postgres2 ConnexionPostgreSQL=scott/tiger@localhost/scott

Mode interprété


upssng Source=postgres2.upl ConnexionPostgreSQL=scott/tiger@localhost/scott

Fichier source


Source Composant "Exemple d'emploi d'Up ! PostgreSQL" Version 4.0.0;



ImporterModule

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

   UpsPgs(<UpsPgs.upi>, ImporterDefinitions);



ConnexionSql

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

   MaConnexionSql(PostgreSQL, "scott/tiger");



RequeteSql

/********/

   MaRequeteSql ConnexionSql MaConnexionSql
   
      ResultatSql(NomEmploye : Nul Ou Caractere TailleMaxSql 20, DateEmbauche : Nul Ou Date, NumeroEmploye : Nul Ou Entier, Salaire : Nul Ou Reel)

      TailleTableauResultatSql 5

      ParametreSql(NumeroDepartement : Entier)

      SqlStatique
      
         SELECT ename:=${NomEmploye}, hiredate:=${DateEmbauche}, empno:=${NumeroEmploye}, sal:=${Salaire}

         FROM scott.emp 
         WHERE deptno=${NumeroDepartement}; 
      
   



Procedure ListerEmployes(NumeroDepartement2 : Entier)

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

Debut

Ecran.Ecrire("Département "+Caractere(NumeroDepartement2));

Ecran.Ecrire("==============");

RequeteSql MaRequeteSql2 ConnexionSql MaConnexionSql

   ResultatSql(NomEmploye : Nul Ou Caractere TailleMaxSql 20, DateEmbauche : Nul Ou Date, NumeroEmploye : Nul Ou Entier, Salaire : Nul Ou Reel)

   ParametreSql(NumeroDepartement : Entier=NumeroDepartement2)

   SqlStatique
      
      SELECT ename:=${NomEmploye}, hiredate:=${DateEmbauche}, empno:=${NumeroEmploye}, sal:=${Salaire}

      FROM scott.emp

      WHERE deptno=${NumeroDepartement};
   
   Ecran.Ecrire(NomEmploye+" "+Caractere(DateEmbauche)+" "+Caractere(NumeroEmploye)+" "+Caractere(Salaire));

Fin RequeteSql

Fin Procedure



Procedure ListerEmployes2(NumeroDepartement2 : Entier)

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

Debut

Ecran.Ecrire("Département "+Caractere(NumeroDepartement2));

Ecran.Ecrire("==============");

RequeteSql MaRequeteSql

   ResultatSql(NomEmploye : Nul Ou Caractere TailleMaxSql 20, DateEmbauche : Nul Ou Date, NumeroEmploye : Nul Ou Entier, Salaire : Nul Ou Reel)

   ParametreSql(NumeroDepartement2);

   Ecran.Ecrire(NomEmploye+" "+Caractere(DateEmbauche)+" "+Caractere(NumeroEmploye)+" "+Caractere(Salaire));

Fin RequeteSql

Fin Procedure



Procedure MettreAJourSalaire()

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

OrdreSql

/******/

   MonOrdreSql4 ConnexionSql MaConnexionSql
   
      ParametreSql(NumeroEmploye : Entier, Salaire : Reel) TailleTableauParametreSql 7

      SqlStatique
      
         UPDATE scott.emp SET sal=${Salaire}

         WHERE empno=${NumeroEmploye};
      
   



Debut

RequeteSql MaRequeteSql3 ConnexionSql MaConnexionSql 

   ResultatSql(NumeroEmploye : Nul Ou Entier, Salaire : Nul Ou Reel) 

   SqlStatique
   
      SELECT empno:=${NumeroEmploye}, sal:=${Salaire}

      FROM scott.emp;
   
   OrdreSql MonOrdreSql4 
   
      ParametreSql(NumeroEmploye, -Salaire);
   

Fin RequeteSql

ViderTableauParametreSql MonOrdreSql4;

MaConnexionSql.Valider();

Fin Procedure



Procedure InsererDescription()

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

Variable

/******/

   Description : Nul Ou Caractere;



Debut

RequeteSql MaRequeteSql4 ConnexionSql MaConnexionSql 

   ResultatSql(NumeroEmploye : Nul Ou Entier, NomEmploye : Nul Ou Caractere TailleMaxSql 20) 

   TailleTableauResultatSql 5

   SqlStatique

      SELECT empno:=${NumeroEmploye}, ename:=${NomEmploye}

      FROM scott.emp

      WHERE deptno=10;
   
   Description=NomEmploye+" - Ceci est un commentaire long sur le nom de l'employe.";

   OrdreSql MonOrdreSql5 ConnexionSql MaConnexionSql
   
      ParametreSql(NumeroEmploye, Description2 : Nul Ou Caractere EstLong=Description)

      SqlStatique
      
         INSERT INTO scott.emp_desc(empno, description) VALUES (${NumeroEmploye}, ${Description2});
      
   
Fin RequeteSql

MaConnexionSql.Valider();

Fin Procedure



Procedure ListerDescriptions()

/****************************/
Debut

Ecran.Ecrire("Description");

Ecran.Ecrire("===========");

RequeteSql MaRequeteSql5 ConnexionSql MaConnexionSql 


   ResultatSql(NumeroEmploye : Nul Ou Entier, Description : Nul Ou Caractere EstLong)

   SqlStatique
   
      SELECT empno:=${NumeroEmploye}, description:=${Description}

      FROM scott.emp_desc;
   
   Ecran.Ecrire(Caractere(NumeroEmploye)+" : "+Description);


Fin RequeteSql

Fin Procedure



Procedure InsererImage()

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

Variable

/******/

   FichierPhoto : Nul Ou Fichier;

   TaillePhoto : Entier;

   Photo : Nul Ou Binaire;



Debut

RequeteSql MaRequeteSql6 ConnexionSql MaConnexionSql 

   ResultatSql(NumeroEmploye : Nul Ou Entier, NomEmploye : Nul Ou Caractere TailleMaxSql 20) 

   TailleTableauResultatSql 5

   SqlStatique
   
      SELECT empno:=${NumeroEmploye}, ename:=${NomEmploye}

      FROM scott.emp

      WHERE deptno=10;
   
   FichierPhoto=Fichier("${UPS_HOME}/upsqry/demo/"+NomEmploye+".JPG", LectureBinaire);

   FichierPhoto.FixerPosition(0,PositionFluxFin);

   TaillePhoto=FichierPhoto.LirePosition();

   FichierPhoto.FixerPosition(0, PositionFluxDebut);

   ?=FichierPhoto.Lire(Photo, TaillePhoto);

   FichierPhoto.Fermer();

   OrdreSql MonOrdreSql6 ConnexionSql MaConnexionSql 
   
      ParametreSql(NumeroEmploye, Photo2 : Nul Ou Binaire EstLong=Photo)

      SqlStatique
      
         INSERT INTO scott.emp_pict(empno, picture) VALUES (${NumeroEmploye}, ${Photo2});
      
   

Fin RequeteSql

MaConnexionSql.Valider();

Fin Procedure



Procedure ListerImages()

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

Variable

/******/

   FichierPhoto : Nul Ou Fichier;



Debut

Ecran.Ecrire("Image");

Ecran.Ecrire("=====");

RequeteSql MaRequeteSql7 ConnexionSql MaConnexionSql 

   ResultatSql(NumeroEmploye : Nul Ou Entier, Photo : Nul Ou Binaire EstLong)

   SqlStatique
   
      SELECT empno:=${NumeroEmploye}, picture:=${Photo}

      FROM scott.emp_pict;
   
   FichierPhoto=Fichier("/tmp/"+Caractere(NumeroEmploye, "&&&#")+".jpeg", EcritureBinaire);

   FichierPhoto.Ecrire(Photo);

   FichierPhoto.Fermer();

   Ecran.Ecrire(Caractere(NumeroEmploye)+" : "+Caractere(Photo.Longueur(), "&&&#"));

Fin RequeteSql

Fin Procedure



Principal

/*******/

Variable

/******/

   SalaireMin : Reel;

   SalaireMax : Reel;

   SalaireMoyen : Reel;




BlocSql

/*****/

   MonBlocSql ConnexionSql MaConnexionSql
   
      ParametreSql(NumeroDepartement2 : Entier, SalaireMin2 : Reel Sortie, SalaireMax2 : Reel Sortie) 

      SqlStatique
      
         SELECT * FROM scott.MaProcedure(${NumeroDepartement2}, ${SalaireMin2}, ${SalaireMax2});
      
      Fin SqlStatique
   
   MonBlocSql2 ConnexionSql MaConnexionSql 
   
      ParametreSql(NumeroDepartement2 : Entier, SalaireMoyen2 : Reel Sortie)

      SqlStatique
      
         SELECT scott.MaFonction(${NumeroDepartement2}) INTO ${SalaireMoyen2};
      
      Fin SqlStatique
   



OrdreSql

/******/

   MonOrdreSql2 ConnexionSql MaConnexionSql 
   
      ParametreSql(NomEmploye : Nul Ou Caractere TailleMaxSql 20, DateEmbauche : Nul Ou Date, NumeroEmploye : Nul Ou Entier, NumeroDepartement : Nul Ou Entier, Salaire : Nul Ou Reel) 

      SqlStatique
      
         INSERT INTO scott.emp(ename, hiredate, empno, deptno, sal)

         VALUES (${NomEmploye}, ${DateEmbauche}, ${NumeroEmploye}, ${NumeroDepartement}, ${Salaire});
      
   
   MonOrdreSql3 ConnexionSql MaConnexionSql 
   
      SqlStatique
            
         DELETE FROM scott.emp

         WHERE deptno=40;
      
   



Debut
/* Lecture parametree et rang a rang sans reutilisation du curseur. */

ListerEmployes(10);

ListerEmployes(20);

ListerEmployes(30);

Ecran.Ecrire(");



/* Lecture parametree et par tableau avec reutilisation du curseur. */

ListerEmployes2(10);

ListerEmployes2(20);

ListerEmployes2(30);

Ecran.Ecrire(");



/* Modifications annulees. */
OrdreSql MonOrdreSql7 ConnexionSql MaConnexionSql

   SqlStatique
      
      INSERT INTO scott.emp(ename, hiredate, empno, deptno, sal)

      VALUES ('youpi', NOW(), 9000, 40, 1000.00);
   

OrdreSql MonOrdreSql2 ParametreSql("youpi2", DateSysteme(), 9001, 40, 1001.00);

MaConnexionSql.Invalider();

ListerEmployes(40);

Ecran.Ecrire(");



/* Modifications validees. */

OrdreSql MonOrdreSql8 ConnexionSql MaConnexionSql

   SqlStatique
   
      INSERT INTO scott.emp(ename, hiredate, empno, deptno, sal)

      VALUES ('youpi3', NOW(), 9100, 40, 1100.00);
   

OrdreSql MonOrdreSql2 ParametreSql("youpi4", DateSysteme(), 9101, 40, 1101.00);

MaConnexionSql.Valider();

ListerEmployes(40);

Ecran.Ecrire(");



/* Mise a jour par tableau. */

OrdreSql MonOrdreSql9 ConnexionSql MaConnexionSql

   SqlStatique
   
      UPDATE scott.emp SET sal=-sal;
   

MettreAJourSalaire();

ListerEmployes(10);

ListerEmployes(20);

ListerEmployes(30);

Ecran.Ecrire(");



/* Nettoyage des modifications. */

OrdreSql MonOrdreSql3;

MaConnexionSql.Valider();



/* Appel d'une procedure stockee. */

BlocSql MonBlocSql ParametreSql(10, SalaireMin, SalaireMax);

Ecran.Ecrire("SalaireMin="+Caractere(SalaireMin));

Ecran.Ecrire("SalaireMax="+Caractere(SalaireMax));



/* Appel d'une procedure stockee dans un paquet. */

BlocSql MonBlocSql3 ConnexionSql MaConnexionSql 
   ParametreSql(NumeroDepartement2 : Entier=20, SalaireMin2 : Reel Sortie=SalaireMin, SalaireMax2 : Reel Sortie=SalaireMax)

   SqlStatique
   
      SELECT * FROM scott.MaProcedure(${NumeroDepartement2}, ${SalaireMin2}, ${SalaireMax2});
   
   Fin SqlStatique

Ecran.Ecrire("SalaireMin="+Caractere(SalaireMin));

Ecran.Ecrire("SalaireMax="+Caractere(SalaireMax));



/* Appel d'une fonction stockee. */

BlocSql MonBlocSql2 ParametreSql(10, SalaireMoyen);

Ecran.Ecrire("SalaireMoyen="+Caractere(SalaireMoyen));



/* Appel d'une fonction stockee dans un paquet. */

BlocSql MonBlocSql4 ConnexionSql MaConnexionSql

   ParametreSql(NumeroDepartement3 : Entier=20, SalaireMoyen2 : Reel Sortie=SalaireMoyen)

   SqlStatique
   
      SELECT scott.MaFonction(${NumeroDepartement3}) INTO ${SalaireMoyen2};
   
   Fin SqlStatique

Ecran.Ecrire("SalaireMoyen="+Caractere(SalaireMoyen));

Ecran.Ecrire(");



/* Textes longs. */

OrdreSql MonOrdreSql10 ConnexionSql MaConnexionSql

   SqlStatique
   
      DELETE FROM scott.emp_desc;
   

MaConnexionSql.Valider();

InsererDescription();

ListerDescriptions();


/* Images longs. */

OrdreSql MonOrdreSql11 ConnexionSql MaConnexionSql

   SqlStatique
   
      DELETE FROM scott.emp_pict;
   

MaConnexionSql.Valider();

InsererImage();

ListerImages();

Fin Principal

Résultat de l'exécution

Département 10 ============== CLARK 1981/06/1 00:00:00 7,782 2,450.0000 KING 1981/11/1 00:00:00 7,839 5,000.0000 MILLER 1982/01/1 00:00:00 7,934 1,300.0000 Département 20 ============== SMITH 1980/12/1 00:00:00 7,369 800.0000 JONES 1981/04/1 00:00:00 7,566 2,975.0000 SCOTT 1982/12/1 00:00:00 7,788 3,000.0000 ADAMS 1983/01/1 00:00:00 7,876 1,100.0000 FORD 1981/12/1 00:00:00 7,902 3,000.0000 Département 30 ============== ALLEN 1981/02/1 00:00:00 7,499 1,600.0000 WARD 1981/02/1 00:00:00 7,521 1,250.0000 MARTIN 1981/07/1 00:00:00 7,654 1,250.0000 BLAKE 1981/05/1 00:00:00 7,698 2,850.0000 TURNER 1981/09/1 00:00:00 7,844 1,500.0000 JAMES 1981/12/1 00:00:00 7,900 950.0000 Département 10 ============== CLARK 1981/06/1 00:00:00 7,782 2,450.0000 KING 1981/11/1 00:00:00 7,839 5,000.0000 MILLER 1982/01/1 00:00:00 7,934 1,300.0000 Département 20 ============== SMITH 1980/12/1 00:00:00 7,369 800.0000 JONES 1981/04/1 00:00:00 7,566 2,975.0000 SCOTT 1982/12/1 00:00:00 7,788 3,000.0000 ADAMS 1983/01/1 00:00:00 7,876 1,100.0000 FORD 1981/12/1 00:00:00 7,902 3,000.0000 Département 30 ============== ALLEN 1981/02/1 00:00:00 7,499 1,600.0000 WARD 1981/02/1 00:00:00 7,521 1,250.0000 MARTIN 1981/07/1 00:00:00 7,654 1,250.0000 BLAKE 1981/05/1 00:00:00 7,698 2,850.0000 TURNER 1981/09/1 00:00:00 7,844 1,500.0000 JAMES 1981/12/1 00:00:00 7,900 950.0000 Département 40 ============== Département 40 ============== youpi3 2007/02/1 00:00:00 9,100 1,100.0000 youpi4 09/07/1 00:00:00 9,101 1,101.0000 Département 10 ============== CLARK 1981/06/1 00:00:00 7,782 2,450.0000 KING 1981/11/1 00:00:00 7,839 5,000.0000 MILLER 1982/01/1 00:00:00 7,934 1,300.0000 Département 20 ============== SMITH 1980/12/1 00:00:00 7,369 800.0000 JONES 1981/04/1 00:00:00 7,566 2,975.0000 SCOTT 1982/12/1 00:00:00 7,788 3,000.0000 ADAMS 1983/01/1 00:00:00 7,876 1,100.0000 FORD 1981/12/1 00:00:00 7,902 3,000.0000 Département 30 ============== ALLEN 1981/02/1 00:00:00 7,499 1,600.0000 WARD 1981/02/1 00:00:00 7,521 1,250.0000 MARTIN 1981/07/1 00:00:00 7,654 1,250.0000 BLAKE 1981/05/1 00:00:00 7,698 2,850.0000 TURNER 1981/09/1 00:00:00 7,844 1,500.0000 JAMES 1981/12/1 00:00:00 7,900 950.0000 SalaireMin=1,300.0000 SalaireMax=5,000.0000 SalaireMin=800.0000 SalaireMax=3,000.0000 SalaireMoyen=2,915.9794 SalaireMoyen=2,175.0000 Description =========== 7,782 : CLARK - Ceci est un commentaire long sur le nom de l'employe. 7,839 : KING - Ceci est un commentaire long sur le nom de l'employe. 7,934 : MILLER - Ceci est un commentaire long sur le nom de l'employe. Image ===== 7,782 : 1171 7,839 : 1068 7,934 : 1204