RE: Arrays

If the sorting applies only to the contents of the subfile, a data
structure that contains an array of undefined length and dim(9999) where
each subfield (screen field) that follows is overlaid on the array can
be used to build the subfile.  The default sort would be arrival
sequence or whatever.  When the user asks for a new sort, sort the array
by the sub-field and rebuild the subfile ignoring blank records. 

If the sort is for the entire file and the file has more than 9999
records it gets harder.  <g>  SQL makes a lot more sense then.  



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Tony Carolla
Sent: Tuesday, March 29, 2005 4:45 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Arrays

<snip>
> Some application questions though.
> 1)  If a user said "On this inquiry screen I would like to position my

> cursor on any column and sort by that column (and you have seven
> columns) would you:
> a - Create 7 logicals and use RPG native I/O b - Front end the code
> with OPNQRYF (but since I don't use that I forget if you have to
> redefine the key on the f-spec to match the sort order) c - Use SQL d
> - Tell the user it can't be done.
> e - Offload the data to another platform and have them manipulate it
> there.
> f - Put it on your to-do list, but always at the bottom priority to
> never get done.
>
> Rob Berendt
</snip>

WAIT!  I got the answer!

1)  With the help of the entire population of the RPG400L list, force
IBM to modify SORTA to work with DS arrays

2)  Create a DS array to store the results in, sort based on the user's
choice field, using the New SORTA op

3)  output to the subfile

HOORAY!  I WIN!!!


--
"Enter any 11-digit prime number to continue..."
--
This is the RPG programming on the AS400 / 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.


*****************************
NOTICE:
All e-mail sent to or from this e-mail address will be received or otherwise 
recorded by
The Sharper Image corporate e-mail system and is subject to archival, 
monitoring,
and review by and/or disclosure to Sharper Image security and other management.
This message is intended only for the use of the addressee and may contain 
information
that is privileged and confidential.

The contents of this message may contain personal views which are not the views 
of The Sharper Image.
If you are not the intended recipient, dissemination of this communication is 
prohibited.
*****************************