FUNCTION verificar(codigo)
  DEFINE codigo STRING,
         existe VARCHAR(1)

  SELECT DISTINCT a.codigo_bloque FROM intb00018 a
  WHERE a.codigo_bloque = codigo

   IF STATUS = NOTFOUND THEN
      RETURN 'N'
    ELSE
      RETURN 'S'  
   END IF     
END FUNCTION