Re: SQL and defining data structures

You're not missing anything...

Yes, it's a little extra typing, but that's ok. Actually, you probably
need to do a bit more typing, three character field names are frowned upon
in modern RPG. ;)

Here's the key, you only ever need to define this DS in one place. If you
need it in more than one place, then define it as a TEMPLATE in a /COPY
book and bring it into where you need it.

Charles

On Wed, Aug 30, 2017 at 12:13 PM, Jack Tucky <jacktucky@xxxxxxxxx> wrote:

I'm learning more embedded SQL, I'm doing a group/order by, so I process
the rows into a data structure.

I have a fetch like this, fetch next from c into :cx;

But the only way I can see to define the DS is to hard code the columns.
This can't be the best way

dcl-ds cx qualified inz;
TYP char(3);
SHP packed(7: 0);
SEA char(5);
STY char(20);
CLR char(10);
FAB char(10);
MOD char(10);
end-ds;

The SQL select doesn't match any specific table, it's a join of several
files.

Thanks for any advice, Art
--
This is the RPG programming on the IBM i (AS/400 and 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.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD

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

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD