Pérola do Código ETU

<<End_Error>>

    NULL;

<<FINAL>>
   NULL;

EXCEPTION
  WHEN OTHERS THEN

     outerror_nbr := DATABASE_ERROR;


END Subscribe;

-> É caso para dizer... while goto then null :)