SELECT Historicalreservations.* FROM Historicalreservations ; WHERE Historicalreservations.darrive > DATE() ; AND Historicalreservations.iguestid > 0 ; AND INLIST(Historicalreservations.rms_status,"C","A","U") ; AND Historicalreservations.iruid = xi_RUID ; ORDER BY Historicalreservations.darrive ; INTO CURSOR x_NextResv NOFILTER