ZogBit

Retrieve an old SQL Plan

admin — Fri, 06 Aug 2010 13:44:27 +0000

This script will use a sql_id to retrieve the execution plan for the query.

with aa as (
            SELECT DISTINCT ss.sql_id, ss.plan_hash_value
            FROM   DBA_HIST_SQLSTAT SS
            WHERE SS.SQL_ID = ‘&sql_id’
)
SELECT b.*
from aa, table(dbms_xplan.display_awr(aa.sql_id,aa.plan_hash_value)) b
/

How much memory are people using

admin — Fri, 06 Aug 2010 11:54:54 +0000

The sql below can be run to show who is using memory and how much memory. select S.sid, S.USERNAME, PM.category, PM.ALLOCATED, ROUND(PM.USED/(1024*1024),0) as USED_MB, PM.MAX_ALLOCATED, SQL_TEXT from v$process_memory pm inner join v$process p on p.pid = pm.pid inner join v$session s on s.paddr = p.addr inner join v$sql sq on sq.sql_id read more »

Who’s running in parallel?

admin — Fri, 06 Aug 2010 11:53:02 +0000

The below script will query the database for the users running parallel queries.

SELECT case when px.qcinst_id is NUll then username
             ELSE ‘ – ‘|| LOWER(SUBSTR(s.program,LENGTH(s.program)- 4, 4))
             end as “User name”
        , case when px.qcinst_id is NULL then ‘QC’ else ‘(Slave)’ end as “QC/Slave”
        ,TO_CHAR(px.server_set) “Slave Set”
        ,TO_CHAR(s.SID) “SID”
        ,case when px.qcinst_id is NULL then TO_CHAR(s.SID) else to_char(px.qcsid) end as “QC SID”
        ,px.req_degree “Requested DOP”
        ,px.DEGREE “Actual DOP”
        ,s.osuser “User_id”
        ,s.status
        ,s.schemaname “Schema”
    FROM v$px_session px
    JOIN v$session s on px.SID = s.SID
                    AND px.serial# = s.serial#
ORDER BY 5 ,1 DESC

Manage your tablespace

admin — Fri, 06 Aug 2010 11:50:07 +0000

The following script will calculate the space taken by tables and build the drop and truncate statements to allow you to simply whip through and clear your tablespace.

SELECT   segment_name AS table_name,
         SUM (BYTES) / (1024 * 1024) AS MB,
         ‘drop table ‘ || TABLE_NAME || ‘ purge;’ AS DROP_STATEMENT,
         ‘truncate table ‘ || TABLE_NAME || ‘;’ AS TRUNCATE_STATEMENT
    FROM user_segments s,
         user_tables t
   WHERE S.SEGMENT_NAME = T.TABLE_NAME
GROUP BY segment_name, ‘drop table ‘ || TABLE_NAME || ‘ purge;’, ‘truncate table ‘ || TABLE_NAME || ‘;’
ORDER BY SUM (BYTES) DESC
/

Find locked objects

admin — Fri, 06 Aug 2010 11:48:26 +0000

select
   c.owner,
   c.object_name,
   c.object_type,
   b.sid,
   b.serial#,
   b.status,
   b.osuser,
   b.machine
from
   v$locked_object a ,
   v$session b,
   dba_objects c
where
   b.sid = a.session_id
and
   a.object_id = c.object_id
order by OWNER, OBJECT_NAME
/

What is killing the database? (based on optimizer cost)

admin — Fri, 06 Aug 2010 11:47:42 +0000

SELECT SYSTIMESTAMP AS s.SNAPSHOT_TIME,
       S.PARSING_SCHEMA_NAME,
       S.OPTIMIZER_COST,
       S.MODULE,
       S.LAST_LOAD_TIME,
       S.LAST_ACTIVE_TIME,
       S.SQL_TEXT,
       s.SQL_ID,
       S.SQL_FULLTEXT
