Error DBIF_RSQL_INVALID_CURSOR

[yapbig]

¿Cómo hago para salvar este errror?
El mismo me empezó a aparecer luego de que moví un invocación a una subrutina dentro de la estructura de mi programa
Mi impresión es de que el programa está perdierdo el puntero al cursor y que ya no lo tiene disponible
El programa trabaja con Base de datos lógico es es una copia del estándar J_1AF012

ERROR DBIF_RSQL_INVALID_CURSOR.JPG

Saludos cordiales, desde ya muchas gracias por la ayuda