RE: clueless in SORTA

Ok, no more e-mails please, we have our WINNER !!!

Just like Groucho's show, Scott said da magic woid: 2K

I looked at all 500 . . . so . . . I >think< that is
maybe a debug limit . . . >doh!<

. . . seems similar to another limit that has a
command line "work around", but I digress . . .

Debugging now, I don't have a sort so I don't have the
"empty array problem", but I have a bug where the data
is in error but the program reports the wrong field
(there are 2 possible), and confuses the user.

so, from clueless in SORTA, thanks ALL for your support !

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

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.


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