Re: Pragma definition for PL/SQL Packages

From: Andrew Barnett <nobody_at_spamandeggs.bp.com>
Date: 1998/03/18
Message-ID: <01bd5218$60ca3800$8c0564a1@azmelw1358.mel.az.bp.com>#1/1

Gerard M. Averill <gaverill_at_chsra.wisc.edu> wrote in article > In article <350D9861.426DA5A5_at_snet.net>, Mark Rothstein <xxxmarkr_at_snet.net> wrote: snip
> Just wondering if anyone has _actually_ succeeded in doing this.
>
> Gerard

on 7.3.3.3.0 on solaris:

SQL> create or replace
  2 package pkg1
  3 is

  4     function f1 (p1 in integer) return integer;
  5     pragma restrict_references(f1, wnds, wnps);
  6     --
  7     function f1 (p1 in varchar2) return integer;
  8     pragma restrict_references(f1, wnds, wnps);

  9 end pkg1;
 10 /

Package created.

SQL> create or replace
  2 package body pkg1
  3 is

  4     function f1 (p1 in integer) return integer
  5     is
  6     begin
  7        return 1;
  8     end f1;
  9     --
 10     function f1 (p1 in varchar2) return integer
 11     is
 12     begin
 13        return 2;
 14     end f1;

 15 end pkg1;
 16 /

Package body created.

SQL> select pkg1.f1(0) from dual;

     PKG1.F1(0)

---

              1

1 row selected.

SQL> select pkg1.f1('A') from dual;

   PKG1.F1('A')

---

              2

1 row selected.

SQL>

-- 
Andrew - Wizzard

barnetaj_at_bp.com

Received on Wed Mar 18 1998 - 00:00:00 CST