AW: DB2 Function to return more than 01 value ?

Hi,

why don't you insert first your rows and than execute the select statement?
Like in any other UDF you can execute multiple statements.
Cursors can be defined and loops performed.
All executable statements must be embedded into the compound statements
BEGIN and END.

But the RETURN-Statement must contain a Select-Statement to return multiple
values.

Example:
CREATE FUNCTION MySchema/GetAdress
      (ParAdrNo Integer)
       RETURNS TABLE
              (FirstName CHARACTER( 15 ) ,
               Name      CHARACTER( 15 ) ,
               ZipCode   DECIMAL  (9, 0) ,
               City      CHARACTER( 15 ))
       LANGUAGE SQL
       NOT DETERMINISTIC
       CONTAINS SQL DATA
       CALLED ON NULL INPUT
       NO EXTERNAL ACTION
       DISALLOW PARALLEL

    BEGIN
      FOR vl AS c1 CURSOR FOR
          SELECT * FROM MyFile2
            DO ...;
            INSERT INTO MySchema/MyFile ...;
            Other SQL-Statements
      End For;

       RETURN Select  *
                 from MyFile
                Where MyAdrNo = ParAdrNo ;
    END

Birgitta

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von Luqman
Gesendet: Montag, 13. Dezember 2004 09:54
An: rpg400-l@xxxxxxxxxxxx
Betreff: Re: DB2 Function to return more than 01 value ?


Hi,

I need to insert values in this temporary table using While Loop before
returning the values because I have to make various calculations of
Depreciation on Assets, is there any way that I can insert values in this
Stored Procedure Defined Table.

Best Regards,

Luqman



"HauserSSS" <Hauser@xxxxxxxxxxxxxxx> wrote in
message news:HFEAIBMAHGFKNPHBOMFIKEIGCDAA.Hauser@xxxxxxxxxxxxxxxxxx
Hello,

User Defined Table Functions (UDTFs) are available for DB2 UDB for iSeries
from Release V5R2M0 on.
Just have a look at the following redbook:
Stored Procedures, Triggers and User Defined Functions
http://www.redbooks.ibm.com/abstracts/sg246503.html?Open

If you want to return more than one value,
you don't have to specify a table name and don't need to insert values into
this table.
A simple select would be enough.

Example:
CREATE FUNCTION MySchema/GetAdress
      (ParAdrNo Integer)
       RETURNS TABLE
              (FirstName CHARACTER( 15 ) ,
               Name      CHARACTER( 15 ) ,
               ZipCode   DECIMAL  (9, 0) ,
               City      CHARACTER( 15 ))
       LANGUAGE SQL
       NOT DETERMINISTIC
       CONTAINS SQL DATA
       CALLED ON NULL INPUT
       NO EXTERNAL ACTION
       DISALLOW PARALLEL

       RETURN Select  *
                 from MyFile
                Where MyAdrNo = ParAdrNo ;



-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag
von Luqman
Gesendet: Sonntag, 12. Dezember 2004 22:44
An: rpg400-l@xxxxxxxxxxxx
Betreff: DB2 Function to return more than 01 value ?


The following function in Sql Server 2000 returns more than 01 value in the
shape of table.
but the RETURNS TABLE CLAUSE  not working in DB2 Function, is it or similar
supported in DB2 ?

CREATE FUNCTION function2 (principal decimal(12,2),rate
decimal(5,2),startyear int,endyear int)
RETURNS Depreciation  TABLE(
        DEP_YEAR INT NOT NULL,
        Begin_WDV DECIMAL(12,2) NOT NULL,
        Rate DECIMAL(6,3) NOT NULL,
        Dep_Amount DECIMAL(12,2) NOT NULL,
        End_WDV DECIMAL(12,2) NOT NULL)
LANGUAGE SQL
BEGIN
DECLARE variable1 DECIMAL(5,2);
Insert into Depreciation Select * from myTable;
RETURN
END;




Best Regards,

Luqman





--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.




--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.




--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.