from sys.v_$sql s
where module is not null
and users_executing != 0
and optimizer_cost >= 5000000
order by OPTIMIZER_COST desc;
/

Kill an Oracle Session

admin — Fri, 06 Aug 2010 11:46:18 +0000

DECLARE
BEGIN

– Now call the stored program
oracle.kill_session(&sid,&serial);

EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line(SubStr(‘Error ‘||TO_CHAR(SQLCODE)||’: ‘||SQLERRM, 1, 255));
RAISE;
END;

What’s Cached in the Database

admin — Fri, 06 Aug 2010 11:44:42 +0000

SELECT *
FROM v$db_object_cache
WHERE type in (‘TRIGGER’,'PROCEDURE’,'PACKAGE BODY’,'PACKAGE’)
and EXECUTIONS > 0
and owner like UPPER(‘&DB_OWNER’)
ORDER BY owner, executions desc, loads desc, sharable_mem desc;

Compile Invalid Objects

admin — Fri, 06 Aug 2010 11:36:43 +0000

with invalids as
(
SELECT distinct
   ‘ALTER ‘ || case object_type when ‘PACKAGE BODY’ then ‘PACKAGE’ else object_type end || ‘ ‘ ||
   OWNER || ‘.’ || OBJECT_NAME || ‘ COMPILE;’ as compile_sql,
   case object_type
            when ‘VIEW’ then 1
            when ‘FUNCTION’ then 2
            when ‘PROCEDURE’ then 3
            when ‘PACKAGE’ then 4
            else 5 END as display_order
from
   dba_objects
where
   status = ‘INVALID’
and
   object_type in (‘PACKAGE’,'PACKAGE BODY’,'FUNCTION’,'PROCEDURE’,'VIEW’)
)
select compile_sql
from invalids
order by display_order
/

Bank Holidays – Algorithm versus Table

admin — Fri, 30 Jul 2010 11:51:18 +0000

Bank Holidays in a Table?

My client maintains a table in their database with every day of the year and a flag to say if the day is a working day, a bank holiday or a weekend (Saturday/Sunday). Every now and again somebody takes the responsibility to flag the bank holidays in the future.

The primary purpose of the table is for setting appointments for agents or giving a date of completion based on x number of working days in the future, so generally the data is only required for a reasonably limited period of time around the current date.

A few issues spring to mind:

1) Somebody or something needs to maintain this table

2) Holding data for something that could be done via an algorithm

3) Database reads whenever making a working day calculation

Point (3) can be dealt with by caching etc. in a Transaction type system, however batch processes have the potential to cause problems, in fact, my client was suffering from a batch job running of 8+ hours.

Bank Holidays in an Algorithm

The solution provided to the client was to implement the Bank Holiday package attached to this post, enabling Bank Holiday and Next Working Day calculations without the need to perform data reads. The 8 hour batch job was reduced to seconds.

Examples for use:

1) Check if a date is a working day:

CREATE OR REPLACE FUNCTION IsWorkingDay

(FromDate IN DATE, NoofDays IN NUMBER DEFAULT 0)

RETURN VARCHAR2

BEGIN

CASE

WHEN trim(to_char(fromdate + noofdays, ‘DAY’)) IN (‘SATURDAY’,'SUNDAY’)

THEN RETURN ‘FALSE’;

WHEN pkg_bank_holidays.fn_is_bank_holiday(fromdate + noofdays)

THEN RETURN ‘FALSE’;

ELSE

RETURN ‘TRUE’;

END CASE;

EXCEPTION

WHEN OTHERS THEN

RETURN ‘FALSE’;

END;

SQL> SELECT isWorkingDay(TO_DATE(’10-Aug-2010′,’dd-mon-yyyy’), 0) “Working Day?”

2 FROM DUAL

3 /

Working Day?

———————–

TRUE

2) Get the next or previous working day after a number of days in the future

CREATE OR REPLACE FUNCTION NextWorkingDay

( FromDate IN DATE DEFAULT SYSDATE, NoOfDays IN NUMBER DEFAULT 0 )

