Function Reshape Variant[] aInpBlock Integer hObj Integer iMsg  Returns Variant[][]
    Variant[][] aBlock
    Integer iPos 
    Integer iMax 
    Integer iGrp 
    Integer iFld 
    Integer iTest 
    
    Move (SortArray(aInpBlock,Self,iMsg)) to aInpBlock
    Move (SizeOfArray(aInpBlock)) to iMax
    If (iMax=0) Function_Return aBlock 
    
    Move aInpBlock[0] to aBlock[0][0]
     
    For iPos from 1 to (iMax-1) 
        Get iMsg of hObj aInpBlock[iPos] aInpBlock[iPos-1] to iTest 
        If (iTest=EQ) Begin 
            Move (iFld+1) to iFld 
        End
        Else Begin 
            Move (iGrp+1) to iGrp 
            Move 0 to iFld 
        End
        
        Move aInpBlock[iPos] to aBlock[iGrp][iFld]
    Loop
    
    Function_Return aBlock 
End_Function