Re: clueless in SORTA

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.