Well, if you looked at the array in debug (all 2000 elements) and they have data right before the SORTA and then you execute the SORTA and all 2000 elements then have blanks then it sounds like a bug in SORTA. Did you look at all 2000 elements of the array in debug right before and right after the SORTA?
Scott
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Gary Thompson
Sent: Wednesday, October 30, 2013 1:02 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: RE: clueless in SORTA
Scott, this is the current, modified, code that I am now debugging to get past this error until I can get a better . . .
GRIP !?!?
* Start: Price List Valid Locations data ---------------------------------
D PLmax C CONST(2000) Price List array max
D PL@ S 5U 0 Inz(0) Price List index
* arrays loaded from file OMPLLOC:
D PLds DS
*PL# 7A Dim(plMax) ASCEND Price List/Loc array
D PL# 7A Dim(plMax) Price List/Loc array
D PL#pl 5S 0 Overlay(PL#) " "
D PL#loc 2S 0 Overlay(PL#:*NEXT) " " Valid Loc
D DS
D plListLoc 1 7A Price List+Loc
D plList 1 5A Price List
D plLoc 6 7A Price List Loc
* End : Price List Valid Locations data ---------------------------------
* Load array PL# from file OMPLLOC to create a list of Locations for
* which a Price List is valid
C Clear PL#
C READ pl_Rec 50
* Start: Loop to load valid Price List Locations-----------------------
C 1 DO PLmax PL@
*
C If *IN50 = *Off
C Eval PL#pl(PL@) = pl_PRILST
C Eval PL#loc(PL@) = pl_LOC
C Else
C Leave exit loop
C EndIf
*
C READ pl_Rec 50
C ENDDO
* Start: Loop to load valid Price List Locations-----------------------
* SortA PL# clears array !?!?
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Scott Mildenberger
Sent: Wednesday, October 30, 2013 12:54 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: RE: clueless in SORTA
Maybe there has always been a bug and the data being loaded has changed in some way as to surface the bug. What does the SORTA and array definition look like.
Scott
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Gary Thompson
Sent: Wednesday, October 30, 2013 12:44 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: clueless in SORTA
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.
--
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.
midrange.com
