Introduction aux procédures stockées d'Interbase 6

CREATE PROCEDURE PROC_SANS_PARAMETRES
AS
   DECLARE VARIABLE sumb DECIMAL(12, 2);
   DECLARE VARIABLE rdno CHAR(3);
   DECLARE VARIABLE cnt INTEGER;

CREATE PROCEDURE BLIN_INTERROGELIVRAISONS (
      TYPO INTEGER,
      SELECTIONARTICLES INTEGER,
      FINANALYSE DATE,
      SITEDEPART VARCHAR (12))
RETURNS (
      RES_RF_COM INTEGER,
      RES_RF_PRT VARCHAR (12),
      RES_RF_SIT VARCHAR (12),
      RES_DATEHEURE TIMESTAMP,
      RES_QTE DECIMAL (9, 3),
      RES_TYPEMVT VARCHAR (5))
AS

<Variable ou paramètre> = <Valeur ou Opération>

CREATE PROCEDURE TESTDECALCUL
RETURNS (
      TEXTE CHAR (50),
      NOMBRE FLOAT)
AS
BEGIN
      TEXTE = 'Une addition 10 + 10 =' ;
      NOMBRE = 10 + 10 ;
      suspend;
      TEXTE = 'Une soustraction 100 - 10 =' ;
      NOMBRE = 100 - 10 ;
      suspend;
      TEXTE = 'Une multiplication 100 * 10 =' ;
      NOMBRE = 100 * 10 ;
      suspend;
      TEXTE = 'Une autre multiplication 100 - 5 * 10 =' ;
      NOMBRE = 100 - 5 * 10 ;
      suspend;
      TEXTE = 'Une division 100 / 10 =' ;
      NOMBRE = 100 / 10 ;
      suspend;
      TEXTE = 'Une autre division 100 - 5 / 10' ;
      NOMBRE = 100 - 5 / 10 ;
      suspend;
END

Chaine1 = 'Developpez'
Chaine2 = '.com'
Resultat = Chaine1 || Chaine2

CAST(Variable AS TypeInterBase)

CREATE PROCEDURE TRANSTYPAGE
RETURNS (
      TEXTE CHAR (50),
      REEL FLOAT,
      ENTIER INTEGER)
AS
   BEGIN
      TEXTE = '10' ;
      REEL = 20;
      ENTIER = TEXTE + REEL ;
      SUSPEND;
END

TEXTE = 'Un texte' ;
REEL = 20;
ENTIER = TEXTE + REEL ;
suspend;

Conversion error from string "Un texte "

WHILE <Condition> DO
BEGIN
   <Instruction 1> ;
   <Instruction 2> ;
...
<Instruction n> ;
END

CREATE PROCEDURE ITERATION (
   NOMBRE INTEGER)
RETURNS (
   VALEUR INTEGER)
AS
   BEGIN
      VALEUR = 0 ;
      WHILE (VALEUR < NOMBRE) DO
         BEGIN
            VALEUR = VALEUR + 3;
         END
      SUSPEND;
   END

CREATE PROCEDURE ITERATION (
   NOMBRE INTEGER)
RETURNS (
   VALEUR INTEGER)
AS
   BEGIN
      VALEUR = 0 ;
      WHILE (VALEUR < NOMBRE) DO
         VALEUR = VALEUR + 3;
      SUSPEND;
END

WHILE (VALEUR < NOMBRE) DO
BEGIN
   VALEUR = VALEUR + 3;
   VALEUR = VALEUR + 1;
END

WHILE (VALEUR < NOMBRE) DO
   VALEUR = VALEUR + 3;
   VALEUR = VALEUR + 1;

/* Calcul du plus grand de 2 nombres */
IF (Param1 > Param2) THEN
   Resultat = Param1 ;
ELSE
   Resultat = Param2 ;

/* Calcul du plus grand de 2 nombres */
IF (Param1 > Param2) THEN
BEGIN
   Resultat = Param1 ;
END
ELSE
BEGIN
   Resultat = Param2 ;
END

/* Calcul du plus grand de 2 nombres */
IF (Param1 > Param2) THEN
BEGIN
   Resultat = Param1 ;
   Lequel = 'Premier' ;
