Re: Forms 3.0, Rpt and Year 2000

From: Chris Eastwood <c.eastwood_at_gu.edu.au>
Date: Tue, 07 Jul 1998 02:50:26 GMT
Message-ID: <6ns2f5$2nn$1_at_kraken.itc.gu.edu.au>

HiYa

At 06:53 PM 06/07/98 +0200, you wrote:
>> We have a proceduure that treats dates of birth seperately.

>Could you please post this procedure. I am very much interested

This is placed in a form that is then REFERENCED by other forms, its not too far a strech of the imagination to bash this into straight PL/SQL

      NAME = PR_SF00_APPEND_CENTURY_19
      DEFINITION = <<<
      procedure PR_SF00_APPEND_CENTURY_19 (inp_date in out DATE) is
      cent CHAR(2);
      day_mon CHAR(7);
      yr CHAR(2);
      begin
        /* if the date is null get out */
        if ( inp_date is NULL ) then
          return;
        end if;
        /* Get the century of the input date - To check if it is already */
        /* set ie. Not 00                                                */
        cent := substr ( to_char (inp_date, 'YYYY'), 1, 2 );
        if cent = '00' then
          /* No century entered */
          day_mon := to_char ( inp_date, 'DD-MON-' );
          yr :=  to_char ( inp_date, 'YY' );
          cent := '19';
          inp_date := to_date( day_mon || cent || yr, 'DD-MON-YYYY');
        end if;
      end;
      >>>

See Ya
(when bandwidth gets better ;-)

Chris Eastwood

Photographer, Programmer               email    ua.ude.ug.cti_at_doowtsae.c
Motorcyclist and dingbat               WWW   http://chrise.itc.gu.edu.au

************************************************************************

Ohhh ... you work all day, slave over a hot stove all night  yet you *still* have time for sadomasochism ... how do you do it?

A little man hurts me.

<ding>

    Oh Mister Mean ... Oh Mister Mean
    15 Minutes with him and you'll be blue and green     Studded belts and leather whips
    Bondage trousers on his hips
    Wack and punish as you dust with Mister Mean   Ohhhh he whips me around the house in minutes ... lets get cracking ... Received on Tue Jul 07 1998 - 04:50:26 CEST