Bubble Sort

I needed a way to sort an Array of strings.


Sub bubblesort(arry() As String,limit As Integer)
For i = 0 To limit
Call bubblemax(arry,limit-i)
Next
End Sub

Sub bubblemax(x() As String, eff_size As Integer)
For k = 0 To eff_size-1
If x(k) > x(k+1) Then
Call swaparry(x,Cint (k),Cint (k)+1)
End If
Next
End Sub

Sub swaparry(x() As String, i As Integer, j As Integer)
Dim temp As String
temp=x(i)
x(i)=x(j)
x(j)=temp
End Sub

This was first published in November 2000

Dig deeper on Domino Resources - Part 2

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.uk

Close