\documentclass[a4paper,11pt]{article}

\usepackage[utf8x]{inputenc}
\usepackage[T1]{fontenc} 
\usepackage[french]{babel}
\usepackage[a4paper,hmargin=20mm,vmargin=30mm]{geometry}%\usepackage{fullpage}
\usepackage{url}
\usepackage{comment}
\usepackage{fancyhdr}% fancy header
\usepackage{multirow}
\usepackage{slashbox}

\usepackage{color, colortbl}
\definecolor{Gray}{gray}{0.9}
\usepackage{adjustbox}
\usepackage{slashbox}
%\usepackage{times}
\usepackage{tikz,pgflibraryarrows,pgffor,pgflibrarysnakes}
\usetikzlibrary{decorations.pathreplacing}

\usepackage{pdfpages}

\usepackage{fancyvrb}

\fancypagestyle{monstyle}{
%\fancyhead{}
\renewcommand{\headrulewidth}{1pt}
%% %\renewcommand{\footrulewidth}{0.4pt}

% \fancyhead[LE]{\slshape \thepage/ \pageref{LastPage}}
%% \fancyhead[RO]{\slshape \thepage/ \pageref{LastPage}}


%\fancyhf{}          
%\fancyhead[LE]{\slshape LE}
%\fancyhead[CE]{\slshape CE}
%\fancyhead[RE]{\slshape RE}

\fancyhead[LO]{\bfseries 2018-2019 BD PLS/SQL\rightmark}   
%\fancyhead[CO]{\slshape APF}
\fancyhead[RO]{\bfseries ~\leftmark }

%% %\fancyfoot{}
% \fancyfoot[LE,RO]{}
 \fancyfoot[CO,CE]{}%\slshape\thepage/\pageref{LastPage}}
%% %\fancyfoot[LO,RE]{\small\slshape \ddmmyyyydate version du \today}

}

% \pagestyle{fancy}

\usepackage{amsmath}
\usepackage{amsthm}



\theoremstyle{definition}
\newtheorem{exercice}{Exercice}

\pagestyle{monstyle}

\usepackage{amsmath}
\usepackage{amsthm}

