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



and use *HIVAL instead of blanks to perform the lookup necessary to find the next unused element, if necessary.
-sjl


"TheBorg" wrote in message news:mailman.12261.1383159588.9013.rpg400-l@xxxxxxxxxxxx...

I always use INZ(*HIVAL) on the array so that the unused elements will sort
to the end of the array...
-sjl

"Gary Thompson" wrote in message
news:mailman.12259.1383159453.9013.rpg400-l@xxxxxxxxxxxx...

Good point and definitely a mistake I could/would make,
but this time I double/triple checked and . . .
well I can hardly believe what I saw . . .

Just now running in Debug after removing SORTA and
the array ASCEND . . .

Thank you.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Alan Campin
Sent: Wednesday, October 30, 2013 12:53 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: clueless in SORTA

Is this one of those deals where the array is defined as some huge number to
only use a few elements? When you do the sort the blanks will be in the low
order. Any chance you are looking at in debug and only see the first few
which are blank?


On Wed, Oct 30, 2013 at 12:43 PM, Gary Thompson
<gthompson@xxxxxxxxxxx>wrote:

RPGLE pgm in production for about a year; used daily on V7R1

Today a report that pgm reports errors on valid values . . .

Debug shows LOOKUP on empty DS array,
hence the error

Debug shows DS array loaded from file correctly, then SORTA on DS
array, then DS array elements all empty

operations mgr reports no recent PTFs

Any help for the clueless ?



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


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

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.