Re: procedure won't accept IF

From: Frank Piron <empty_at_zero.nil>
Date: Wed, 20 Oct 2004 11:42:34 +0200
Message-ID: <opsf5w88qrm0et4w@news.online.de>

Hi Michelle,

look below for your error

20 Oct 2004 00:58:49 -0700 Michelle <michellesihdu_at_hotmail.com> wrote:

> Thanks for a reply.
> I have accually tried you suggestion as well. When I do that I get
> another error, which is even more understandable.
>
>
> SQL> create or replace package login_info as
> 2 procedure loginform;
> 3 procedure loginform(user IN varchar2, fr_date IN varchar2);
> 4 end login_info;
> 5 /
>
> Paket är skapat.
>
> SQL>
> SQL> create or replace package body login_info as
> 2 procedure loginform is
> 3 begin
> 4 htp.p('<html><head><title>Kontroll när användarna varit
> 5 inloggningsstatus</title></head><body>');
> 6 htp.p('<h2>Kontroll när användarna varit inloggade</h2>');
> 7 htp.p('<form method="GET" action=login_info.loginform>');
> 8 htp.p('<p>Fyll i Användarnamn');
> 9 htp.p('<p>');
> 10 htp.p('<input type="text" maxlength="30" name="user">');
> 11 htp.p('<p>fr.o.m datum');
> 12 htp.p('<p>');
> 13 htp.p('<input type="text" maxlength="30" name="fr_date">');
> 14 htp.p('<p>');
> 15 htp.p('<input type="submit" value="Skicka">');
> 16 htp.p('</form>');
> 17 htp.p('</body></html>');
> 18 end loginform;
> 19
> 20 procedure loginform (user IN varchar2, fr_date IN varchar2) is
> 21 namn varchar2(10);
> 22 indate varchar2(10);
> 23 startdate varchar2(10);
> 24 outdate date;
> 25 ddat varchar(10);
> 26
> 27 CURSOR c2 is
> 28 select anv, login_tid, logout_tid into namn, indate, outdate
> 29 from anv_log where login_tid >= trunc(to_date(startdate,
> 30 'YYYY-MM-DD')) and anv=user;
> 31 begin
> 32 ddat := fr_date;
> 33 startdate := to_date(fr_date, 'YYYY-MM-DD');
> 34 if ddat is NULL then
> 35 htp.p('tjo');
> 36 endif;

           ^ should be "end if;"


>  37     htp.p('<pre>');

>  38     htp.p(startdate);

>  39     FOR i IN c2 LOOP

>  40     htp.p('user: ' || i.anv ||'  '|| i.login_tid);

>  41     END LOOP;

>  42     htp.p('</pre>');

> 43
> 44 end loginform;

^ causes an error here because "end if" expected
> 45 end login_info;
> 46 /

regards,
Frank Piron Received on Wed Oct 20 2004 - 04:42:34 CDT