END
ELSE
BEGIN
   Resultat = Param2 ;
   Lequel = 'Second' ;
END

IF (:PALIER1 IS NOT NULL) THEN BEGIN /* IL EXISTE UN PRIX SPÉCIFIQUE */
IF ((:PALIER3 IS NOT NULL) AND (QTETOTALE >= :PALIER3)) THEN
BEGIN
CLN_PRIX = PRIX3;
END ELSE BEGIN
IF ((:PALIER2 IS NOT NULL) AND (QTETOTALE >= :PALIER2)) THEN
BEGIN
CLN_PRIX = PRIX2;
END ELSE BEGIN
CLN_PRIX = PRIX1;
END
END
PRIXTROUVE = -1;
TYPETARIF = 1 ;
END

CREATE PROCEDURE AUCARRE
RETURNS (
   CARRE SMALLINT)
AS
   DECLARE VARIABLE NBRE SMALLINT;
   /* Cette procédure stockée renvoie le carré des 10 premiers nombres */
BEGIN
   NBRE = 0 ;
   WHILE (NBRE < 10) DO
      BEGIN
         NBRE = NBRE + 1 ;
         CARRE = NBRE * NBRE ;
      SUSPEND ;
      END
END

CREATE PROCEDURE AUCARRE_2
RETURNS (
   NBRE SMALLINT,
   CARRE SMALLINT)
AS
/* Cette procédure stockée renvoie le carré des 10 premiers nombres */
BEGIN
   NBRE = 0 ;
   WHILE (NBRE < 10) DO
   BEGIN
      NBRE = NBRE + 1 ;
      CARRE = NBRE * NBRE ;
      SUSPEND ;
   END
END

SELECT COUNT(*) FROM EMPLOYEE

SELECT COUNT(*) FROM EMPLOYEE INTO :NBRE

FOR
   SELECT
      first_name,
      last_name
   FROM
      EMPLOYEE
   INTO
      :Prenom,
      :Nom
DO
   BEGIN
   /* Traitement d'une ligne */
END ;

CREATE PROCEDURE GET_EMP_PROJ (
   EMP_NO SMALLINT)
RETURNS (
   PROJ_ID CHAR (5))
AS
BEGIN
   FOR SELECT proj_id
      FROM employee_project
      WHERE emp_no = :emp_no
      INTO :proj_id
   DO
   SUSPEND;
END

CREATE PROCEDURE GET_EMP_PROJ (
   EMP_NO SMALLINT)
RETURNS (
   PROJ_ID CHAR (5))
AS
BEGIN
   FOR SELECT proj_id
      FROM employee_project
      WHERE emp_no = :emp_no
      INTO :proj_id
   DO
   BEGIN
      SUSPEND;
   END
END

CREATE PROCEDURE NOUVEAU_CLIENT (
NOMCLIENT VARCHAR (25),
PRENOMNOMCONTACT VARCHAR (15),
NOMCONTACT VARCHAR (20),
PAYS VARCHAR (10))
RETURNS (
CODECLIENT INTEGER,
PAYSCREE SMALLINT)
AS
/*
Rédacteur : Etienne Bar
Date de rédaction : 18/03/2004
Description :
Création d'un client ou mise à jour du nom du contact si
le client existe.
Création de la fiche pays si elle n'existe pas avec l'Euro
comme monnaie par défaut
*/
DECLARE VARIABLE LIBELLE_EXACT_PAYS VARCHAR(10) ;
BEGIN
/* Corps de la procédure */
/* Le pays existe-t-il ?
/* Pour la recherche, on met tout en majuscules, car InterBase est
sensible
à la casse */
PAYS = UPPER(PAYS);
SELECT COUNTRY
FROM COUNTRY
WHERE UPPER(COUNTRY) = UPPER(:PAYS)
INTO LIBELLE_EXACT_PAYS ;
/* On récupère le libellé du pays avec la casse correcte
pour le stocker dans la table client de manière correcte */
IF (LIBELLE_EXACT_PAYS IS NULL) THEN BEGIN
/* Création du pays */
INSERT INTO COUNTRY(COUNTRY, CURRENCY)
VALUES (:PAYS, 'EURO');
PAYSCREE = -1 ;
LIBELLE_EXACT_PAYS = PAYS ;
END ELSE BEGIN
PAYSCREE = 0;
END
/* Recherche du client : on considère qu'on ne peut pas avoir 2 clients
avec le même libellé. Dans le cas contraire, le code qui suit ne
fonctionnerait pas */
SELECT CUST_NO
FROM CUSTOMER
WHERE UPPER(CUSTOMER) = UPPER(:NOMCLIENT)
INTO :CODECLIENT ;
/* Le client existe, on le met à jour */
IF (CODECLIENT IS NOT NULL) THEN BEGIN
UPDATE CUSTOMER
SET CONTACT_FIRST = :PRENOMNOMCONTACT,
CONTACT_LAST = :NOMCONTACT,
COUNTRY =:LIBELLE_EXACT_PAYS
WHERE (CUST_NO = :CODECLIENT) ;
END ELSE BEGIN /* Le client est à créer */
/* Ititialisation du code grâce à un générateur */
CODECLIENT = GEN_ID(CUST_NO_GEN,1) ;
INSERT INTO CUSTOMER(
CUST_NO,
CUSTOMER,
CONTACT_FIRST,
CONTACT_LAST,
COUNTRY)
VALUES(
:CODECLIENT,
:NOMCLIENT,
:PRENOMNOMCONTACT,
:NOMCONTACT,
:LIBELLE_EXACT_PAYS
) ;
END
/* Il ne faut surtout pas oublier le suspend final
pour renvoyer le résultat de la procédure */
SUSPEND ;
END

