Stored Procedure con un If después de un Select

[[gluglu]]

Hola Compañer@s !

No me aclaro con esto de los Stored Procedures en Interbase.

Quiero más o menos crear esta Stored Procedure :

Código SQL [-]
begin
  Select BOJ.BOOKINGNO
  from BOOKINGS_OBJECTS BOJ
  left join BOOKINGS BO
    on BO.BOOKINGNO = BOJ.BOOKINGNO
  where
    BOJ.BUILDINGNO = :"BUILDING_NO" and
    BOJ.OBJECTNO = :"OBJECT_NO" and 
    BOJ.DATETO <= :"DATE_SP" and
    BO.STATUS = 3
    Into BOOK_NO;
  if (not BOJ.BOOKINGNO is Null) then 
    SUSPEND;
  else begin
    Select BOJ.BOOKINGNO 
    from BOOKINGS_OBJECTS BOJ
    left join BOOKINGS BO
      on BO.BOOKINGNO = BOJ.BOOKINGNO
    where
      BOJ.BUILDINGNO = :"BUILDING_NO" and
      BOJ.OBJECTNO = :"OBJECTNO" and
      BOJ.DATEFROM >= :"DATE_SP" and
      BOJ.DATETO <= :"DATE_SP" and
      BO.STATUS <= 2
      Into BOOK_NO;
  end
end

Pero me da error en la línea subrayada.

Lo que quiero hacer es buscar un registro determinado, pero si no cumple la condición que pregunto después (en mi caso concreto, si se produjo un EOF del primer Select), ejecutar otro Select diferente con otras condiciones para devolver un valor diferente.

Lo que necesito es saber como preguntar si el primer Select encontró o no un registro (o varios), y en caso contrario (preguntando por EOF ? ), sjecutar el segundo Select con otras condiciones.

Gracias por vuestra ayuda.

[[eduarcol]]

Aclarando que no tengo mucha experiencia en el asunto de los SP yo trabajo directamente sobre la variable del resultado

o sea if (not Book_No is Null) then

pues quizas sea una idea sin sentido....

[[ArdiIIa]]

En un procedure el suspend devuelve los resultados

en este caso

Código SQL [-]
FOR Select BOJ.BOOKINGNO
  from BOOKINGS_OBJECTS BOJ
  left join BOOKINGS BO
    on BO.BOOKINGNO = BOJ.BOOKINGNO
  where
    BOJ.BUILDINGNO = :"BUILDING_NO" and
    BOJ.OBJECTNO = :"OBJECT_NO" and 
    BOJ.DATETO <= :"DATE_SP" and
    BO.STATUS = 3
    Into BOOK_NO 
do suspend;

Te devolvería los registros encontrados y además creo que el concepto del EOF es esquivoco.
FOR xxx DO hace que accedas a cada valor del select y tal como cita eduarcol has de preguntar a los valores hallados (:BOOk_NO)

[[gluglu]]

Gracias a los dos por responder.

De momento me lo acepta así

Código SQL [-]
begin
  for Select BOJ.BOOKINGNO
  from BOOKINGS_OBJECTS BOJ
  left join BOOKINGS BO
    on BO.BOOKINGNO = BOJ.BOOKINGNO
  where
    BOJ.BUILDINGNO = :"BUILDING_NO" and
    BOJ.OBJECTNO = :"OBJECT_NO" and 
    BOJ.DATETO <= :"DATE_SP" and
    BO.STATUS = 3
    Into BOOK_NO
  do
    begin
      if (not :"BOOK_NO" is Null) then
        SUSPEND;
      else begin
        Select BOJ2.BOOKINGNO 
        from BOOKINGS_OBJECTS BOJ2
        left join BOOKINGS BO2
          on BO2.BOOKINGNO = BOJ2.BOOKINGNO
        where
          BOJ2.BUILDINGNO = :"BUILDING_NO" and
          BOJ2.OBJECTNO = :"OBJECT_NO" and
          BOJ2.DATEFROM >= :"DATE_SP" and
          BOJ2.DATETO <= :"DATE_SP" and
          BO2.STATUS <= 2
          Into BOOK_NO;
      end
    end
end

Ahora tengo que probar si me hace correctamente lo que quiero obtener

[[ArdiIIa]]

Código SQL [-]
 else begin
        FOR Select BOJ2.BOOKINGNO 
        from BOOKINGS_OBJECTS BOJ2
        left join BOOKINGS BO2
          on BO2.BOOKINGNO = BOJ2.BOOKINGNO
        where
          BOJ2.BUILDINGNO = :"BUILDING_NO" and
          BOJ2.OBJECTNO = :"OBJECT_NO" and
          BOJ2.DATEFROM >= :"DATE_SP" and
          BOJ2.DATETO <= :"DATE_SP" and
          BO2.STATUS <= 2
          Into BOOK_NO
        do suspend;
      end

Si la primera falla, devuelveme lo segundo....

[[gluglu]]

Pues no, no funciona !

Debo entender que para aquellos registros que no cumplen la primera condición, al hacer un Select, si no encuentra ninguno que cumpla la condición impuesta para el primer Select, (repito) al no haber ningún registro válido, tampoco me ejecuta el bloque de después dentro del 'Do', ese decir, el siguiente Select con la nueva condición.

Es por ello, que para los registros que cumplen la primera condición si me devuelve el valor que quiero correctamente, pero para los que no cumplen esa primera condición no me devuelve nada (=null) ya que de hecho no entra al segundo Select.

Por ello os pido de nuevo ayudita !

[[gluglu]]

Ya parece que sí funciona !

Código SQL [-]
begin

  Select BOJ.BOOKINGNO
  from BOOKINGS_OBJECTS BOJ
  left join BOOKINGS BO
    on BO.BOOKINGNO = BOJ.BOOKINGNO
  where
    BOJ.BUILDINGNO = :"BUILDING_NO" and
    BOJ.OBJECTNO = :"OBJECT_NO" and 
    BOJ.DATETO <= :"DATE_SP" and
    BO.STATUS = 3
    Into BOOK_NO;

  if (not :"BOOK_NO" is Null) then
    SUSPEND;
  else begin

    Select BOJ2.BOOKINGNO 
    from BOOKINGS_OBJECTS BOJ2
    left join BOOKINGS BO2
      on BO2.BOOKINGNO = BOJ2.BOOKINGNO
    where
      BOJ2.BUILDINGNO = :"BUILDING_NO" and
      BOJ2.OBJECTNO = :"OBJECT_NO" and
      BOJ2.DATEFROM <= :"DATE_SP" and
      BOJ2.DATETO >= :"DATE_SP" and
      BO2.STATUS <= 2
      Into BOOK_NO;
    SUSPEND;

  end

end