Re: DB2 Function to return more than 01 value ? -- RPG400-L

Hi,

I have created following function but its not returning null. Please advise
what am I missing.

Best Regards,
Luqman


CALL FUNCTION2(5000,0,10,1999,2000)


CREATE FUNCTION function2
       (principal decimal(12,2),
        rate decimal(5,2),
        startyear int,
        endyear int)
RETURNS TABLE(
        DEP_YEAR INT,
        Begin_WDV DECIMAL(12,2),
        Rate DECIMAL(6,3),
        Dep_Amount DECIMAL(12,2),
        End_WDV DECIMAL(12,2))
LANGUAGE SQL MODIFIES SQL DATA
       NOT DETERMINISTIC
       DISALLOW PARALLEL
BEGIN
DECLARE GLOBAL TEMPORARY TABLE MyFile
               (DEP_YEAR INT,
                Begin_WDV DECIMAL(12,2),
                Rate DECIMAL(6,3),
                Dep_Amount DECIMAL(12,2),
                End_WDV DECIMAL(12,2));
INSERT INTO MyFile VALUES(1234,5000,0.10,12000,13000);
RETURN SELECT * FROM MyFile;
END;




"HauserSSS" <Hauser@xxxxxxxxxxxxxxx> wrote in
message news:HFEAIBMAHGFKNPHBOMFIIEJBCDAA.Hauser@xxxxxxxxxxxxxxxxxx
Hi,

you don't have to create a file outside the UDTF.
But you have to have a table to return a table.

You either can create a table in any library you want (inside your UDTF)
by using the CREATE TABLE statement or
create a temporary file using the DECLARE GLOBAL TEMPORARY TABLE statement.
Any allowed SQL statement can be executed between BEGIN and END,
so you can create your file, insert rows or what ever you want.

CREATE FUNCTION function2
       (principal decimal(12,2),
        rate decimal(5,2),
        startyear int,
        endyear int)
RETURNS 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 GLOBAL TEMPORARY TABLE MyFile
               (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) ;
INSERT INTO QTEMP / MyFile ....;
RETURN ( SELECT * FROM MyFile ) ;

END;

For more information look at the redbook:
Stored Procdures, Triggers and User Defined Functions
http://www.redbooks.ibm.com/abstracts/sg246503.html?Open

Birgitta

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


Do you mean I have to create a table by name of 'MyFile' and then create
this function ?

Please note, I don't want to create any table outside the function, just
want to create a table in RETURNS TABLE MyFile clause, insert records in it,
select the records for output report, and close the cursor. Is it possible
in DB2 ?

This is what I am already doing in Sql Server.



I hope you understand what exactly I want. Any idea please ?

Best Regards,

Luqman


"HauserSSS" <Hauser@xxxxxxxxxxxxxxx> wrote in
message
news:HFEAIBMAHGFKNPHBOMFIOEIJCDAA.Hauser-YeaMbNrzpuROM1jbQLfANq1cXZ9k6wlg@pu
blic.gmane.org
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-YeaMbNrzpuROM1jbQLfANq1cXZ9k6wlg@pu
blic.gmane.org
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.




--
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.