$cur sendQuery "call testproc()"
set $field00 [$cur getField 0 0]
set $field01 [$cur getField 0 1]
set $field02 [$cur getField 0 2]
set $field10 [$cur getField 1 0]
set $field11 [$cur getField 1 1]
set $field12 [$cur getField 1 2]
