Subject Re: Stored Procedure
From Jaime Escobal <jaime.escobal@gmail.com>
Date Fri, 13 Jul 2018 13:17:05 -0400
Newsgroups dbase.getting-started

vari
Here you have an example:

(I tested it and it is working Ok)

db = new database()
db.databaseName := "YOURDB"
db.loginString := "SYSDBA/masterkey"
db.active := true

q = new query()
q.database := db
q.sql := "SELECT NCODE, CNAME FROM A_STOREDPROC(0,1)"
q.requestLive := false
q.active := true

do while not q.rowset.endOfSet
   ?  q.rowset.fields["NCODE"].value
   ?? q.rowset.fields["CNAME"].value
   q.rowset.next()
enddo

and your stored procedure should be something like this:


SET TERM ^; /* Ok FB 2.5 */
CREATE OR ALTER PROCEDURE A_STOREDPROC (
   cParam1 CHAR(01),
   nParam2 smallint
)
RETURNS (
   nCODE INTEGER,
   cNAME VARCHAR(75)
)
AS
BEGIN

   FOR
      SELECT CODE,NAME
      FROM A_TABLE
      ORDER BY CODE
      INTO :nCODE, cNAME
   DO
      SUSPEND;

END

Warning: Unknown: write failed: No space left on device (28) in Unknown on line 0

Warning: Unknown: Failed to write session data (files). Please verify that the current setting of session.save_path is correct () in Unknown on line 0