Como declarar y usar cursor en Power Builder

En este post veremos como declarar y usar un cursor básico en power builder, bueno el cursor básicamente lo que ace es recorrer todos los registros devueltos por una consulta sql, el cual lo recorremos mediante bucles una vez abierto el cursor.
Lo primero que necesitamos saber es cuantos registros va a tener la consulta que necesitamos hacer para recorrer en el bucle entonces podiamos hacerlo mediante un select count(*)

select count(*)
into :cant_filas
from cuentas

Ahora que ya tenemos la cantidad de filas a ser recorridas ya podemos declarar nuestro cursor:

declare vcursor cursor for
  select cuenta, saldo_inicial
  from cuentas

Ya tenemos declarado nuestro cursor nada mas nos falta abrirlo:

open vcursor;

Ya hemos abierto, entonces ya podemos recorrer nuestro cursor:

string vcuenta
double vsaldo_inicial

for i=1 to cant_filas
 fetch vcursor into :vcuenta, :vsaldo_inicial;
 messagebox('test', 'cuenta:'+vcuenta+' - saldo:' + string(vsaldo_inicial))
next

Con esto ya hemos recorrico el cursor con la palabra clave fetch seguido del nombre del cursor y a continuación con into almacenamos en las variables los campos que habiamos seleccionado en el select al declarar el cursor, ahora que ya hemos recorrido todo nos queda cerrar nuestro cursor:

close vcursor;

Y con estos pasos ya hemos logrado recorrer las filas devueltas por una consulta sql. Pero también podriamos hacer mas simple con el bucle DO WHILE y sqlca.sqlcode por si no necesitemos saber la cantidad de fila que nos retornara el sql.