RETURN DATE AS

v_ReturnDate DATE ;

BEGIN

v_ReturnDate := FromDate + NoOfDays;

WHILE (IsWorkingDay(v_ReturnDate,0) = ‘FALSE’) LOOP

v_ReturnDate := v_ReturnDate + sign(NoOfDays);

END LOOP;

RETURN v_ReturnDate;

EXCEPTION

WHEN OTHERS THEN

RETURN null;

END NextWorkingDay;

SQL> SELECT NextWorkingDay(TO_DATE(’10-Aug-2010′,’dd-mon-yyyy’),5) “Next Work Day”

2 FROM DUAL

3 /

Next Work

———

16-AUG-10

CREATE OR REPLACE PACKAGE pkg_bank_holidays AS
–********************************************************************************
–*                                                                              *
–* Title       : BANK HOLIDAYS                                                  *
–*                                                                              *
–* Category    : Utility Functions                                              *
–*                                                                              *
–* Type        : Package Spec                                                   *
–* Description : Given a year, each function will return the date for a         *
–*               particular bank holiday for that year.                         *
–*               The function fn_is_bank_holiday will receive a date and return *
–*               TRUE if that date is a bank holiday.                           *
–*               The year in each case must be a four digit number.             *
–*                                                                              *
–********************************************************************************
–*                                                                              *
–* (c) Copyright Zog-Bit 2009                                                   *
–* http://www.zogbit.com                                                        *
–*                                                                              *
–********************************************************************************
–*                                                                              *
–*               THE DATES FOR EASTER ARE ACCURATE UNTIL THE YEAR 4099          *
–*                                                                              *
–********************************************************************************
–*                      M O D I F I C A T I O N L O G                          *
–********************************************************************************
–*                                                                              *
–* Date        Author              Version Description                         *
–* ———– —————–   ——- ————————————*
–* 28/10/2009 Zog Gibbens          1.0      Initial Version                    *
–* 07/01/2009 Zog Gibbens          1.1      Added the function                 *
–*                                           fn_queen_diamond_jubilee_day for   *
–*                                           Queen’s Diamond Jubilee in 2012.   *
–********************************************************************************

— Receives the year as a parameter and returns the date for
— the New Year Bank Holiday
function fn_new_year_day(p_year number) return date;

— Receives the year as a parameter and returns the date for
— the Good Friday Bank Holiday
function fn_good_friday(p_year number) return date;

— Receives the year as a parameter and returns the date for
— the Easter Day (Sunday, not a bank holiday!)
function fn_easter_day(p_year number) return date;

— Receives the year as a parameter and returns the date for
— the Easter Monday Bank Holiday
function fn_easter_monday(p_year number) return date;

— Receives the year as a parameter and returns the date for
— the May Day Bank Holiday
function fn_may_day(p_year number) return date;

— Receives the year as a parameter and returns the date for
— the May Whitsun Bank Holiday (last Monday in May)
function fn_may_whitsun(p_year number) return date;

— Returns the date of the Queen’s Diamond Jubilee bank holiday
function fn_queen_diamond_jubilee_day return date;

— Receives the year as a parameter and returns the date for
— the August Bank Holiday for Scotland
function fn_august_holiday_scotland(p_year number) return date;

— Receives the year as a parameter and returns the date for
— the August Bank Holiday
function fn_august_holiday(p_year number) return date;

— Receives the year as a parameter and returns the date for
— the Christmas Bank Holiday (not always 25/12)
function fn_christmas_day(p_year number) return date;

— Receives the year as a parameter and returns the date for
— the Boxing Day Bank Holiday (not always 26/12)
function fn_boxing_day(p_year number) return date;

— Receives a date and returns
– TRUE – if the date is a bank holiday
– FALSE – if the day is not a bank holiday
function fn_is_bank_holiday(p_date date) return boolean;

