RE: QSORT question

Jeff,

Are your final results correct?  I have used QSORT several times and it
hasn't exceeded it's boundary.  I suspect what you are seeing is
multiple passes through the data to complete the sort.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff Young
Sent: Monday, December 18, 2006 4:03 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: QSORT question

I have a MODS defined with Occurs(24)
The DS consists of multiple fields, the first 2 are Year
(4,0) and Month (2,0)

I load the DS in my program starting with the first entry.
I can have a variable number of entries, so I store the
number of entries in a variable.
After I have loaded all the data, I want to sort it by Year & Month.

I am attempting to use the qsort function as follows:
QSort (%Addr(Account_Recap) : Im : %Size(Account_Recap) :
%PAddr(Compare));

Where Account_Recap is my MODS
           IM is the number of entries used
    
My compare routine is :
P Compare B
D Compare PI 10I 0
D Element1 Const Like(Account_Recap)
D Element2 Const Like(Element1)
D Element1_Ds DS
D Year_1 Like(Save_Year)
D Month_1 Like(Save_Month)
D Element2_DS DS
D Year_2 Like(Save_Year)
D Month_2 Like(Save_Month)
/free
Element1_Ds = Element1;
Element2_Ds = Element2;
Select;
When ((Year_1 * 100) + Month_1) < ((Year_2 * 100) + Month_2);
Return -1; When ((Year_1 * 100) + Month_1) > ((Year_2 * 100)
+ Month_2); Return 1; Other; Return 0; EndSl; /End-Free

The problem I am having is that the Compare routine is
accessing more than just the number of entries defined in the
IM variable.

Is this normal or am I doing something incorrect.

TIA,




Jeff Young
Sr. Programmer Analyst
Dynax Solutions, Inc.
A wholly owned subsidiary of enherent Corp.
IBM -e(logo) server Certified Systems Exper - iSeries
Technical Solutions V5R2 IBM  Certified Specialist- e(logo)
server i5Series Technical Solutions Designer V5R3 IBM 
Certified Specialist- e(logo)server i5Series Technical
Solutions Implementer V5R3

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection
around http://mail.yahoo.com

Privileged and Confidential.  This e-mail, and any attachments there to, is 
intended only for use by the addressee(s) named herein and may contain 
privileged or confidential information.  If you have received this e-mail in 
error, please notify me immediately by a return e-mail and delete this e-mail.  
You are hereby notified that any dissemination, distribution or copying of this 
e-mail and/or any attachments thereto, is strictly prohibited.