Note that if the array is big, you would get much better performance by loading it into a DIM array, so the sort of sort below, then put the results back into a dynamic array.
Dynamic arrays are much easier to use, but when used wisely, dimensioned arrays can be MUCH faster. This is true for any application, esp. looping through multi-values. John Israel -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of DAVID WADEMAN Sent: Tuesday, July 22, 2008 1:00 PM To: [email protected] Subject: RE: [U2] Basic SORT() Function not avail in UniVerse? This is a UniData subroutine, but should work .... SUBROUTINE B42.SORT.ARRAY(SORTED,ARRAY) * Bubble sort the elements of a dynamic array * Created by: David Wademan * Creation Date: 01/05/05 SORTED="" VALUES = DCOUNT(ARRAY,@VM) LOOP CHANGES = 0 FOR X = 2 TO VALUES * For each adjacent pair ELEMENT1 = ARRAY<1,X-1> ELEMENT2 = ARRAY<1,X> IF ELEMENT2 < ELEMENT1 THEN * Swap if pair out of sequence ARRAY<1,X> = ELEMENT1 ARRAY<1,X-1> = ELEMENT2 CHANGES = 1 END NEXT X WHILE CHANGES DO REPEAT SORTED=ARRAY RETURN -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Baker Hughes Sent: Tuesday, July 22, 2008 10:51 AM To: '[email protected]' Subject: [U2] Basic SORT() Function not avail in UniVerse? Hey, I'm needing to SORT a dynamic array and apparently UniVerse doesn't have this Function. Other MV implementations have this, such as D3 - "The sort() function sorts an attribute or value mark delimited str.exp in ascending order." [from ePick] There was also a user exit u1072 that did the same thing. Does anyone have a work around or fast path to same thing .... maybe I'm missing something but can't see this in UV docs. -Baker ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/