end pkg_bank_holidays;
/
CREATE OR REPLACE PACKAGE BODY pkg_bank_holidays as
–********************************************************************************
–*                                                                              *
–* Title       : BANK HOLIDAYS                                                  *
–*                                                                              *
–* Category    : Utility Functions                                              *
–*                                                                              *
–* Type        : Package Body                                                   *
–* Description : Given a year, each function will return the date for a         *
–*               particular bank holiday for that year.                         *
–*               The function fn_is_bank_holiday will receive a date and return *
–*               TRUE if that date is a bank holiday.                           *
–*               The year in each case must be a four digit number.             *
–*                                                                              *
–********************************************************************************
–*                                                                              *
–* (c) Copyright Zog-Bit 2009                                                   *
–* http://www.zogbit.com                                                        *
–*                                                                              *
–********************************************************************************
–*                                                                              *
–*               THE DATES FOR EASTER ARE ACCURATE UNTIL THE YEAR 4099          *
–*                                                                              *
–********************************************************************************
–*                      M O D I F I C A T I O N L O G                          *
–********************************************************************************
–*                                                                              *
–* Date        Author              Version Description                         *
–* ———– —————–   ——- ————————————*
–* 28/10/2009 Zog Gibbens          1.0      Initial Version                    *
–* 07/01/2009 Zog Gibbens          1.1      Changes to the Whistun holidays due*
–*                                           to the Queen’s Diamond celebrations*
–*                                           Whitsun bank holiday as the date   *
–*                                           has been moved to June 4th for 2012*
–*                                           instead of the last day in May.    *
–*                                           Additional bank holiday on June 5th*
–*                                           officially for the Diamond Jubilee.*
–********************************************************************************
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
— fn_easter_day
–    Based on the code written by Ronald Mallen, April 2002
–                                 http://www.assa.org.au/edm.html#Computer
–    Converted to PL/SQL from VB by Zog Gibbens
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
function fn_easter_day(p_year number) return date
is
       firstdig integer;
       remain19 integer;
       temp integer;
       v_easter_day date;

       tA integer;
       tB integer;
       tC integer;
       tD integer;
       tE integer;
       d   integer;
       m   integer;
       y   integer;
    begin
       y := p_year;
       firstdig := floor(y / 100);
       remain19 := mod(y, 19);

       — calculate PFM date
       temp := (floor(((FirstDig – 15) / 2)) + 202) – (11 * Remain19);

       case
            when firstdig in (21, 24, 25, 27, 28, 29, 30, 31, 32, 34, 35, 38)
                 then temp := temp – 1;
            when firstdig in (33, 36, 37, 39, 40)
                 then temp := temp – 2;
            else null;
       end case;

       temp := mod(temp,30);
       tA := temp + 21;

       If temp = 29 Then tA := tA – 1; end if;
       If (temp = 28 And Remain19 > 10) Then tA := tA – 1; end if;

       — find the next Sunday
       tB := mod((tA – 19), 7);
       tC := mod((40 – FirstDig), 4);

       If tC = 3 Then tC := tC + 1; end if;
       If tC > 1 Then tC := tC + 1; end if;

       temp := mod(y, 100);
       tD := mod((temp + (floor(temp / 4))), 7);
       tE := (mod((20 – tB – tC – tD), 7)) + 1;
       d := tA + tE;

       — return the date
       If d > 31 Then
          d := d – 31;
          m := 4;
       Else
          m := 3;
       End If;

v_easter_day := to_date( lpad(d,2,’0′) || lpad(m,2,’0′) || p_year, ‘DDMMYYYY’);

return v_easter_day;

end fn_easter_day;
–
–
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
— fn_new_year_day
–    Written by Zog Gibbens
–    Simply based on 01/01/YYYY, checks if this is a Saturday or Sunday and
–    adds the number of days to 01/01/YYYY as necessary
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
function fn_new_year_day(p_year number) return date
is
     v_date date;
