Re: How to Sort Data Structure array with negative values correctly ???

Another solution is to use RpgMap (github.com/jerps/RpgMap).
It supports composite keys, e.g. rm_v( rm_i(-6) : rm_a('A') ) specifies a
composite key (a vector) with integer -6 and character 'A'.

// make new map m
m = rm_m();

// insert key/item pairs (only the keys are relevant so the items are
null).
// rm_( x : 0 ) specifies that object x (a map or a value) has reversed
order (reversed order could also be specified with setting a specific
compare function).
rm_ins(m
: rm_( rm_v( rm_i( -6 ) : rm_a( 'A' ) ) : 0) : null
: rm_( rm_v( rm_i( -3 ) : rm_a( 'Y'' ) ) : 0) : null
: rm_( rm_v( rm_i( 5 ) : rm_a( 'G' ) ) : 0) : null
: rm_( rm_v( rm_i( -4 ) : rm_a( 'H' ) ) : 0) : null
: rm_( rm_v( rm_i( 2 ) : rm_a( 'D' ) ) : 0) : null
: rm_( rm_v( rm_i( 0 ) : rm_a( 'B' ) ) : 0) : null
);

// iterate through the keys to display them
c = rm_sll(rm_cur(m));
dow rm_rdn(c);

dsply ( %char(rm_i_(rm__i(rm_key(m):1))) + ' - ' + rm_a_(rm__i(rm_key(m):2))
);

enddo;

Btw, an alternative to reversed order would be to simply iterate from the
end to the start.








On Wed, Jun 20, 2018 at 11:43 PM, Troy Foster <tfoster@xxxxxxxxxx> wrote:

I have looked an I can't find a solution. This is example of what I am
trying to accomplish. Is it possible? Does anyone have an example?

I get this when it sorts.
NB(1) = 5.
NB(2) = 2.
NB(3) = 0.
NB(4) = -6.
NB(5) = -4.
NB(6) = -3.
NB(7) = 0.
NB(8) = 0.
NB(9) = 0.
NB(10) = 0.

I want to get:

NB(1) = 5.
NB(2) = 2.
NB(3) = 0.
NB(4) = -3.
NB(5) = -4.
NB(6) = -6.
NB(7) = 0.
NB(8) = 0.
NB(9) = 0.
NB(10) = 0.

This is a sample of the code that I use. I

H BNDDIR('QC2LE')

D qsort PR ExtProc('qsort')
D base * value
D num 10U 0 value
D width 10U 0 value
D compare * procptr value

D LastName PR 10I 0
D parm1 like(name)
D parm2 like(name)

D name s 5
D num_names s 10i 0

d ds
D DS 5 dIM(10)
D NB 1s 0 OVERLAY(DS:*NEXT) INZ(0)
d A 1 OVERLAY(DS:*NEXT) INZ(' ')

c eval NB(1) = -6
c eval NB(2) = -3
c eval NB(3) = 5
c eval NB(4) = -4
c eval NB(5) = 2
c eval NB(6) = 0
c Eval A(1) = 'A'
c Eval A(2) = 'Y'
c Eval A(3) = 'G'
c Eval A(4) = 'H'
c Eval A(5) = 'D'
c Eval A(6) = 'B'

c eval num_names = 6

c callp qsort(%addr(NB): num_names:
c %size(name): %paddr('LASTNAME'))
c eval *inlr = *on

P LastName B
D LastName PI 10I 0
D parm1 like(name)
D parm2 like(name)

c select
c when parm1 < parm2
c return 1
c when parm1 > parm2
c return -1
c other
c return 0
c endsl

P E
--
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: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.
`
Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD