Create or replace procedure populate_year
 (My_year in varchar)
 IS
 First_day_d date;
 Last_day_d date;
 Begin
 First_day_d := trunc (TO_DATE (my_year, 'YYYY'),'YEAR');
 Last_day_d := last_day(Add_months(First_day_d,11));
 dbms_output.put_line (' first day '|| First_day_d );
 dbms_output.put_line (' Last day '|| Last_day_d );
END;

SQL> SELECT DECODE(TO_CHAR(TO_DATE('1-1-1977', 'dd-mm-yyyy')
  2                      , 'dy'
  3                      , 'NLS_DATE_LANGUAGE=ENGLISH'
  4                       )
  5              , 'sat', 'Saturday'
  6              , 'No Saturday'
  7               )
  8  FROM   DUAL
  9  /

DECODE(T
--------
Saturday

SQL> SELECT DECODE(TO_CHAR(TO_DATE('1-1-1978', 'dd-mm-yyyy')
  2                      , 'dy'
  3                      , 'NLS_DATE_LANGUAGE=ENGLISH'
  4                       )
  5              , 'sat', 'Saturday'
  6              , 'No Saturday'
  7               )
  8  FROM   DUAL
  9  /

DECODE(TO_C
-----------
No Saturday

SQL> SELECT DECODE(TO_CHAR(TO_DATE('1-1-2008', 'dd-mm-yyyy')
  2                      , 'dy'
  3                      , 'NLS_DATE_LANGUAGE=ENGLISH'
  4                       )
  5              , 'sat', 'Saturday'
  6              , 'No Saturday'
  7               )
  8  FROM   DUAL
  9  /

DECODE(TO_C
-----------
No Saturday

If (vfirst-day='sat') then
  Statements....
else
  mynext_Saturday:=next_day(first_day,'sat');
  statement.....
end if;

SQL> CREATE OR REPLACE PROCEDURE process_year( pin_year IN NUMBER )
  2  IS
  3    v_firstday VARCHAR2(5);
  4    v_next_sat DATE;
  5  BEGIN
  6    v_firstday := TO_CHAR( TRUNC(TO_DATE(pin_year,'YYYY'),'YEAR')
  7                         , 'dy','NLS_DATE_LANGUAGE=ENGLISH'
  8                         );
  9    IF v_firstday = 'sat' THEN
 10      dbms_output.put_line('first day was Saturday...');
 11    ELSE
 12      dbms_output.put_line('January first is not a Saturday');
 13      v_next_sat := NEXT_DAY(TRUNC(TO_DATE(pin_year,'YYYY'),'YEAR'),'SAT');
 14      dbms_output.put_line( 'The first Saturday is: '
 15                           ||to_char(v_next_sat,'DD/MM/YYYY')
 16                          );
 17    END IF;
 18  END;
 19  /

Procedure created.

SQL> sho err
No errors.
SQL>
SQL> EXEC process_year(1977);
first day was Saturday...

PL/SQL procedure successfully completed.

SQL>
SQL> EXEC process_year(1988);
January first is not a Saturday
The first Saturday is: 02/01/1988

PL/SQL procedure successfully completed.

SQL>
SQL> DROP PROCEDURE process_year
  2  /

Procedure dropped.