begin

     v_date := to_date(’0101′ || to_char(p_year), ‘DDMMYYYY’);

     case trim(to_char(v_date, ‘DAY’))
          when ‘SATURDAY’ THEN v_date := v_date + 2;
          WHEN ‘SUNDAY’   THEN v_date := v_date + 1;
          ELSE null;
     END CASE;

     RETURN v_date;

end fn_new_year_day;
–
–
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
— fn_good_friday
–    Written by Zog Gibbens
–    Uses the fn_easter_day to get the date for Easter Day, then substracts 2
–    days from this date.
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
function fn_good_friday(p_year number) return date
IS
BEGIN

return fn_easter_day(p_year) – 2;

END fn_good_friday;
–
–
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
— fn_easter_monday
–    Written by Zog Gibbens
–    Uses the fn_easter_day to get the date for Easter Day, then adds 1 day
–    to this date.
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
function fn_easter_monday(p_year number) return date
IS
BEGIN

return fn_easter_day(p_year) + 1;

END fn_easter_monday;
–
–
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
— fn_may_day
–    Written by Zog Gibbens
–    Uses the 1st May, then works out the date for the first Monday of the month
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
function fn_may_day(p_year number) return date
is
    v_date date;
begin

v_date := to_date(’0105′ || p_year, ‘DDMMYYYY’);

       Case trim (to_char(v_date, ‘Day’))
            when ‘Monday’ then return v_date;
            when ‘Tuesday’ then return v_date + 6;
            when ‘Wednesday’ then return v_date + 5;
            when ‘Thursday’ then return v_date + 4;
            when ‘Friday’ then return v_date + 3;
            when ‘Saturday’ then return v_date + 2;
            when ‘Sunday’ then return v_date + 1;
            else return null;
      end case;

end fn_may_day;
–
–
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
— fn_whitsun_day
–    Written by Zog Gibbens
–    Gets the last day of May, then works out the date for the previous Monday
–    Modification for 2012 – Whitsun has been moved to the first Monday in June
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
function fn_may_whitsun(p_year number) return date
is
    v_date date;
begin

    if p_year = 2012 then

v_date := to_date(’0106′ || p_year, ‘DDMMYYYY’);

else

v_date := last_day(to_date(’0105′ || p_year, ‘DDMMYYYY’));

       Case trim (to_char(v_date, ‘Day’))
            when ‘Monday’ then return v_date;
            when ‘Tuesday’ then return v_date – 1;
            when ‘Wednesday’ then return v_date – 2;
            when ‘Thursday’ then return v_date – 3;
            when ‘Friday’ then return v_date – 4;
            when ‘Saturday’ then return v_date – 5;
            when ‘Sunday’ then return v_date – 6;
            else return null;
      end case;

end if;

end fn_may_whitsun;
–
–
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
— fn_queen_diamond_jubilee_day
–    Written by Zog Gibbens
–    A new bank holiday for the Queen’s Diamond Jubilee, date is fixed as
–    Tuesday June 5th 2012.
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
function fn_queen_diamond_jubilee_day return date
is
    v_date date := to_date(’05/06/2012′, ‘DD/MM/YYYY’);
begin

     return v_date;

end fn_queen_diamond_jubilee_day;
–
–
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
— fn_august_holiday_scotland
–    Written by Zog Gibbens
–    Gets the first day of August, then works out the date for first Monday
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
function fn_august_holiday_scotland(p_year number) return date
is
    v_date date;
begin

v_date := to_date(’0108′ || p_year, ‘DDMMYYYY’);

end fn_august_holiday_scotland;
–
–
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
— fn_august_holiday
–    Written by Zog Gibbens
–    Gets the last day of August, then works out the date for the previous Monday
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
function fn_august_holiday(p_year number) return date
is
    v_date date;
begin

v_date := last_day(to_date(’0108′ || p_year, ‘DDMMYYYY’));

