Xref: alice comp.databases.oracle.tools:14170
Path: alice!news-feed.fnsi.net!news.maxwell.syr.edu!news.mel.connect.com.au!munnari.OZ.AU!bunyip.cc.uq.edu.au!newshost.gu.edu.au!PC054593
From: c.eastwood@gu.edu.au (Chris Eastwood)
Newsgroups: comp.databases.oracle.tools
Subject: Re: Forms 3.0, Rpt and Year 2000
Date: Tue, 07 Jul 1998 02:50:26 GMT
Organization: Griffith University
Lines: 58
Message-ID: <6ns2f5$2nn$1@kraken.itc.gu.edu.au>
References: <359CAB31.A3BD1772@deagostini.it> <6nl9rr$sed$1@nnrp1.dejanews.com> <359fa574.27737600@news.xs4all.nl> <6npruv$j83$1@kraken.itc.gu.edu.au> <35A1010A.6BF2BFAB@xs4all.nl>
X-Newsreader: News Xpress 2.01

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@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 ...