returns (i int)
AS
begin
   i = 5;
   suspend;
end^
 
CREATE OR ALTER PACKAGE PKG2
AS
begin
   procedure proc1
   returns (i int);
end^
 
RECREATE PACKAGE BODY PKG2
AS
begin
   procedure proc1
   returns (i int)
   as
   begin
     i = 3;
     suspend;
     i = 4;
     suspend;
   end
end^
 
CREATE OR ALTER PACKAGE PKG1
AS
begin
   procedure proc1
   returns (i int);
 
   procedure proc2
   returns (name varchar(31), i int);
end^
 
RECREATE PACKAGE BODY PKG1
AS
begin
 
   procedure proc1
   returns (i int)
   as
   begin
     i = 1;
     suspend;
     i = 2;
     suspend;
   end
 
   procedure proc2
   returns (name varchar(31), i int)
   as
   begin
     /* pkg1.proc1 */
     name = 'pkg1.proc1';
     for select i
         from proc1
         into :i
     do
       suspend;
 
     /* pkg2.proc1 */
     name = 'pkg2.proc1';
     for select i
         from pkg2.proc1
         into :i
     do
       suspend;
 
     /* Global proc1 How? */
   end
end^

 $a=123;     // переменная глобальная и calc() ее "не видит"

 function calc($b)
 {
     global $a;             //<--- собственно что-то среднее между тем, что говорил Денис
                               // USE xxx 
                               // и тем, о чем говорил я:  global.XXXX
     return ($a*$b);
 } 

 $a=123;     // переменная глобальная и calc() ее "не видит"

 function calc($b)
 {
     global $a;             //<--- собственно что-то среднее между тем, что говорил Денис
     $a = 8;                // <-- Ась? Свою переменную (не глобальную) не заведёшь

     return ($a*$b);
 }