end fn_august_holiday;
–
–
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
— fn_christmas_day
–    Written by Zog Gibbens
–    Simply based on 25/12/YYYY, checks if this is a Saturday or Sunday and
–    adds the number of days to 25/12/YYYY as necessary
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
function fn_christmas_day(p_year number) return date
is
     v_date date;
begin

     v_date := to_date(’2512′ || to_char(p_year), ‘DDMMYYYY’);

     case trim(to_char(v_date, ‘DAY’))
          when ‘SATURDAY’ THEN v_date := v_date + 2;
          WHEN ‘SUNDAY’   THEN v_date := v_date + 1;
          ELSE null;
     END CASE;

RETURN v_date;

end fn_christmas_day;
–
–
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
— fn_boxing_day
–    Written by Zog Gibbens
–    Simply based on 26/12/YYYY, checks if this is a Saturday or Sunday and
–    adds the number of days to 26/12/YYYY as necessary
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
function fn_boxing_day(p_year number) return date
is
     v_date date;
begin

     v_date := to_date(’2612′ || to_char(p_year), ‘DDMMYYYY’);

     CASE trim(to_char(v_date, ‘DAY’))
          WHEN ‘SATURDAY’ THEN v_date := v_date + 2;
          WHEN ‘SUNDAY’   THEN v_date := v_date + 2;
          WHEN ‘MONDAY’   THEN v_date := v_date + 1;
          ELSE null;
     END CASE;

     RETURN v_date;

end fn_boxing_day;
–
–
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
— fn_is_bank_holiday
–    Written by Zog Gibbens
–    Recieves a date, checks the month to see if it is a month with a potential
–    bank holiday (hard coded), if so, checks the date against the relevant
–    bank holiday function, if a match is found returns true, otherwise returns
–    false.
— – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -
function fn_is_bank_holiday(p_date date) return boolean
is

    v_month number;
    v_bank_holiday date;
    v_year number;

begin

    v_month := to_number(to_char(p_date, ‘MM’));
    v_year := to_number(to_char(p_date, ‘YYYY’));

    case
       when v_month = 1
         then v_bank_holiday := fn_new_year_day(v_year);
              if p_date = v_bank_holiday then
                return true;
              else
                return false;
              end if;
       when v_month = 3
         then v_bank_holiday := fn_good_friday(v_year);
              if p_date = v_bank_holiday then
                return true;
              else
                v_bank_holiday := fn_easter_monday(v_year);
                if p_date = v_bank_holiday then
                  return true;
                else
                  return false;
                end if;
              end if;
       when v_month = 4
         then v_bank_holiday := fn_good_friday(v_year);
              if p_date = v_bank_holiday then
                return true;
              else
                v_bank_holiday := fn_easter_monday(v_year);
                if p_date = v_bank_holiday then
                  return true;
                else
                  return false;
                end if;
              end if;
       when v_month = 5
         then v_bank_holiday := fn_may_day(v_year);
              if p_date = v_bank_holiday then
                return true;
              else
                v_bank_holiday := fn_may_whitsun(v_year);
                if p_date = v_bank_holiday then
                  return true;
                else
                  return false;
                end if;
              end if;
       when v_month = 6 and v_year = 2012
         then v_bank_holiday := fn_may_whitsun(v_year);
              if p_date = v_bank_holiday then
                return true;
              else
                v_bank_holiday := fn_queen_diamond_jubilee_day();
                if p_date = v_bank_holiday then
                  return true;
                else
                  return false;
                end if;
              end if;
       when v_month = 8
         then v_bank_holiday := fn_august_holiday(v_year);
              if p_date = v_bank_holiday then
                return true;
              else
                return false;
              end if;
       when v_month = 12
         then v_bank_holiday := fn_christmas_day(v_year);
              if p_date = v_bank_holiday then
                return true;
              else
                v_bank_holiday := fn_boxing_day(v_year);
                if p_date = v_bank_holiday then
                  return true;
                else
                  return false;
                end if;
              end if;
        else return false;
    end case;

end fn_is_bank_holiday;

end pkg_bank_holidays;
/