Open Close Cursor practica

Las instrucciones OPEN, FETCH y CLOSE CURSOS se utilizan para abrir, iterar y cerrar un cursor de base de datos para las sentencias de lectura. Esta lección trata de enseñarle cómo poner en práctica estas instrucciones.
Antes de seguir con el ejemplo práctico le recomendamos visualice antes la lección ABAP Open SQL – OPEN/CLOSE CURSOR Lección teórica.

• Aplicación práctica

En la lógica del código fuente realizamos una lectura utilizando el cursor para obtener todos los tipos de avión PLANETYPE de la tabla de base de datos ZSAPLANESA00001 para el fabricante BOE que se encuentra en la columna PRODUCER.

1. Implementamos el código fuente.
2. Ejecutamos el programa.

• Conclusión

La variable del sistema SY-SUBRC toma el valor cero cada vez que se lee un registro del listado de registros leído por la sentencia SELECT el OPEN CURSOR. En cuanto ya no existen registros el valor de la variable del sistema es distinto de cero. En el bucle de iteración se puede recorrer toda la lista para leer cada registro en una estructura o variable del mismo tipo que las columnas leídas. En el ejemplo implementado se ha leído sólo una columna. En cuanto terminamos con la iteración cerramos el cursor en base de datos utilizando la sentencia CLOSE CURSOR.
Si se aplica la instrucción FETCH en un cursor cerrado el sistema devuelve un error de programación DUMP.