× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



LOL. The 3 character field names were not my idea.

Thanks, Art

On Wed, Aug 30, 2017 at 3:08 PM, Charles Wilt <charles.wilt@xxxxxxxxx>
wrote:

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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.