\newcommand{\code}[1]{\texttt{#1}}

\usepackage{boxedminipage}
\usepackage{setspace}


\newsavebox\svbx
\newif\ifcache
\long\def\cache#1{\ \newline
  \setbox\svbx=\vbox{\leavevmode \newline \begin{spacing}{1}#1\end{spacing}}
 \smallskip\par\noindent
 \begin{boxedminipage}{\linewidth}
  \ifcache    
  \leavevmode\hrule height 0pt\vskip \ht\svbx\hrule height 0pt
  \else \unvbox\svbx
  \fi
 \end{boxedminipage}
 \par\smallskip}


\cachefalse % version prof
%\cachetrue % version  etudiant



\begin{document}


\begin{center}
 NOM : \hfill Examen \hfill~\\
 PRENOM : \hfill 90 minutes, 75 points \hfill ~\\
 GROUPE : \hfill  Aucun document autoris\'e \hfill~\\
  
\end{center}

\section*{PL/SQL : NBA Statistiques}
Ci-dessous un mod\`ele de la base de donn\'ees de statistiques de la
NBA (National Basketball Association), o\`u PG, SG, SF, PF et C sont
les diff\'erents postes occup\'es par les joueurs sur le terrain. Un
joueur ne peut pas \^etre en activit\'e dans deux \'equipes en m\^eme temps.

\begin{center}
     	   \begin{tikzpicture}[every node/.style={inner sep=0,outer sep=0}]

\node (i) at (6,0) {\begin{varwidth}{1.5in}
\begin{tabular}{|l|}
\hline
\rowcolor{Gray}CONTRAT\\
\hline
\underline{id\_contrat}\\
\#id\_joueur\\
\#id\_equipe\\
Date\_debut\\
Date\_fin\\
Salaire\_jour\\ \hline
\end{tabular}
\end{varwidth}
};


\node (a) at (0,0) {\begin{varwidth}{2.5in}
\begin{tabular}{|l|}
\hline
\rowcolor{Gray}JOUEUR\\
\hline
\underline{id\_joueur}\\
Nom\\
Pénom\\
Date\_de\_naissance\\
Taille\\
Poste('PG','SG','SF','PF','C')\\
\hline
\end{tabular}
\end{varwidth}
};


\node (f) at (8,-5) {\begin{varwidth}{2.5in}
\begin{tabular}{|l|}
\hline
\rowcolor{Gray}Match\\
\hline
\underline{id\_match}\\
Date\_match\\
\#id\_equipe\_domicile\\
\#id\_equipe\_exterieur\\
Ville\\
Categorie(Amical,Saison,Playoff,Allstar)\\
Score\_domicile\\
Score\_exterieur\\
Prolongation\\
\hline
\end{tabular}
\end{varwidth}
};

\node[draw,rectangle] (g) at (0,-5) {\begin{varwidth}{2in}
\begin{tabular}{l}
 \rowcolor{Gray}JOUE\\
  \hline
  \underline{\#id\_joueur}\\
  \underline{\#id\_match}\\
  Points\\
  Rebonds\\
  Interceptions\\
  Contres\\
  Passes\\
  Balles\_perdues\\
  Fautes\\
\end{tabular}
\end{varwidth}};



\node[draw,rectangle] (c) at (11,0) {
\begin{tabular}{|l|}
\hline
\rowcolor{Gray}EQUIPE\\
\hline
\underline{id\_equipe}\\
Nom\\
Ville\\
Conference('Est','Ouest')\\
Date\_creation\\
\hline
\end{tabular}
};

\draw[-latex]  (i) --  (a);
\draw[-latex]  (i) -- (c);
\draw[-latex]  (10,-2.6) -- (10.65,-1.5);
\draw[latex-] (c) -- (f);
\draw[latex-] (f) -- (g);
\draw[latex-] (a) -- (g);

           \end{tikzpicture}
\end{center}

%  \newpage
  
\begin{exercice}[NBA, PLSQL] (30 points)
Le MLD ci-dessus stocke les donn\'ees des matchs  NBA.

\begin{enumerate}
\item (15 points) \'Ecrire un code PL/SQL qui, pour un
  \code{id\_joueur} saisi par l'utilisateur, liste dans une table
  \code{TLIGNES} son maximum de points lors d'un match  de sa
  carri\`ere. La solution propos\'ee doit mettre en place deux
  m\'ecanismes un avec et un sans \code{EXCEPTION} pour traiter les
  cas d'erreurs suivants :
  \begin{itemize}
  \item \code{'joueur inconnu'}, il n'y a pas le joueur dans la table \code{JOUEUR},
  \item \code{'joueur n a pas fait de match'}, il n'apparait pas
    dans la table \code{JOUE}. 
  \end{itemize}

\begin{SaveVerbatim}{Maxpoints}
DROP TABLE tligne ;
CREATE TABLE tligne (ligne varchar2(100)) ;

set echo off; set verify off; set feedback off;

variable vidjoueur char(4)
prompt Entrer la reference du joueur :
accept vidjoueur

DECLARE
dmaxpoint number;
dnbjoueur number;
didjoueur char(4);

BEGIN
SELECT count(Nom) INTO dnbjoueur FROM JOUEUR WHERE id_joueur ='&vidjoueur';

if dnbjoueur != 0 then

SELECT max(points) INTO dmaxpoint FROM JOUE
WHERE id_joueur ='&vidjoueur';

INSERT INTO tligne VALUES ('Max points de'||'&vidjoueur'||' : '||to_char(dmaxpoint));
ELSE
INSERT INTO tligne VALUES('count detecte numero du joueur  pas bon'); 

SELECT id_joueur INTO didjoueur FROM JOUEUR
WHERE id_joueur ='&vidjoueur';
end if;

EXCEPTION 
when no_data_found then
INSERT INTO tligne VALUES('exception numero du joueur  pas bon'); 
end ;
.
/

SELECT * FROM tligne ;
set verify on; set feedback on; set echo on;
\end{SaveVerbatim}

\cache{%\begin{small}
    \BUseVerbatim{Maxpoints}
%  \end{small}
}

  
\item (15 points) \'Ecrire un code PL/SQL qui liste dans une table
  \code{TLIGNES} les joueurs en activit\'e (ayant une date de fin de
  contrat non nulle) du plus vieux au plus jeune.
  
\begin{center}    
\begin{verbatim}
  Nom      Prenom    Date de naissance      Nom Equipe Actuelle
  XXXXXX   XXXXXXX   XX/XX/XXXX             XXXXXXXX
  XXXXXX   XXXXXXX   XX/XX/XXXX             XXXXXXXX
  XXXXXX   XXXXXXX   XX/XX/XXXX             XXXXXXXX
  ...
\end{verbatim}
\end{center}

\begin{SaveVerbatim}{Joueur}
DROP TABLE tligne ;
CREATE TABLE tligne (ligne varchar2(100)) ;

set echo off;
set verify off;
set feedback off;

DECLARE
dnom varchar2(20);
dprenom varchar2(20);
ddate date;
dnomequipe varchar2(20);

CURSOR c IS SELECT j.Nom, j.Prenom, j.Date_de_naissance, e.Nom  FROM JOUEUR j, APPARTIENT a, EQUIPE e 
WHERE a.id_joueur = j.id_joueur and e.id_equipe =  a.id_equipe and a.Date_fin is NULL
Order by Date_de_naissance;

BEGIN
OPEN c;

INSERT INTO tligne VALUES ('Nom  Prenom Date de naissance Nom Equipe Actuelle');
FETCH c INTO dnom, dprenom, ddate, dnomequipe;

WHILE c%found
LOOP  
  INSERT INTO tligne VALUES (dnom||' '||dprenom||' '||to_char(ddate)||' '||dnomequipe); 
  FETCH c INTO dnom, dprenom, ddate, dnomequipe;
END LOOP;

CLOSE C;
END;
.
/

SELECT * FROM tligne ;
set verify on;
set feedback on;
set echo on;
\end{SaveVerbatim}

%% \cache{%\begin{small}
%%     \BUseVerbatim{Joueur}
%% %  \end{small}
%% }

%% \item (20 points) Lister dans une table \code{TLIGNES} tous les
%%   joueurs ayant particip\'e \`a un ALLSTAR de la conf\'erence Est et
%%   ceux de la conf\'erence Ouest avec les informations suivantes :
%% \begin{center}    
%%   \begin{small}
%% \begin{verbatim}
%%   ALLSTAR MATCH 
%%   EQUIPE de l'EST
%%   Nom      Prenom    Poste     Equipe Actuelle
%%   XXXXXX   XXXXXXX   XXXXXX    XXXXXXXX
%%   XXXXXX   XXXXXXX   XXXXXX    XXXXXXXX
%%   EQUIPE de l'EST
%%   Nom      Prenom    Poste     Equipe Actuelle
%%   XXXXXX   XXXXXXX   XXXXXX    XXXXXXXX
%%   XXXXXX   XXXXXXX   XXXXXX    XXXXXXXX
%% \end{verbatim}
%%   \end{small}
%% \end{center}


\begin{SaveVerbatim}{Allstar}
DECLARE
dnom varchar2(20); dprenom varchar2(20);
dposte char(2); dnomequipe varchar2(20);

CURSOR Cest IS SELECT j.Nom, j.Prenom, j.Poste, e.Nom FROM JOUEUR j,
APPARTIENT a, EQUIPE e WHERE a.id_joueur = j.id_joueur and e.id_equipe
= a.id_equipe and e.conference='Est' and j.id_joueur in (SELECT
id_joueur FROM JOUE je, GAME g where g.Categorie='Allstar' and
g.id_game=je.id_game);

CURSOR Couest IS SELECT j.Nom, j.Prenom, j.Poste, e.Nom FROM JOUEUR j,
APPARTIENT a, EQUIPE e WHERE a.id_joueur = j.id_joueur and e.id_equipe
= a.id_equipe and e.conference='Ouest' and j.id_joueur in (SELECT
id_joueur FROM JOUE je, GAME g where g.Categorie='Allstar' and
g.id_game=je.id_game);

BEGIN
INSERT INTO tligne VALUES ('ALLSTAR GAME);
INSERT INTO tligne VALUES ('Conference Est');
INSERT INTO tligne VALUES ('Nom  Prenom Poste Nom Equipe Actuelle');
OPEN Cest;
FETCH Cest INTO dnom, dprenom, dposte, dnomequipe;
WHILE Cest%found LOOP  
  INSERT INTO tligne VALUES (dnom||' '||dprenom||' '||dposte||' '||dnomequipe); 
  FETCH Cest INTO dnom, dprenom, dposte, dnomequipe;
END LOOP;
CLOSE Cest;
INSERT INTO tligne VALUES ('Conference Ouest');
OPEN Couest;
INSERT INTO tligne VALUES ('Nom  Prenom Poste Nom Equipe Actuelle');
FETCH Couest INTO dnom, dprenom, dposte, dnomequipe;	 
WHILE Couest%found LOOP  
  INSERT INTO tligne VALUES (dnom||' '||dprenom||' '||dposte||' '||dnomequipe); 
  FETCH Couest INTO dnom, dprenom, dposte, dnomequipe;
END LOOP;
CLOSE Couest;
END;
.
/
SELECT * FROM tligne ;
\end{SaveVerbatim}

\cache{\begin{footnotesize}
    \BUseVerbatim{Allstar}
  \end{footnotesize}
}
\end{enumerate}

\end{exercice}



\begin{center}
     	   \begin{tikzpicture}[every node/.style={inner sep=0,outer sep=0}]

\node (a) at (5,-4) {\begin{varwidth}{1.5in}
\begin{tabular}{|l|}
\hline
\rowcolor{Gray}AFFECTATION\\
\hline
\underline{id\_contrat}\\
\#id\_personnel\\
\#id\_patient\\
Date\_debut\\
Date\_fin\\ \hline
\end{tabular}
\end{varwidth}
};


\node (f) at (0,0) {\begin{varwidth}{2.5in}
\begin{tabular}{|l|}
\hline
\rowcolor{Gray}FONCTION\\
\hline
\underline{id\_fonction}\\
Designation\\
Salaire\\
\hline
\end{tabular}
\end{varwidth}
};


\node (p) at (5,0) {\begin{varwidth}{2.5in}
\begin{tabular}{|l|}
\hline
\rowcolor{Gray}PERSONNEL\\
\hline
\underline{id\_personnel}\\
\#id\_fonction\\
\#id\_hopital\\
Nom\\
Prenom\\
\hline
\end{tabular}
\end{varwidth}
};

\node[draw,rectangle] (pa) at (0,-4) {\begin{varwidth}{2in}
\begin{tabular}{l}
 \rowcolor{Gray}PATIENT\\
  \hline
  \underline{id\_patient}\\
  Nom\\
  Prenom\\
  Date\_naissance\\
\end{tabular}
\end{varwidth}};



\node[draw,rectangle] (h) at (9,0) {
\begin{tabular}{|l|}
\hline
\rowcolor{Gray}HOPITAL\\
\hline
\underline{id\_hopital}\\
Nom\\
Ville\\
Date\_creation\\
\hline
\end{tabular}
};

\draw[-latex] (p) --  (f);
\draw[-latex] (p) -- (h);
\draw[latex-] (p) -- (a);
\draw[latex-] (pa) -- (a);

           \end{tikzpicture}
\end{center}

\begin{exercice}[Pro C] (45 points)
  \begin{enumerate}
  \item (30 points) En utilisant les curseurs, \'ecrire un programme
    Pro C qui permet d'afficher le nom et pr\'enom des membres du
    personnel par hopital en indiquant pour chacun le nombre de
    patients suivis et par ordre alphab\'etique des pr\'enoms ayant la
    forme suivante : \\
    
\begin{SaveVerbatim}{Affichage}
Personnels de l’hopital XXXXX :
   1) Nom : XXXXXX Prenom : XXXXX  Salaire: XXXXX  Nombre de patients : ZZ
   2) Nom : XXXXXX Prenom : XXXXX  Salaire: XXXXX  Nombre de patients : ZZ
   3) Nom : XXXXXX Prenom : XXXXX  Salaire: XXXXX  Nombre de patients : ZZ
   ...
Nombre de patients total sur l'hopital : ZZ1
Nombre de personnels total sur l'hopital : ZZ2

Personnels de l’hopital XXXXX :
   1) Nom : XXXXXX Prenom : XXXXX  Salaire: XXXXX  Nombre de patients : ZZ
   2) Nom : XXXXXX Prenom : XXXXX  Salaire: XXXXX  Nombre de patients : ZZ
   3) Nom : XXXXXX Prenom : XXXXX  Salaire: XXXXX  Nombre de patients : ZZ
   ...
Nombre de patients total sur l'hopital : ZZ1
Nombre de personnels total sur l'hopital : ZZ2
...
\end{SaveVerbatim}

%     \cache{%\begin{small}
     \BUseVerbatim{Affichage}
  %\end{small}
     %     }

     Sachant que la valeur de \code{salaire} peut ne pas \^etre
     renseignée, il faudra donc g\'erer ce cas.
  \item (15 points) \'Ecrire un programme Pro C qui permet d'ins\'erer un nouveau
    membre du personnel. Les valeurs saisies par l'utilisateurs seront
    ins\'er\'ees  dans la table \code{PERSONNEL}.
    \begin{itemize}
    \item V\'erifier que la fonction existe d\'ej\`a ainsi que l'hopital.
  \item
    V\'erifier aussi que l'\code{id\_personnel} n'existe pas d\'ej\`a, s'il
    existe alors afficher les caract\'eristiques du personnel existant.
    \end{itemize}
  %% \item 'Ecrire un programme Pro C qui permet de renter une nouvelle
  %%   affectation entre un patient et un membre du pesonnel.  V\'erifier
  %%   que le patient et le personel existent d\'ej\`a.


    \begin{SaveVerbatim}{questionune}
int main(int argc, char** argv){
varchar vnom[20];
varchar vprenom[20];
varchar vhopital[20];
char vidhopital[6];
int fini;
int fin=1;
int vnbnom;
int vnbhopit;
int nb=1;	
	EXEC SQL WHENEVER SQLERROR DO sql_error("Oracle error\n");
	printf("\n Appel de la fonction connexion");
	connexion();
	printf("\n Appel de la fonction deconnexion");	
	EXEC SQL WHENEVER SQLERROR DO sql_error("Oracle error\n");
	EXEC SQL SELECT p.Nom, p.Prenom, h.Nom INTO :vnom, :vprenom, :vhopital
        FROM PERSONNEL p, HOPITAL h
        WHERE  h.id_hopital = p.id_hopital and p.id_personnel='PE01';
	vnom.len=strlen(vnom.arr);
	vprenom.len=strlen(vprenom.arr);
	vhopital.len=strlen(vhopital.arr);
	printf("\n  TEST pour PE01 : Nom : %.*s prenom : %.*s hopital : %.*s \n"
        , vnom.len, vnom.arr, vprenom.len,  vprenom.arr, vhopital.len,vhopital.arr);
	printf("\n Affichage les hopitaux \n");
	EXEC SQL SELECT COUNT(h.Nom) INTO :vnbhopit FROM  HOPITAL h;
	printf("\nNombre d'hopitaux est  %d\n",vnbhopit);
	EXEC SQL DECLARE hopitaux CURSOR FOR SELECT Nom, id_hopital
        FROM HOPITAL ORDER by Nom;
	EXEC SQL OPEN hopitaux;
	EXEC SQL FETCH hopitaux INTO :vhopital, :vidhopital;
	if (sqlca.sqlcode == 1403) {fin = 0;}
	while  (fin!=0)        {       
	vhopital.len=strlen(vhopital.arr);
	printf("\n Affichage des personnels de l'hopital %.*s : \n",
        vhopital.len,vhopital.arr);
	EXEC SQL SELECT COUNT(Nom) INTO :vnbnom FROM PERSONNEL
        WHERE  id_hopital = :vidhopital;
	printf("\nNombre de personnel de l'hopital %.*s est  %d\n",
        vhopital.len,vhopital.arr, vnbnom);
	EXEC SQL DECLARE personnels CURSOR FOR SELECT Nom, Prenom FROM PERSONNEL  WHERE  id_hopital = :vidhopital ORDER by prenom;
        EXEC SQL OPEN personnels;
	fini=1;
	EXEC SQL FETCH personnels INTO :vnom, :vprenom;
	if (sqlca.sqlcode == 1403) {fini = 0;}
	while  (fini!=0){       
		vnom.len=strlen(vnom.arr);
		vprenom.len=strlen(vprenom.arr);
		printf("%d) Nom : %.*s Prenom : %.*s \n",
                nb, vnom.len, vnom.arr, vprenom.len,  vprenom.arr);
		nb++;
		EXEC SQL FETCH personnels INTO :vnom, :vprenom;
		if (sqlca.sqlcode == 1403) {fini = 0;}	}
	EXEC SQL CLOSE personnels;
	EXEC SQL FETCH hopitaux INTO :vhopital, :vidhopital;
	if (sqlca.sqlcode == 1403) {fin = 0;}
	}
        printf(" Fini \n");
	EXEC SQL CLOSE hopitaux;
	deconnexion(1);
	return(0);
}
\end{SaveVerbatim}

    \cache{\begin{small}
    \BUseVerbatim{questionune}
  \end{small}
}
    
    \begin{SaveVerbatim}{Insertion}
int main(int argc, char** argv){
char vidperso[20];
char vidfonction[20];
char vidhopital[6];
VARCHAR vnom[20];
VARCHAR vprenom[20];
char eidperso[20];
char eidfonction[20];
char eidhopital[6];
VARCHAR enom[20];
VARCHAR eprenom[20];
int nbhopital=0;
int nbfonction=0;
int nbperso=1;	
	EXEC SQL WHENEVER SQLERROR DO sql_error("Oracle error\n");
	printf("\n Appel de la fonction connexion");
	connexion();
	printf("\n Appel de la fonction deconnexion");
	EXEC SQL WHENEVER SQLERROR DO sql_error("Oracle error\n");
	printf("Saisir un nouveau personnel \n");
	printf("Entrer son nom  : ");
	scanf("%s",vnom.arr);
	vnom.len=strlen(vnom.arr);
	printf("Entrer son prenom  : ");
	scanf("%s",vprenom.arr);
	vprenom.len=strlen(vprenom.arr);

	do{
	printf("Entrer son id hopital : ");
	scanf("%s",vidhopital);
	EXEC SQL SELECT COUNT(*) INTO :nbhopital FROM HOPITAL WHERE id_hopital=:vidhopital;
	//printf("nbhopital %d\n",nbhopital);
	}
	while (nbhopital !=1);
	do{
	printf("Entrer son id personnel : ");
	scanf("%s",vidperso);
	EXEC SQL SELECT COUNT(*) INTO :nbperso FROM PERSONNEL WHERE id_personnel=:vidperso;
	if (nbperso==1){
	   printf("Ce numero de personnel existe deja\n");
	   EXEC SQL SELECT * INTO :eidperso, :eidfonction, :eidhopital, :enom, :eprenom
           FROM PERSONNEL WHERE id_personnel=:vidperso;
	   printf("ID PERSO : %s \n",eidperso);
	   printf("ID FONCTION : %s \n",eidfonction);
	   printf("ID HOPITAL : %s \n",eidhopital);
	   printf("NOM : %s \n",enom.arr);
	   printf("PRENOM : %s \n",eprenom.arr);
	   }
	}
	while (nbperso !=0);
	do{
	printf("Entrer son id fonction : ");
	scanf("%s",vidfonction);
	EXEC SQL SELECT COUNT(*) INTO :nbfonction FROM FONCTION
        WHERE id_fonction=:vidfonction;
	}
	while (nbfonction !=1);
	EXEC SQL INSERT INTO PERSONNEL VALUES(:vidperso,:vidfonction,:vidhopital,:vnom,:vprenom);
	EXEC SQL COMMIT;
	deconnexion(1);
	return(0);}
\end{SaveVerbatim}

    \cache{\begin{small}
    \BUseVerbatim{Insertion}
  \end{small}
}

  \end{enumerate}
\end{exercice}



\section*{Rappels}
Les fonctions \code{connexion}, \code{deconnexion} et \code{sql\_error}
sont rappell\'ees ci-dessous. Elles ne sont pas \`a r\'e\'ecrire sur
vos copies, mais \`a utiliser dans les exercices si besoin.

\begin{verbatim}
void connexion()
{	VARCHAR uid[50];
	char login[20];
	char passwd[20];
	printf("Donner votre login : ");
	scanf("%s",login);
	printf("\nDonnez votre mot de passe Oracle : ");
	scanf("%s",passwd);
	printf("\n");
	strcpy(uid.arr,login);
	strcat(uid.arr,"/");
	strcat(uid.arr,passwd);
	strcat(uid.arr,"@kirov");
	uid.len=strlen(uid.arr);

	EXEC SQL CONNECT :uid;
	if (sqlca.sqlcode==0)
		printf(" Connexion réussie avec succès.\n\n");
	else
	{
		printf ("Problème à la connexion.\n\n");
		exit(1);
	}}
\end{verbatim}


\begin{verbatim}
void deconnexion(int validation)
{
	if (validation == 1)
	{  EXEC SQL COMMIT WORK RELEASE;
	} else
	{  EXEC SQL ROLLBACK WORK RELEASE;}
	printf("Déconnexion sans problème.\n");
}
\end{verbatim}

\begin{verbatim}
void sql_error(char *msg) 
{	char err_msg[128]; 
	long buf_len, msg_len; 

	EXEC SQL WHENEVER SQLERROR CONTINUE; 

	printf("%s\n", msg); 
	buf_len = sizeof (err_msg); 
	sqlglm(err_msg, &buf_len, &msg_len); 

	if (msg_len > buf_len)
	msg_len = buf_len;

	printf("%.*s\n", msg_len, err_msg);
	deconnexion(0);
	exit(1);
}
\end{verbatim}


\section*{MEMO}
\subsection*{Langage PL/SQL}

\begin{verbatim}
DECLARE
    variable_PL/SQL   {type SQL  |  nom_table.nom_colonne%TYPE  |  nom_table%ROWTYPE} ;
    CURSOR curseur IS SELECT … ;
    nom_exception EXCEPTION;
BEGIN
    OPEN curseur ;
    FETCH curseur INTO  liste de variables ;
    curseur%FOUND
    CLOSE curseur ;
    RAISE nom_exception ;
    SELECT   liste_de_sélection  INTO liste de variables  FROM … WHERE … ORDER BY ... ;
    Variable PL/SQL  :=   ‘&variable_ SQLPlus’  …
    IF  … THEN …  [ELSE …]  END IF ;
    WHILE  …   LOOP  …   END LOOP ;
EXCEPTION
    WHEN nom_exception THEN …;
    WHEN NO_DATA_FOUND THEN … ;
    WHEN OTHERS THEN  … :
END ;
\end{verbatim}

\subsection*{Langage PRO*C}
\begin{verbatim}
struct {long sqlcode;/* code resultant de l'exécution
                         =0 -> ok,
                         >0 -> ok avec un code d'état,
                         <0 -> erreur */
        struct {
                unsigned short sqlerrml;/*longueur du message*/
                char sqlerrmc[70];/*message d'erreur*/
        } sqlerrm;
        long sqlerrd[6];/* seul sqlerrd[2] est utilisé -> donne le nombre de lignes modifiées
                           UPDATE ou rajoutées par INSERT ou ramenées par un SELECT*/
        char sqlwarn[8];/*sqlwarn[0] 'W’ -> warning*/
        sqlwarn[0] = '' /*-> pas de warning*/
        sqlwarn[1] = 'W'/*-> troncation numérique ou char*/
        sqlwarn[2] = 'W'/*-> valeur Null est ignore */
        sqlwarn[3] = 'W'/*-> plus de champs dans SELECT que de variables pour recevoir*/
        sqlwarn[4] = 'W'/*-> toutes les lignes d'une table sont touchées (par DELETE ou 
                             UPDATE par exemple)*/
        sqlwarn[5]      /* inutilisé */
        sqlwarn[6] = 'W'/*-> Oracle a dû exécuter un rollback */
        sqlwarn[7] = 'W'/*-> la donnée ramenée par un FETCH a été modifié 
        depuis que la clause SELECT a été executé */
} sqlca;
:var_hote INDICATOR :indicateur
:var_hote :indicateur
\end{verbatim}

%\includepdf[pages=-]{MEMO.pdf}

\end{document}
