Subject | Re: [IBO] SP???? |
---|---|
Author | Alexander Khvastunov |
Post date | 2002-01-16T13:21:49Z |
Hi, Dion!
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
Best regards,
Alexander Khvastunov
IBExpert - The Most Expert for InterBase and FireBird
http://www.ibexpert.com
> I get the following error Token unknown line 14 column 29. I am missingYour procedure should be:
> something simple, which I just can't seem to find.
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
Best regards,
Alexander Khvastunov
IBExpert - The Most Expert for InterBase and FireBird
http://www.ibexpert.com