RE: SQL select into [array]?

A little defensive are you? Did you eat your cheerios?


--

Michael Schutte
Admin Professional



Try Bob Evans GRILLING SAUSAGE! This summerâs hottest destination is your
own backyard with Bob Evans Brats and Italian Sausage! For tasty recipes
using Bob Evans grilling sausage, visit http://www.BobEvans.com/Recipes



rpg400-l-bounces@xxxxxxxxxxxx wrote on 08/27/2009 03:41:15 PM:

You are doing it wrong.

Do not fetch into Amounts_DS, instead fetch in Amt01, Amt02, Amt03,
Amt04, Amt05, Amt06, Amt07.

After you have fetched, AmtArray will be populated.

Doing it wrong? Meaning "not my way?" He asked for elegant. Your
way ain't it.

D

"When a man retires and time is no longer a matter of urgent
importance,

his

colleagues generally present him with a watch."
-- R.C. Sherriff

There's no need for any of the based stuff. Just simply include a
group field in the DS so that the array can be defined against it.
I've made the required changes in the code snippet below.


Jon Paris

www.Partner400.com
www.SystemiDeveloper.com

D Amounts_DS DS

D Amounts

D Amt01 7P 0 Overlay(Amounts)
D Amt02 7P 0 Overlay(Amounts: *Next)
D Amt03 7P 0 Overlay(Amounts: *Next)
D Amt04 7P 0 Overlay(Amounts: *Next)
D Amt05 7P 0 Overlay(Amounts: *Next)
D Amt06 7P 0 Overlay(Amounts: *Next)
D Amt07 7P 0 Overlay(Amounts: *Next)

D AmtArray 7P 0 Overlay(Amounts) Dim(7)

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