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.