-- ******* -- function file for SORT hirarchye members --******* !CS = CURRENT SESSION !COLL = !!COLLECTMEMBERSOF(CE , '') !NAME = !COLL.EVALUATE(OBJECT BLOCK('!COLL[!EVALINDEX].NAME')) !NEWPOSITION = !NAME.SORTEDINDICES() !NAME.SORT() !COLL.REINDEX(!NEWPOSITION) !MCOUNT = !COLL.SIZE() DO !X values !COLL !Lock = False IF !X.USERCLAIM.EQ('') OR !X.USERCLAIM.EQ(!CS.USER().NAME) Then REORDER $!X AFTER $!MCOUNT ELSE $P$!X IS CLAIM BY $!X.USERCLAIM ENDIF ENDDO
)!NEWPOSITION = !NAME.SORTEDINDICES()
!COLL.REINDEX(!NEWPOSITION