Procedimiento con cursor pl/ sql

[cocode]

Nada que no me sale, he intentado hacer un if con distinto de cero pero se queda infinitamente procesando y no muestra nada en pantalla, y lo me meter DBMS_OUTPUT.PUT_LINE dentro del LOOP, lo meto pero se me invalida el cursor.