Now I get :-

Dynamic SQL Error
SQL error code = -104
Unexpected end of command
When running the following script:-

COMMIT WORK;
SET AUTODDL OFF;
SET TERM ^ ;

CREATE PROCEDURE INSERT_BEN AS BEGIN EXIT; END ^

SET TERM ; ^
ALTER PROCEDURE INSERT_BEN ( BENEF_ID VARCHAR(15)
,BEN_INITIALS VARCHAR(5)
,BEN_FIRSTNAME VARCHAR(30)
,BEN_SURNAME VARCHAR(30)
,BEN_TITLEID SMALLINT)

RETURNS (BEN_ID INTEGER)
AS
Declare Variable bencount integer;
BEGIN
IF (BENEF_ID <> '') THEN
BEGIN

SELECT count(BENID)
FROM BENEFICIARY
WHERE (ID = :BENEF_ID)
into :bencount;

IF ( BenCount >= 1 ) THEN
BEN_ID = GEN_ID( BENID_GEN, 1 )

INSERT INTO BENEFICIARY ( BENID
, ID
, INITIALS
, SURNAME
, FIRSTNAME
, TITLEID)

VALUES ( :BEN_ID
, :BENEF_ID
, :BEN_INITIALS
, :BEN_SURNAME
, :BEN_FIRSTNAME
, :BEN_TITLEID);



END
END
^
SET AUTODDL ON;
SET TERM ; ^
COMMIT WORK;

-----Original Message-----
From: Burak OZLER [mailto:burak.ozler@...]
Sent: Wednesday, January 16, 2002 5:22 AM
To: IBObjects@yahoogroups.com
Subject: Re: [IBO] SP????

> Hi,
>
> I get the following error Token unknown line 14 column 29. I am missing
> something simple, which I just can't seem to find.
>
> COMMIT WORK;
> SET AUTODDL OFF;
> SET TERM ^ ;
>
> CREATE PROCEDURE INSERT_BEN AS BEGIN EXIT; END ^
>
> ALTER PROCEDURE INSERT_BEN ( BENEF_ID VARCHAR(15)
> ,BEN_INITIALS VARCHAR(5)
> ,BEN_FIRSTNAME VARCHAR(30)
> ,BEN_SURNAME VARCHAR(30)
> ,BEN_TITLEID SMALLINT)
>
> RETURNS (BEN_ID INTEGER)
> AS
> BEGIN
> IF (BENEF_ID <> '') THEN
> BEGIN
>
> SELECT count(BENID) as Ben_Count
> FROM BENEFICIARY
> WHERE (ID = :BENEF_ID);

Burak: INTO :XXXX

>
>

Burak: IF (XXXX >= 1 ) THEN

> BEN_ID = GEN_ID( BENID_GEN, 1 )
>
> INSERT INTO BENEFICIARY ( BENID
> , ID
> , INITIALS
> , SURNAME
> , FIRSTNAME
> , TITLEID)
>
> VALUES ( :BEN_ID
> , :BENEF_ID
> , :BEN_INITIALS
> , :BEN_SURNAME
> , :BEN_FIRSTNAME
> , :BEN_TITLEID);
>
>
>
> END
> END
> ^
> SET AUTODDL ON;
> SET TERM ; ^
> COMMIT WORK;
>
> Thanks,
> Dion.
>
>
>
>

___________________________________________________________________________

> IB Objects - direct, complete, custom connectivity to Firebird or

InterBase

> without the need for BDE, ODBC or any other layer.
>

___________________________________________________________________________

> http://www.ibobjects.com - your IBO community resource for Tech Info

papers,

> keyword-searchable FAQ, community code contributions and more !
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>

___________________________________________________________________________
IB Objects - direct, complete, custom connectivity to Firebird or InterBase
without the need for BDE, ODBC or any other layer.
___________________________________________________________________________
http://www.ibobjects.com - your IBO community resource for Tech Info papers,
keyword-searchable FAQ, community code contributions and more !

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/