create or alter procedure RETORNA_MESAS
returns (
    NUM_MESA integer,
    ORDERID integer,
    STATUS char(1),
    NUM_MESA2 integer)
as
begin
  FOR
     SELECT NUM_MESA, 'F',-1 FROM mesa_cli
     INTO :num_mesa, :status, :ORDERID DO
  BEGIN
    SELECT FIRST 1 MAX(ID_MESA),STATUS,NUM_MESA2 FROM MESA
    WHERE MESA.num_mesa = :num_mesa
    AND STATUS='A'
    GROUP BY STATUS,NUM_MESA2
    INTO :ORDERID, :status, :NUM_MESA2;
    if (orderid is NULL) then
      orderid = -1;
    suspend;
  END
end