SELECT Summer.category,date, Student.*;
 FROM ;
     summer ;
    INNER JOIN student ;
   ON  Summer.code = Student.code;
 ORDER BY Summer.lcode, Summer.sec;
into cursor summert

SELECT Summert.*;
 FROM ;
     summert ;
ORDER BY Summert.lcode,Summert.sec;
WHERE YEAR(summert.date) = thisform.tyear.value