There is another flaw in the script. The columns in the index may not be generated in the correct order.

OLD:

-- Get all columns of the index

DECLARE curidxcolumn CURSOR

...