Query dinamica - Array

Senhores bom dia,
Tenho uma query dinâmica e estou tentando pegar o valor do campo, entretanto, quando o campo é extent da erro:

hcolumn = hBuffer:buffer-field("campo"))
var1=(hColumn:buffer-value())

para resolver preciso identificar se o campo é extent e qual o valor para percorrer por todos.

obrigado.

Olá, tente desta forma:

Código:

def var loop as int.

if hColumn:extent > 0 then
   do loop = 1 to hColumn:extent:
      disp fh:buffer-value(loop).
   end.
else
   var1=(hColumn:buffer-value()).

funcionou perfeitamente. obrigado.