CREATE PROCEDURE REMPLACE_NULL_PAR_ESPACES
AS
DECLARE VARIABLE CODECLIENT INTEGER;
DECLARE VARIABLE PRENOMCONTACT VARCHAR (15);
DECLARE VARIABLE NOMCONTACT VARCHAR (20);
DECLARE VARIABLE MAJ SMALLINT;
BEGIN
FOR /* Pour chaque ligne de la table customer */
SELECT
CUST_NO,
CONTACT_FIRST,
CONTACT_LAST
FROM
CUSTOMER
INTO
:CODECLIENT,
:PRENOMCONTACT,
:NOMCONTACT
DO
BEGIN
MAJ = 0; /* On ne fera la mise à jour que si nécessaire */
IF (PRENOMCONTACT IS NULL) THEN BEGIN
PRENOMCONTACT = ' ';
MAJ = -1;
END
IF (NOMCONTACT IS NULL) THEN BEGIN
NOMCONTACT = ' ';
MAJ = -1;
END
IF (MAJ = -1) THEN BEGIN
UPDATE CUSTOMER
SET CONTACT_FIRST = :PRENOMCONTACT,
CONTACT_LAST = :NOMCONTACT
WHERE (CUST_NO = :CODECLIENT) ;
END /* (MAJ = -1) */
END /* Pour chaque ligne de la table customer */
END

CREATE EXCEPTION REAFFECTE_VENTES 'Cet employé a des ventes enregistrées dans la base de données'

CREATE PROCEDURE EFFACE_EMPLOYEE (
EMP_NUM INTEGER)
AS
DECLARE VARIABLE any_sales INTEGER;
BEGIN
any_sales = 0;
/*
Si des ventes sont affectées à cet employé,
on ne peut l'effacer avant d'avoir affecté les ventes à
un autre employé
*/
SELECT COUNT(PO_NUMBER)
FROM sales
WHERE sales_rep = :emp_num
INTO :any_sales;
IF (any_sales > 0) THEN
BEGIN
EXCEPTION REAFFECTE_VENTES;
END
/*
Si l'employé est un manager, modifier le département
*/
UPDATE department
SET mngr_no = NULL
WHERE mngr_no = :emp_num;
/*
Si l'employé est le chef d'un projet, mettre à jour le projet
*/
UPDATE PROJECT
SET team_leader = NULL
WHERE team_leader = :emp_num;
/*
Supprimer l'employé des projets auxquels il participe
*/
DELETE FROM employee_projecT
WHERE emp_no = :emp_nuM;
/*
Supprimer l'historique de l'employé
*/
DELETE FROM salary_history
WHERE emp_no = :emp_num;
/*
Supprimer l'employé de la table Employee
*/
DELETE FROM employee
WHERE emp_no = :emp_num;
END