FUNCTION patprog() PARAMETER lnRfid, ldDate SELECT status.* ; FROM status ; WHERE status.start <= ldDate AND ; status.rfid = lnRfid ; ORDER BY status.start ; into cursor cPPS1 * select the oldest date and program (cursor sorted) IF USED("cPPS1") SELECT *, MAX(cPPS1.START) as maxstart ; FROM cPPS1 ; into cursor cPPS2 * if nothing returned, return "NO PROGRAM" IF _tally < 1 lnProgram = PADR("NO PROGRAM",80," ") ELSE lnProgram = PADR(cPPS2.program,80," ") ENDIF ELSE lnProgram = PADR("NO PROGRAM",80," ") ENDIF * close the cursors =closecursor("cPPS1") =closecursor("cPPS2") RETURN lnProgram