RE: SQL select into [array]?

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.