-- création ou modification : 
DELIMITER |
CREATE [OR REPLACE] PROCEDURE nom_procédure
  ([
     [IN | OUT | IN OUT] nom_paramètre {type_paramètre | ARRAY OF type_paramètre}, ...
  ])
  [DECLARE déclaration_variable;...[;]]
BEGIN
 instruction_corps_procédure;...[;]
END;
DELIMITER ;
 
-- execution : 
EXECUTE PROCEDURE nom_procédure(liste_des_valeurs_des_parametres);

CREATE [OR REPLACE ] PROCEDURE procedure_name (parameter_list)     
BEGIN
      -- instructions de déclaration --
      -- instructions d'exécution --
EXCEPTION
      -- [traitement des exceptions --
END;

mysql> delimiter // --changer le délimiteur
 
mysql> CREATE PROCEDURE nbVilles (IN pays CHAR(3), OUT villes INT)
       BEGIN
         SELECT COUNT(*) INTO villes FROM gc_client
         WHERE paysCli = pays;
       END//
Query OK, 0 rows affected (0.01 sec)
 
mysql> delimiter ;  -remettre le délimiteur standard 

mysql> CALL nbVilles('FRA', @villes); -- appel de la procédure
Query OK, 1 row affected (0.00 sec)

mysql> SELECT @villes;
+---------+
| @villes |
+---------+
|       3 |
+---------+
1 row in set (0.00 sec)

Create PROCEDURE miseAjourMensuelle()
BEGIN
    DECLARE mois INT;
    DECLARE reference INT;
    DECLARE total INT;
    DECLARE classe varchar(1);
 
    DECLARE cur_mAJour CURSOR FOR   -- déclaration du curseur
        Select L.art_id, month(C.cdeDate), sum(L.qte)
        from gc_contenir L 
            join gc_commande C on L.numCde = C.numCde
        group by L.art_id, month(C.cdeDate) ;
 
    OPEN cur_mAJour;                -- ouverture du curseur
 
    getDonnees: LOOP                -- définir la boucle
        -- récupérer les données ; mappage des champs de la requête 
        FETCH cur_mAJour INTO ref_Art, mois, total;
 
        IF total > 100 THEN     SET classe = "A";  -- voir if ci-dessous
         ELSEIF total > 10 THEN SET classe = "B";
         ELSE                   SET classe = "C";
        END IF;
 
        update gc_classementArticle A -- màj de la table classement mensuel
        set A.classement = classe
        where A.mois=mois and A.refArt=ref_Art;
    END LOOP;
    CLOSE cur_mAJour;
 END;

CREATE PROCEDURE boucleBidon()
BEGIN
  DECLARE cnt INT DEFAULT 5; -- initialiser un compteur
 
  WHILE cnt > 0 DO  -- tant que cnt est > à 0
    select curtime(); -- afficher l'heure
    SET cnt = cnt - 1;  -- dévrémenter le compteur cnt
  END WHILE;
END;

CREATE PROCEDURE iterationBibon(cnt INT)
BEGIN
  label1: LOOP        -- déclarer la boucle
 
    SET cnt = cnt + 1; -- incrémenter le compteur
    IF cnt >= 10 THEN   -- si le compteur est 10 ou plus alors
      LEAVE label1;      -- sortir du loop
    END IF;
 
    ITERATE label1;     -- boucler
  END LOOP label1;    
  SET @x = cnt;
END;

-- ATTENTION : langage = MS SQL Server (à cause des @)
DECLARE @pNom varchar(100);                             -- déclaration de variables
DECLARE cursor_product CURSOR  FOR select ... ; -- déclaration du curseur
OPEN myCursor;                                                     -- ouverture du curseur
FETCH next from myCursor into @pNom ;             -- lire et mapper le 1er enreg
 
WHILE @@FETCH_STATUS = 0  -- TQ le curseur est ok (il y a 2 @ !)
    BEGIN
        PRINT @product_name          -- traitement
        FETCH next from myCursor ... -- lire et mapper l'enreg suivant
    END;                                       -- fin TQ
 
CLOSE myCursor ;                     -- fermer le curseur
DEALLOCATE myCursor ;                -- libérer, délivrer la mémoire

-- syntaxe Oracle ou mysql
DECLARE      -- déclaration des variables
    prodNom  Varchar(100), 
    prodPrix Decimal
DECLARE myCursor CURSOR    -- déclaration du curseur pour une requête classique qui sera parcourue
    FOR select pNom, pPrix from production.products; -- requête dans la DB production
 
BEGIN
      OPEN myCursor;      -- ouverture du curseur
 
      myLoop LOOP;        -- boucle sur le curseur
          FETCH NEXT FROM myCursor INTO prodNom, prodPrix  ;  -- lecture et mapping des champs
          PRINT prodNom + CAST(prodPrix AS varchar); -- affichage (PRINT à voir, n'existe pas en mysql)
      END LOOP;
 
      CLOSE myCursor ;    -- fermer le curseur
END;
DEALLOCATE myCursor ;

-- syntaxe Oracle
DECLARE myCursor CURSOR  -- déclaration du curseur pour une requête classique qui sera parcourue
    FOR select pNom, pPrix FROM   production.products;
 
BEGIN
      FOR currentRecord IN myCursor LOOP;   -- boucle sur le curseur
          PRINT currentRecord.pNom + CAST(currentRecord.pPrix AS varchar); -- PRINT ??? (à voir)
      END LOOP;
END;