laisser tomber la purge de la table tab1 ;
créer la table tab1 (char de fournisseur (1)) ;
insérer dans les valeurs tab1 (« A ") ;
insérer dans les valeurs tab1 (« B ") ;
insérer dans les valeurs tab1 (« D ") ;
commettre ;
créer ou remplacer le myProc de procédé (p_filter dans le char, le p_vendcode dans le char)
est
varchar2 my_var (100) ;
sys_refcursor de myCur ;
char de myResult (1) ;
commencer
My_var : = « fournisseur choisi de tab1 comme où le fournisseur décodent (''' || p_filter || ''', '' A '', '' % '', '' F '', ''' || p_vendcode|| ''') » ;
ouvrir le myCur pour my_var ;
chercher le myCur dans le myResult ;
dbms_output.put_line (« obtenu : » || myResult) ;
myCur étroit ;
extrémité ;
/
myProc d'exec (« A », « B ") ;
myProc d'exec (« F », « D ") ;
|