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



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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
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.