nEachID= 5
Dimension mBufArray(nEachID)  && Dimension The Array
For nID= 1 To nEachID                  && Populate the Array
    mBufArray(nID)= " "
Next
    mBufArray(1)= "John"
    mBufArray(4)= "Jane"
    mBufArray(5)= "Joe"
Display Memory Like mBufArray*
For nID= 1 To nEachID   && Cascade UserID              
    nNextID= nID + 1
    Do While mBufarray(nID)= " " 
        If nNextID > nEachID
            Exit
        EndIf
        mBufarray(nID)= mBufarray(nNextID)
        mBufarray(nNextID)= " "
        nNextID= nNextID+ 1
    EndDo
Next
Display Memory Like mBufArray*