RE: SQL select into [array]?

It would look something like this:

Exec Sql
Declare staged Cursor For
Select entryId, field1, field2, field3, field4, field5,
processName
From utpjvmde
Where entryStatus = :stagedStatus
For Read Only
Skip Locked Data;


The fetch would look like this:

Exec Sql
Fetch From staged For :maxRows Rows Into :data;

Duane Christen


--


Duane Christen
Senior Software Engineer
(319) 790-7162
Duane.Christen@xxxxxxxxxx

Visit PAETEC.COM


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Campin
Sent: Thursday, August 27, 2009 12:13 PM
To: RPG programming on the IBM i / System i
Subject: Re: SQL select into [array]?

What does your SQL statement look like?

On Thu, Aug 27, 2009 at 10:44 AM, Christen, Duane <Duane.Christen@xxxxxxxxxx

wrote:

Michael;

I do this type of thing quite often:
D data DS Qualified
D Dim(100)
D Based(dataBase)
D entryId 20I 0
D field1 10A
D field2 10A
D field... 10A
D fieldN 10A
D processName 25A

D example DS Qualified
D Dim(100)
D entryId 20I 0
D field Like(data.field1)
D Dim(N)
D processName 25A

In your code initialize the dataBase pointer dataBase =
%Addr(example), fetch into the data structure and you can access the
fields like example(x).field(y). SQL represents data as a record, but
you can redefine the representation anyway you need with an appropriate structure.

Duane Christen

--


Duane Christen
Senior Software Engineer
(319) 790-7162
Duane.Christen@xxxxxxxxxx

Visit PAETEC.COM


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Koester, Michael
Sent: Thursday, August 27, 2009 10:55 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: SQL select into [array]?

I am looking for an elegant way to code an embedded SQL statement that
selects into, where the host target is an array.

As in:

Select Field1, Field2, Field3
into :MyArray(1), :MyArray(2), :MyArray(3) From *libl/MyTable

Where Key1 = :MyKey;



... or even

Fetch from MyCursor
into :MyArray(1), :MyArray(2), :MyArray(3);



Apparently SQL syntax does not know about using "(1)", "(2)", and "(3)"
to designate the target array elements. Is there a way to code that
to be acceptable to SQL and to the V5R4 pre-compiler?



I'm hoping not to have to dump the results into a data structure,
because I ultimately need to reference the results by an index, and it
would be great to get them to load directly into the array if possible.



If only I knew the trick...



Thanks
Michael Koester





--
This is the RPG programming on the IBM i / System i (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 IBM i / System i (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 IBM i / System i (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.