CREATE PROCEDURE teststudent_AddStudent (p_firstname varchar(100), p_lastname varchar(100), p_enrollmentdate date, p_remark varchar(100))
define newid integer;BEGIN WORK;
BEGIN
ON EXCEPTION
ROLLBACK WORK;
END EXCEPTION;
INSERT INTO teststudent
(firstname, lastname, enrollmentdate)
VALUES
(p_firstname, p_lastname, p_enrollmentdate);
-- <inserted(id)>
let newid=dbinfo('sqlca.sqlerrd1');INSERT INTO teststudentdetail
(teststudentid, remark)
VALUES
(
newid, p_remark);
COMMIT WORK;
END;
END PROCEDURE
------------------------------
Mike Walker
xDB Systems, Inc
www.xdbsystems.com------------------------------