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



Hello Alan, I too would be interest in seeing your code.

Thanks,

Rob Rogerson
On 2012-11-06 11:08 AM, Alan Campin wrote:

I use SQL exclusively for I/O in screen programs and was pleasant surprised
when I first used it that it actually made coding simpler and yes I always
use a data structure or records array to read records and I almost always
map to a user space. It makes it very, very fast.

If you are interested, I can send a module doing a single page load written
using subfiles and SQL.


On Tue, Nov 6, 2012 at 7:37 AM, Michael Ryan [1]<michaelrtr@xxxxxxxxx> wrote:


Hi folks...looking for opinions/ideas here. I'm working with a program that
declares a cursor, then does a FETCH NEXT to iterate through the result set
and fill a subfile. It looks like this:

DECLARE C1 CURSOR FOR
Select * From Inventory
Where...<where and order by clauses>
...
Exec SQL
Fetch Next
From C1
Into :WkInventory;

Where WkInventory is an externally described DS based on the Inventory
file. The data is then moved from WkInventory to the subfile, and the
subfile is eventually displayed.

I *think* that performance would improve by FETCHing multiple rows into a
MODS or an array in a data structure, rather than esentially performing RLA
with SQL. Recently upgraded to V7R1, so I'm looking for the best approach
at this OS level - I know I can do more than I could do in V5R4. My first
thought is a MODS and specifying a number on the FETCH. But then I need to
be concerned about 're-FETCHing' when I run out of rows for my subfile,
right? Would an array make more sense than a MODS?

I want to use SQL where it makes sense and RLA where it makes sense. I need
to work through this concept so I can use this technique as I go forward.
Ideas, opinions, code samples all welcome. Thanks in advance!
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: [2]RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: [3]http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: [4]RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at [5]http://archive.midrange.com/rpg400-l.

References

Visible links
1. mailto:michaelrtr@xxxxxxxxx
2. mailto:RPG400-L@xxxxxxxxxxxx
3. http://lists.midrange.com/mailman/listinfo/rpg400-l
4. mailto:RPG400-L-request@xxxxxxxxxxxx
5. http://archive.midrange.com/rpg400-l

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
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.