CREATE OR REPLACE package Common as

  LineNumber number default 6;

end Common;

CREATE OR REPLACE package body Test as

  procedure Test1 is

    begin
      common.LineNumber := common.LineNumber + 1;
    end;

  end Test1;


  procedure Test2 is

    begin
      common.LineNumber := common.LineNumber * 3;
      .
      .
      .
      common.LineNumber := common.LineNumber + 1;
    end;

  end Test2;


end Test;