purge de la table tab1 de baisse ;
créer la table tab1 (char col1 (1)) ;
insérer dans les valeurs tab1 (« a ") ;
insérer dans les valeurs tab1 (« a ") ;
insérer dans les valeurs tab1 (« a ") ;
commettre ;
créer ou remplacer le myProc de procédé (inChar dans le char, d'outCur le sys_refcursor dehors)
est
char tmpChar (1) ;
commencer
--vérifier les données avant le reste du code
commencer
choisir « x » dans tmpChar à partir de tab1 où col1=inChar et rownum=1 ;
exception
quand NO_DATA_FOUND alors
raise_application_error (- 20002, « aucunes données ont trouvé. Ne peut pas continue.") ;
extrémité ;
ouvrir l'outCur pour col1 choisi de tab1 où col1=inChar ;
extrémité ;
/
montrer les erreurs
--examiner en employant des variables de SQL*Plus
refcursor de myCur de variété
myProc d'exec (« a » : myCur) ;
myCur d'impression
myProc d'exec (« b » : myCur) ;
|